mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Repair mistake in a previous edmacro-sanitize-string change

Browse Source 
* 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.
This commit is contained in:
Mattias Engdegård 2023-02-20 12:55:09 +01:00
parent cac13e3605
commit 4eefadad06
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/edmacro.el
View 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.