From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 24 Apr 2024 17:27:15 +0000 (+0200)
Subject: ; Exclude more modes in 'global-completion-preview-mode'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2862b3bc070305bcbcd3364160d4f38fb113152a;p=emacs.git

; Exclude more modes in 'global-completion-preview-mode'

Avoid activating Completion Preview mode in a few more major
modes when 'global-completion-preview-mode' is enabled.

* lisp/completion-preview.el (global-completion-preview-mode):
By default, exclude a few more major modes for which Completion
Preview mode isn't suitable.
---

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index 037594112c6..75e878133c7 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -569,7 +569,14 @@ backward."
 ;;;###autoload
 (define-globalized-minor-mode global-completion-preview-mode
   completion-preview-mode completion-preview-mode
-  :predicate '((not minibuffer-mode special-mode) t))
+  :predicate '((not compilation-mode
+                    diff-mode
+                    dired-mode
+                    minibuffer-mode
+                    minibuffer-inactive-mode
+                    special-mode
+                    wdired-mode)
+               t))
 
 (provide 'completion-preview)
 ;;; completion-preview.el ends here