[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/completions-highlight-modifications 8887eb1: Add parent maps
From: |
Jimmy Aguilar Mena |
Subject: |
feature/completions-highlight-modifications 8887eb1: Add parent maps |
Date: |
Sun, 15 Nov 2020 02:50:25 -0500 (EST) |
branch: feature/completions-highlight-modifications
commit 8887eb122539b80531412e898ffdaea7db83aac6
Author: Jimmy Aguilar Mena <spacibba@aol.com>
Commit: Jimmy Aguilar Mena <spacibba@aol.com>
Add parent maps
When completions-highlight-mode is enabled use
minibuffer-local-must-match-map as parent keymap.
(completions-highlight-minibuffer-map) : Enforces parent
minibuffer-local-must-match-map unconditionally.
(completions-highlight-completions-map) : Enforces
completion-list-mode-map as parent just in case.
---
lisp/completions-highlight.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/completions-highlight.el b/lisp/completions-highlight.el
index 624013b..b1d8ba3 100644
--- a/lisp/completions-highlight.el
+++ b/lisp/completions-highlight.el
@@ -177,6 +177,7 @@ suffix."
(defvar completions-highlight-minibuffer-map
(let ((map (make-sparse-keymap)))
+ (set-keymap-parent map minibuffer-local-must-match-map)
(define-key map [right] 'minibuffer-next-completion)
(define-key map [left] 'minibuffer-previous-completion)
(define-key map [down] 'minibuffer-next-line-completion)
@@ -186,6 +187,7 @@ suffix."
(defvar completions-highlight-completions-map
(let ((map (make-sparse-keymap)))
+ (set-keymap-parent map completion-list-mode-map)
(define-key map "\C-g" 'quit-window)
(define-key map [up] 'completions-highlight-previous-line-completion)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/completions-highlight-modifications 8887eb1: Add parent maps,
Jimmy Aguilar Mena <=