From da177d58c4c1d58b7258226ef2603b9cbd527a2c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 5 Jan 2021 01:50:48 -0500 Subject: [PATCH] Fix #4457: wrong-type-arg keymapp on C-i keybinds --- core/core-lib.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/core/core-lib.el b/core/core-lib.el index eed0837ab..cc330d903 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -99,10 +99,14 @@ at the values with which this function was called." (if keymap (lookup-key keymap keys) (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)) + (mapcar #'cdr minor-mode-overriding-map-alist) (mapcar #'cdr minor-mode-alist) (list (current-global-map))) + if (keymapp keymap) if (lookup-key keymap keys) return it)))