branch: externals/corfu
commit 991224fc0387f005f4ffa896b35eca70b54c651a
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Revert "corfu-quick, corfu-info: Add completion declares"
This reverts commit 123eaaa4479f8d8a6116aecd81b8c98614e43493.
---
corfu.el | 4 +++-
extensions/corfu-info.el | 2 --
extensions/corfu-quick.el | 3 ---
3 files changed, 3 insertions(+), 6 deletions(-)
diff --git a/corfu.el b/corfu.el
index 2a9bd75de92..0a7e6311a37 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1416,7 +1416,9 @@ local `completion-at-point-functions'."
;; 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 ;; autoloads in
corfu-info.el
+ corfu-quick-jump corfu-quick-insert corfu-quick-complete)) ;;
autoloads in corfu-quick.el
(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 5b4f6d49925..48c68086970 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -70,7 +70,6 @@ Make the buffer persistent with NAME if non-nil."
(defun corfu-info-documentation (&optional arg)
"Show documentation of current candidate.
If called with a prefix ARG, the buffer is persistent."
- (declare (completion ignore))
(interactive "P")
;; Company support, taken from `company.el', see `company-show-doc-buffer'.
(when (< corfu--index 0)
@@ -91,7 +90,6 @@ If called with a prefix ARG, the buffer is persistent."
(defun corfu-info-location (&optional arg)
"Show location of current candidate.
If called with a prefix ARG, the buffer is persistent."
- (declare (completion ignore))
(interactive "P")
;; Company support, taken from `company.el', see `company-show-location'.
(when (< corfu--index 0)
diff --git a/extensions/corfu-quick.el b/extensions/corfu-quick.el
index 99e628b3650..6a66e7af974 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -115,7 +115,6 @@ TWO is non-nil if two keys should be displayed."
;;;###autoload
(defun corfu-quick-jump ()
"Jump to candidate using quick keys."
- (declare (completion ignore))
(interactive)
(when (fboundp 'corfu-echo--cancel)
(corfu-echo--cancel))
@@ -128,7 +127,6 @@ TWO is non-nil if two keys should be displayed."
;;;###autoload
(defun corfu-quick-insert ()
"Insert candidate using quick keys."
- (declare (completion ignore))
(interactive)
(when (corfu-quick-jump)
(corfu-insert)))
@@ -136,7 +134,6 @@ TWO is non-nil if two keys should be displayed."
;;;###autoload
(defun corfu-quick-complete ()
"Complete candidate using quick keys."
- (declare (completion ignore))
(interactive)
(when (corfu-quick-jump)
(corfu-complete)))
