]> git.eshelyaron.com Git - emacs.git/commitdiff
Repair mistake in a previous edmacro-sanitize-string change
authorMattias Engdegård <mattiase@acm.org>
Mon, 20 Feb 2023 11:55:09 +0000 (12:55 +0100)
committerMattias Engdegård <mattiase@acm.org>
Tue, 21 Feb 2023 09:31:41 +0000 (10:31 +0100)
* 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)

lisp/edmacro.el

index c995e2f89d743759430f6446839139600cea95ec..8734f7cbebee509fd6664b3857e473fb6eb9da9b 100644 (file)
@@ -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.