diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-02-20 12:55:09 +0100 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-02-21 10:31:41 +0100 |
commit | 16ca258b1fcf46ecf4e9d04ce950ed286984fad1 (patch) | |
tree | 91880fa8b82ce658c95cc56119e9b42cc7177fd2 /lisp/edmacro.el | |
parent | 5a864f23eb8a36ef435136c5b41cb01b875df399 (diff) | |
download | emacs-16ca258b1fcf46ecf4e9d04ce950ed286984fad1.tar.gz |
Repair mistake in a previous edmacro-sanitize-string change
* lisp/edmacro.el (edmacro-sanitize-for-string):
This condition should not have been 'repaired' but removed altogether.
Do so now, fixing bug#61647.
Reported by Eduardo Ochs.
(cherry picked from commit 4eefadad0670ad1c3da2505d734e528d54c76bef)
Diffstat (limited to 'lisp/edmacro.el')
-rw-r--r-- | lisp/edmacro.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index c995e2f89d7..8734f7cbebe 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -626,8 +626,7 @@ The string represents the same events; Meta is indicated by bit 7. This function assumes that the events can be stored in a string." (setq seq (copy-sequence seq)) (cl-loop for i below (length seq) do - (when (/= (logand (aref seq i) 128) 0) - (setf (aref seq i) (logand (aref seq i) 127)))) + (setf (aref seq i) (logand (aref seq i) 127))) seq) ;; These are needed in a --without-x build. |