aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMattias EngdegÄrd2023-02-20 12:55:09 +0100
committerMattias EngdegÄrd2023-02-21 10:31:41 +0100
commit16ca258b1fcf46ecf4e9d04ce950ed286984fad1 (patch)
tree91880fa8b82ce658c95cc56119e9b42cc7177fd2
parent5a864f23eb8a36ef435136c5b41cb01b875df399 (diff)
downloademacs-16ca258b1fcf46ecf4e9d04ce950ed286984fad1.tar.gz
emacs-16ca258b1fcf46ecf4e9d04ce950ed286984fad1.zip
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)
-rw-r--r--lisp/edmacro.el3
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.
626This function assumes that the events can be stored in a string." 626This function assumes that the events can be stored in a string."
627 (setq seq (copy-sequence seq)) 627 (setq seq (copy-sequence seq))
628 (cl-loop for i below (length seq) do 628 (cl-loop for i below (length seq) do
629 (when (/= (logand (aref seq i) 128) 0) 629 (setf (aref seq i) (logand (aref seq i) 127)))
630 (setf (aref seq i) (logand (aref seq i) 127))))
631 seq) 630 seq)
632 631
633;; These are needed in a --without-x build. 632;; These are needed in a --without-x build.