From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 1 May 2024 16:59:45 +0000 (+0200)
Subject: ; Exclude a few more modes in 'global-completion-preview-mode'
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1382
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=fda9ecc150934ed438673c963e2c002674acfb60;p=emacs.git

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

* lisp/completion-preview.el (global-completion-preview-mode):
Exclude a few non-edit major modes whose definition sets
'major-mode' directly, rather than using 'define-derived-mode'.
---

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index e2012b0f80a..1f9ba2c3d7a 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -570,11 +570,15 @@ backward."
 ;;;###autoload
 (define-globalized-minor-mode global-completion-preview-mode
   completion-preview-mode completion-preview-mode
-  :predicate '((not compilation-mode
+  :predicate '((not archive-mode
+                    calc-mode
+                    compilation-mode
                     diff-mode
                     dired-mode
+                    image-mode
                     minibuffer-mode
                     minibuffer-inactive-mode
+                    org-agenda-mode
                     special-mode
                     wdired-mode)
                t))