From 7d531968e8872a9a8fc321a684167967c4cf2e19 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Tue, 16 Jul 2024 21:13:30 +0200 Subject: Move completion predicates of autoloaded commands to corfu.el --- corfu.el | 4 +++- extensions/corfu-info.el | 4 ---- extensions/corfu-quick.el | 4 ---- 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 -- cgit v1.0