masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 19:59:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handle after arg correctly in `keymap-set-after'

Browse source 
* lisp/keymap.el (keymap-set-after): AFTER: t means the same as nil,
so just change it to nil.  (Bug#60867)
This commit is contained in:
Robert Pluim 2023-01-19 14:34:10 +01:00
parent 628b624176
commit c7e02eaa3d
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/keymap.el
View file

@ -186,6 +186,7 @@ a menu, so this function is not useful for non-menu keymaps."
(declare (indent defun) (declare (indent defun)
(compiler-macro (lambda (form) (keymap--compile-check key) form))) (compiler-macro (lambda (form) (keymap--compile-check key) form)))
(keymap--check key) (keymap--check key)
(when (eq after t) (setq after nil)) ; nil and t are treated the same
(when after (when after
(keymap--check after)) (keymap--check after))
(define-key-after keymap (key-parse key) definition (define-key-after keymap (key-parse key) definition