diff options
| author | Robert Pluim <rpluim@gmail.com> | 2023-01-19 14:34:10 +0100 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2023-01-20 15:14:44 +0100 |
| commit | c7e02eaa3d9af545f2acbb747da7a606fb0d1277 (patch) | |
| tree | f1e4243d9da0d9a78db0d8ea82346dc8ee2a45c1 | |
| parent | 628b624176357117f6ff89980a81eff0920cde37 (diff) | |
| download | emacs-c7e02eaa3d9af545f2acbb747da7a606fb0d1277.tar.gz emacs-c7e02eaa3d9af545f2acbb747da7a606fb0d1277.tar.bz2 emacs-c7e02eaa3d9af545f2acbb747da7a606fb0d1277.zip | |
Handle after arg correctly in `keymap-set-after'
* lisp/keymap.el (keymap-set-after): AFTER: t means the same as nil,
so just change it to nil. (Bug#60867)
| -rw-r--r-- | lisp/keymap.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/keymap.el b/lisp/keymap.el index 315eaab7560..2caaafabb94 100644 --- a/lisp/keymap.el +++ b/lisp/keymap.el @@ -186,6 +186,7 @@ a menu, so this function is not useful for non-menu keymaps." (declare (indent defun) (compiler-macro (lambda (form) (keymap--compile-check key) form))) (keymap--check key) + (when (eq after t) (setq after nil)) ; nil and t are treated the same (when after (keymap--check after)) (define-key-after keymap (key-parse key) definition |