awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix #4457: wrong-type-arg keymapp on C-i keybinds

Browse Source
This commit is contained in:
Henrik Lissner
2021-01-05 01:50:48 -05:00
parent 6ef517353b
commit da177d58c4
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/core-lib.el
View File

@ -99,10 +99,14 @@ at the values with which this function was called."
(if keymap (if keymap
(lookup-key keymap keys) (lookup-key keymap keys)
(cl-loop for keymap (cl-loop for keymap
in (append (mapcar #'cdr (mapcar #'symbol-value emulation-mode-map-alists)) in (append (cl-loop for alist in emulation-mode-map-alists
if (boundp alist)
append (mapcar #'cdr (symbol-value alist)))
(list (current-local-map)) (list (current-local-map))
(mapcar #'cdr minor-mode-overriding-map-alist)
(mapcar #'cdr minor-mode-alist) (mapcar #'cdr minor-mode-alist)
(list (current-global-map))) (list (current-global-map)))
if (keymapp keymap)
if (lookup-key keymap keys) if (lookup-key keymap keys)
return it))) return it)))