Introduce global-corfu-modesglobal-modes

1 files changed, 6 insertions, 9 deletions

diff --git a/corfu.el b/corfu.el
index c6265db..a5b3135 100644
--- a/corfu.el
+++ b/corfu.el
@@ -123,10 +123,6 @@ separator: Only stay alive if there is no match and
 `corfu-separator' has been inserted."
   :type '(choice boolean (const separator)))
 
-(defcustom corfu-exclude-modes nil
-  "List of modes excluded by `global-corfu-mode'."
-  :type '(repeat symbol))
-
 (defcustom corfu-left-margin-width 0.5
   "Width of the left margin in units of the character width."
   :type 'float)
@@ -1272,14 +1268,15 @@ Quit if no candidate is selected."
     (kill-local-variable 'completion-in-region-function))))
 
 ;;;###autoload
-(define-globalized-minor-mode global-corfu-mode corfu-mode corfu--on :group 'corfu)
+(compat-call define-globalized-minor-mode global-corfu-mode
+  corfu-mode corfu--on
+  :predicate t
+  :group 'corfu)
 
 (defun corfu--on ()
   "Turn `corfu-mode' on."
-  (unless (or noninteractive
-              (eq (aref (buffer-name) 0) ?\s)
-              (apply #'derived-mode-p corfu-exclude-modes))
-    (corfu-mode 1)))
+  (unless (or noninteractive (eq (aref (buffer-name) 0) ?\s)
+    (corfu-mode 1))))
 
 ;; Emacs 28: Do not show Corfu commands with M-X
 (dolist (sym '(corfu-next corfu-previous corfu-first corfu-last corfu-quit corfu-reset