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.

diff --git a/lisp/completions-highlight.el b/lisp/completions-highlight.el
index 624013b1c306919567332c4133bb0af3bbf93886..b1d8ba34e9e47b571da02f9e0f3ebff5149dc0a7 100644 (file)
--- 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)