Move completion predicates of autoloaded commands to corfu.el

3 files changed, 3 insertions, 9 deletions

diff --git a/corfu.el b/corfu.el
index e3e7c14..6ba8532 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1392,7 +1392,9 @@ See `global-corfu-modes' and `global-corfu-minibuffer'."
 ;; Emacs 28: Do not show Corfu commands with M-X
 (dolist (sym '(corfu-next corfu-previous corfu-first corfu-last corfu-quit corfu-reset
                corfu-complete corfu-insert corfu-scroll-up corfu-scroll-down corfu-expand
-               corfu-send corfu-insert-separator corfu-prompt-beginning corfu-prompt-end))
+               corfu-send corfu-insert-separator corfu-prompt-beginning corfu-prompt-end
+               corfu-info-location corfu-info-documentation
+               corfu-quick-jump corfu-quick-insert corfu-quick-complete))
   (put sym 'completion-predicate #'ignore))
 
 (defun corfu--capf-wrapper-advice (orig fun which)
diff --git a/extensions/corfu-info.el b/extensions/corfu-info.el
index 7ef22c4..8ac668e 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -110,9 +110,5 @@ If called with a prefix ARG, the buffer is persistent."
             (set-window-start nil (point))))
       (user-error "No location available for `%s'" cand))))
 
-;; Emacs 28: Do not show Corfu commands with M-X
-(put #'corfu-info-location 'completion-predicate #'ignore)
-(put #'corfu-info-documentation 'completion-predicate #'ignore)
-
 (provide 'corfu-info)
 ;;; corfu-info.el ends here
diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index 1fc0534..8492387 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -146,9 +146,5 @@ TWO is non-nil if two keys should be displayed."
   (when (corfu-quick-jump)
     (corfu-complete)))
 
-;; Emacs 28: Do not show Corfu commands in M-X
-(dolist (sym '(corfu-quick-jump corfu-quick-insert corfu-quick-complete))
-  (put sym 'completion-predicate #'ignore))
-
 (provide 'corfu-quick)
 ;;; corfu-quick.el ends here