branch: externals/corfu
commit 3ba98519998e67b493e454fc0c3971c206b11bf9
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Add corfu-mode-map
---
CHANGELOG.org | 1 +
corfu.el | 7 +++++--
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index f05c3fd31d..6aecdf0c4d 100644
--- 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
index e3b9c66a79..8a83726116 100644
--- 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
