branch: externals/corfu
commit 123eaaa4479f8d8a6116aecd81b8c98614e43493
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
corfu-quick, corfu-info: Add completion declares
---
corfu.el | 4 +---
extensions/corfu-info.el | 2 ++
extensions/corfu-quick.el | 3 +++
3 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/corfu.el b/corfu.el
index 0a7e6311a37..2a9bd75de92 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1416,9 +1416,7 @@ 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-info-location corfu-info-documentation ;; autoloads in
corfu-info.el
- corfu-quick-jump corfu-quick-insert corfu-quick-complete)) ;;
autoloads in corfu-quick.el
+ corfu-send corfu-insert-separator corfu-prompt-beginning
corfu-prompt-end))
(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 48c68086970..5b4f6d49925 100644
--- a/extensions/corfu-info.el
+++ b/extensions/corfu-info.el
@@ -70,6 +70,7 @@ 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)
@@ -90,6 +91,7 @@ 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 6a66e7af974..99e628b3650 100644
--- a/extensions/corfu-quick.el
+++ b/extensions/corfu-quick.el
@@ -115,6 +115,7 @@ 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))
@@ -127,6 +128,7 @@ 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)))
@@ -134,6 +136,7 @@ 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)))
