Give Completion Preview active bindings higher precedence

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index 530b116da7c5c1ca99017dcbdad999097b94bc4f..744ca004e76f7d66be94156d8fdadd90e841e743 100644 (file)
--- 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