diff options
| -rw-r--r-- | corfu.el | 4 | ||||
| -rw-r--r-- | extensions/corfu-info.el | 4 | ||||
| -rw-r--r-- | extensions/corfu-quick.el | 4 |
3 files changed, 3 insertions, 9 deletions
@@ -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 |