Add completion-predicate to the Corfu commands (Fix #35)completion-predicate

2 files changed, 11 insertions, 0 deletions

diff --git a/README.org b/README.org
index fd64b55..dfd3e15 100644
--- a/README.org
+++ b/README.org
@@ -104,6 +104,11 @@
       ;; TAB cycle if there are only few candidates
       (setq completion-cycle-threshold 3)
 
+      ;; Emacs 28: Hide commands in M-x which do not work in the current mode.
+      ;; Corfu commands are hidden, since they are not supposed to be used via M-x.
+      ;; (setq read-extended-command-predicate
+      ;;       #'command-completion-default-include-p)
+
       ;; Enable indentation+completion using the TAB key.
       ;; `completion-at-point' is often bound to M-TAB.
       (setq tab-always-indent 'complete))
diff --git a/corfu.el b/corfu.el
index 85b22ff..31b5df5 100644
--- a/corfu.el
+++ b/corfu.el
@@ -833,5 +833,11 @@ filter string with spaces is allowed."
               (memq major-mode corfu-excluded-modes))
     (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-complete corfu-insert corfu-scroll-up corfu-scroll-down
+               corfu-show-location corfu-show-documentation))
+  (put sym 'completion-predicate #'ignore))
+
 (provide 'corfu)
 ;;; corfu.el ends here