mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Make keymap-lookup work for keymap results, too

Browse Source 
* lisp/keymap.el (keymap-lookup): Make this function work for
non-symbol lookups, too (bug#52374).
This commit is contained in:
Lars Ingebrigtsen 2021-12-10 13:11:26 +01:00
parent e98ca32176
commit 79825f724f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/keymap.el
View File

@ -411,9 +411,10 @@ specified buffer position instead of point are used."
(error "Can't pass in both keymap and position"))
(if keymap
(let ((value (lookup-key keymap (key-parse key) accept-default)))
(when (and (not no-remap)
(if (and (not no-remap)
(symbolp value))
(or (command-remapping value) value)))
(or (command-remapping value) value)
value))
(key-binding (kbd key) accept-default no-remap position)))
(defun keymap-local-lookup (keys &optional accept-default)