emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vertico 5219e20 5/5: vertico-map: Use make-composed-key


From: Protesilaos Stavrou
Subject: [elpa] externals/vertico 5219e20 5/5: vertico-map: Use make-composed-keymap
Date: Mon, 12 Apr 2021 15:27:25 -0400 (EDT)

branch: externals/vertico
commit 5219e20e6896752a69a13f7dccc12be937e18080
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-map: Use make-composed-keymap
---
 vertico.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/vertico.el b/vertico.el
index 3409396..55d8742 100644
--- a/vertico.el
+++ b/vertico.el
@@ -88,8 +88,7 @@
   "Face used to highlight the currently selected candidate.")
 
 (defvar vertico-map
-  (let ((map (make-sparse-keymap)))
-    (set-keymap-parent map minibuffer-local-map)
+  (let ((map (make-composed-keymap nil minibuffer-local-map)))
     (define-key map [remap beginning-of-buffer] #'vertico-beginning-of-buffer)
     (define-key map [remap minibuffer-beginning-of-buffer] 
#'vertico-beginning-of-buffer)
     (define-key map [remap end-of-buffer] #'vertico-end-of-buffer)
@@ -104,7 +103,7 @@
     (define-key map [C-return] #'vertico-exit-input)
     (define-key map "\t" #'vertico-insert)
     map)
-  "Minibuffer keymap.")
+  "Vertico minibuffer keymap derived from `minibuffer-local-map'.")
 
 (defvar-local vertico--highlight #'identity
   "Deferred candidate highlighting function.")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]