diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-11 21:16:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-11 21:16:36 +0200 |
| commit | f0e08e49145b3602fb73390217f94a6a79a5d632 (patch) | |
| tree | 52735378de2d3a709c771cdcdd20b8c14a23f386 /lisp/edmacro.el | |
| parent | 4f27e4ff02d9d96b5cfbd196dd724e4a056cd8ef (diff) | |
| download | emacs-f0e08e49145b3602fb73390217f94a6a79a5d632.tar.gz emacs-f0e08e49145b3602fb73390217f94a6a79a5d632.tar.bz2 emacs-f0e08e49145b3602fb73390217f94a6a79a5d632.zip | |
Fix regression in edmacro-finish-edit when parsing "none"
* lisp/edmacro.el (edmacro-finish-edit): Use `kbd' here because
we're comparing the result to a string (bug#55372).
Diffstat (limited to 'lisp/edmacro.el')
| -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 179fea786d0..26f3ae02aba 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -251,8 +251,7 @@ or nil, use a compact 80-column format." ((looking-at "Key:\\(.*\\)$") (when edmacro-store-hook (error "\"Key\" line not allowed in this context")) - (let ((key (edmacro-parse-keys - (match-string 1)))) + (let ((key (kbd (match-string 1)))) (unless (equal key "") (if (equal key "none") (setq no-keys t) |