diff options
Diffstat (limited to 'lisp/edmacro.el')
-rw-r--r-- | lisp/edmacro.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el index efffab9b30b..26a5d2347f0 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -626,7 +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) + (when (/= (logand (aref seq i) 128) 0) (setf (aref seq i) (logand (aref seq i) 127)))) seq) |