From 91c95d33eb2e465a95af4061d9cd40738bf55959 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 1 May 2024 18:59:45 +0200
Subject: [PATCH] ; Exclude a few more modes in
 'global-completion-preview-mode'

---
 lisp/completion-preview.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index d2926b00c5a..41004803a2b 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -637,11 +637,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))
-- 
2.39.5