diff options
| author | Robert Pluim | 2023-01-19 14:34:10 +0100 |
|---|---|---|
| committer | Robert Pluim | 2023-01-20 15:14:44 +0100 |
| commit | c7e02eaa3d9af545f2acbb747da7a606fb0d1277 (patch) | |
| tree | f1e4243d9da0d9a78db0d8ea82346dc8ee2a45c1 | |
| parent | 628b624176357117f6ff89980a81eff0920cde37 (diff) | |
| download | emacs-c7e02eaa3d9af545f2acbb747da7a606fb0d1277.tar.gz 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." | |||
| 186 | (declare (indent defun) | 186 | (declare (indent defun) |
| 187 | (compiler-macro (lambda (form) (keymap--compile-check key) form))) | 187 | (compiler-macro (lambda (form) (keymap--compile-check key) form))) |
| 188 | (keymap--check key) | 188 | (keymap--check key) |
| 189 | (when (eq after t) (setq after nil)) ; nil and t are treated the same | ||
| 189 | (when after | 190 | (when after |
| 190 | (keymap--check after)) | 191 | (keymap--check after)) |
| 191 | (define-key-after keymap (key-parse key) definition | 192 | (define-key-after keymap (key-parse key) definition |