procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix keymap-lookup implementation

Browse source 
* lisp/keymap.el (keymap-lookup): Make this actually work for
looking up keys.
This commit is contained in:
Lars Ingebrigtsen 2021-12-04 05:24:54 +01:00
parent 6042417664
commit 55ff91e822
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/keymap.el
View file

@ -407,10 +407,10 @@ be a number or marker, in which case the keymap properties at the
specified buffer position instead of point are used."
(declare (compiler-macro (lambda (form) (keymap--compile-check key) form)))
(keymap--check key)
(when (and keymap (not position))
(when (and keymap position)
(error "Can't pass in both keymap and position"))
(if keymap
(let ((value (lookup-key (key-parse key) keymap accept-default)))
(let ((value (lookup-key keymap (key-parse key) accept-default)))
(when (and (not no-remap)
(symbolp value))
(or (command-remapping value) value)))