From 31d6ec41122eb901f3f478e9c8f300f9ea775b9a Mon Sep 17 00:00:00 2001 From: Jimmy Aguilar Mena Date: Sun, 15 Nov 2020 08:43:14 +0100 Subject: [PATCH] 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 624013b1c30..b1d8ba34e9e 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) -- 2.39.5