Fix #4457: broken key sequences ending with C-i

2021-01-03 22:40:06 -05:00 · 2021-01-03 22:40:06 -05:00 · a567834ff8
commit a567834ff8
parent 12d8691fa8
2 changed files with 21 additions and 5 deletions
--- a/core/core-lib.el
+++ b/core/core-lib.el
@ -94,6 +94,18 @@ at the values with which this function was called."
  (lambda (&rest pre-args)
    (apply fn (append pre-args args))))

+(defun doom-lookup-key (keys &optional keymap)
+  "Like `lookup-key', but search active keymaps if KEYMAP is omitted."
+  (if keymap
+      (lookup-key keymap keys)
+    (cl-loop for keymap
+             in (append (mapcar #'cdr (mapcar #'symbol-value emulation-mode-map-alists))
+                        (list (current-local-map))
+                        (mapcar #'cdr minor-mode-alist)
+                        (list (current-global-map)))
+             if (lookup-key keymap keys)
+             return it)))
+

 ;;
 ;;; Sugars