diff options
| author | Mattias Engdegård | 2023-02-20 12:55:09 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2023-02-20 13:17:22 +0100 |
| commit | 4eefadad0670ad1c3da2505d734e528d54c76bef (patch) | |
| tree | 4f4cff12d6abc20e7fede8cbb72a684cc594d7c5 | |
| parent | cac13e360547f95ec64d34f38003dfc7ff1a97ee (diff) | |
| download | emacs-4eefadad0670ad1c3da2505d734e528d54c76bef.tar.gz emacs-4eefadad0670ad1c3da2505d734e528d54c76bef.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.
| -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. | |||
| 626 | This function assumes that the events can be stored in a string." | 626 | This 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. |