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

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index d2926b00c5a1c79b49d71940589ccd087e6df6da..41004803a2b6bd68e0f86152cbd3044ce769d55a 100644 (file)
--- 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))