From: Eshel Yaron <me@eshelyaron.com>
Date: Mon, 18 Nov 2024 13:02:20 +0000 (+0100)
Subject: Give Completion Preview active bindings higher precedence
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92429cdda75de077e695bd5bace616e3f5791caa;p=emacs.git

Give Completion Preview active bindings higher precedence
---

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index 530b116da7c..744ca004e76 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -367,7 +367,10 @@ set to the value of this option while the completion preview is visible."
                    (= (point) (completion-preview--get 'completion-preview-end)))
           (completion-preview--modify-cursor))
         (setq completion-preview--window (selected-window)
-              completion-preview--buffer (current-buffer)))
+              completion-preview--buffer (current-buffer))
+        (setf (alist-get 'completion-preview-active-mode
+                         minor-mode-overriding-map-alist)
+              completion-preview-active-mode-map))
     (remove-hook 'post-command-hook #'completion-preview--cleanup)
     (completion-preview--restore-cursor)
     (setq completion-preview--window nil