branch: externals/consult
commit e0e45876c4503645474bf586c38ddb25691a8a3f
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Rename argument
---
consult.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/consult.el b/consult.el
index 6a1cb56632..a49d3f1af2 100644
--- a/consult.el
+++ b/consult.el
@@ -3334,18 +3334,18 @@ of functions and in `consult-completion-in-region'."
;; Use the `before-string' property since the overlay might be empty.
(overlay-put ov 'before-string cand)))))))
-(defun consult--in-region (start end collection predicate)
+(defun consult--in-region (start end table predicate)
"Internal `completion-in-region-function'.
-The arguments START, END, COLLECTION and PREDICATE and
+The arguments START, END, TABLE and PREDICATE and
expected return value are as specified for `completion-in-region'."
(barf-if-buffer-read-only)
(let* ((initial (buffer-substring-no-properties start end))
- (metadata (completion-metadata initial collection predicate))
+ (metadata (completion-metadata initial table predicate))
;; bug#75910: category instead of `minibuffer-completing-file-name'
(minibuffer-completing-file-name
(eq 'file (completion-metadata-get metadata 'category)))
(threshold (completion--cycle-threshold metadata))
- (all (completion-all-completions initial collection predicate
+ (all (completion-all-completions initial table predicate
(if (<= start (point) end)
(- (point) start)
(length initial))
@@ -3355,7 +3355,7 @@ expected return value are as specified for
`completion-in-region'."
(setcdr last nil))
(if (or (eq threshold t) (length< all (1+ (or threshold 1)))
(and completion-cycling completion-all-sorted-completions))
- (completion--in-region start end collection predicate)
+ (completion--in-region start end table predicate)
;; Wrap all annotation functions to ensure that they are executed
;; in the original buffer.
(let* ((exit-fun (plist-get completion-extra-properties :exit-function))
@@ -3379,7 +3379,7 @@ expected return value are as specified for
`completion-in-region'."
;; some completion tables in particular by lsp-mode.
;; See gh:minad/vertico#61.
(consult--read
- (consult--completion-table-in-buffer collection)
+ (consult--completion-table-in-buffer table)
:command #'consult-completion-in-region
:prompt (if (minibufferp)
;; Use existing minibuffer prompt and input
@@ -3398,7 +3398,7 @@ expected return value are as specified for
`completion-in-region'."
;; If completion is finished and cannot be further
;; completed, return `finished'. Otherwise return
;; `exact'.
- (if (eq (try-completion completion collection predicate) t)
+ (if (eq (try-completion completion table predicate) t)
'finished 'exact)))
t))))
