Add corfu-mode-map

minad · Jul 14, 2023 · 3ba9851 · 3ba9851
1 parent 8344352
commit 3ba9851
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/CHANGELOG.org b/CHANGELOG.org
@@ -5,6 +5,7 @@
 * Development
 
 - =corfu-quick=: Bugfix.
+- =corfu-mode-map=: Add mode map.
 
 * Version 0.37 (2023-07-02)
 

diff --git a/corfu.el b/corfu.el
@@ -222,8 +222,11 @@ completion backend in use is expensive."
   '((t :inherit shadow :strike-through t))
   "Face used for deprecated candidates.")
 
+(defvar-keymap corfu-mode-map
+  :doc "Keymap used when `corfu-mode' is active.")
+
 (defvar-keymap corfu-map
-  :doc "Corfu keymap used when popup is shown."
+  :doc "Keymap used when popup is shown."
   "<remap> <move-beginning-of-line>" #'corfu-prompt-beginning
   "<remap> <move-end-of-line>" #'corfu-prompt-end
   "<remap> <beginning-of-buffer>" #'corfu-first
@@ -1232,7 +1235,7 @@ Quit if no candidate is selected."
 ;;;###autoload
 (define-minor-mode corfu-mode
   "COmpletion in Region FUnction."
-  :global nil :group 'corfu
+  :group 'corfu :keymap corfu-mode-map
   (cond
    (corfu-mode
     ;; FIXME: Install advice which fixes `completion--capf-wrapper', such that