diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-08-19 13:27:53 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-08-19 13:41:31 +0200 |
| commit | e5695faec4a43f10be3b56fa7fd436d5f54a5761 (patch) | |
| tree | ce9f3ce4bfd86d4842e7acb40566a6b73914f655 | |
| parent | 054f553b9ce0bec1ce698464bc4dc498b05a219d (diff) | |
| download | emacs-e5695faec4a43f10be3b56fa7fd436d5f54a5761.tar.gz emacs-e5695faec4a43f10be3b56fa7fd436d5f54a5761.tar.bz2 emacs-e5695faec4a43f10be3b56fa7fd436d5f54a5761.zip | |
* lisp/edmacro.el (edmacro-sanitize-for-string): Fix condition.
This is of little consequence in practice since the input is always a
vector of keys representing a prefix, where bit 7 isn't likely to be
set when higher bits are set, but it silences a (justified) warning.
| -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) |