]> git.eshelyaron.com Git - emacs.git/commitdiff
Handle after arg correctly in `keymap-set-after'
authorRobert Pluim <rpluim@gmail.com>
Thu, 19 Jan 2023 13:34:10 +0000 (14:34 +0100)
committerRobert Pluim <rpluim@gmail.com>
Fri, 20 Jan 2023 14:14:44 +0000 (15:14 +0100)
* lisp/keymap.el (keymap-set-after): AFTER: t means the same as nil,
so just change it to nil.  (Bug#60867)

lisp/keymap.el

index 315eaab756023ad9cae3f8e3d73b4f8246c1a372..2caaafabb942f8e3aa830919146d8e5c40077e01 100644 (file)
@@ -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