[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu c09cc41018: Rename functions, they update the ent
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu c09cc41018: Rename functions, they update the entire state |
Date: |
Thu, 13 Oct 2022 15:57:26 -0400 (EDT) |
branch: externals/corfu
commit c09cc41018f55c65844d31c7c42379ef740d3a3e
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Rename functions, they update the entire state
---
corfu.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/corfu.el b/corfu.el
index 2472f1f1fe..9a4b877537 100644
--- a/corfu.el
+++ b/corfu.el
@@ -617,8 +617,8 @@ A scroll bar is displayed from LO to LO+BAR."
(corfu--metadata-get 'display-sort-function)
corfu-sort-function))
-(defun corfu--recompute-candidates (str pt table pred)
- "Recompute candidates from STR, PT, TABLE and PRED."
+(defun corfu--recompute-state (str pt table pred)
+ "Recompute state from STR, PT, TABLE and PRED."
(pcase-let* ((before (substring str 0 pt))
(after (substring str pt))
(corfu--metadata (completion-metadata before table pred))
@@ -651,8 +651,8 @@ A scroll bar is displayed from LO to LO+BAR."
(test-completion str table pred)))
-1 0))))
-(defun corfu--update-candidates (str pt table pred)
- "Update candidates from STR, PT, TABLE and PRED."
+(defun corfu--update-state (str pt table pred)
+ "Interruptibly update state from STR, PT, TABLE and PRED."
;; Redisplay such that the input becomes immediately visible before the
;; expensive candidate recomputation is performed (Issue #48). See also
;; corresponding vertico#89.
@@ -661,7 +661,7 @@ A scroll bar is displayed from LO to LO+BAR."
;; Bind non-essential=t to prevent Tramp from opening new connections,
;; without the user explicitly requesting it via M-TAB.
(let ((non-essential t))
- (while-no-input (corfu--recompute-candidates str pt table pred)))
+ (while-no-input (corfu--recompute-state str pt table pred)))
('nil (keyboard-quit))
(`(,base ,candidates ,total ,hl ,metadata ,preselect)
(setq corfu--input (cons str pt)
@@ -859,7 +859,7 @@ there hasn't been any input, then quit."
((condition-case err
;; Only recompute when input changed
(unless (equal corfu--input (cons str pt))
- (corfu--update-candidates str pt table pred)
+ (corfu--update-state str pt table pred)
nil)
(error (corfu-quit)
(message "Corfu completion error: %s" (error-message-string
err)))))
@@ -1125,7 +1125,7 @@ Quit if no candidate is selected."
t)
(`(,newstr . ,newpt)
(pcase-let ((`(,base ,candidates ,total . ,_)
- (corfu--recompute-candidates str pt table pred)))
+ (corfu--recompute-state str pt table pred)))
(unless (markerp beg) (setq beg (copy-marker beg)))
(setq end (copy-marker end t)
completion-in-region--data (list beg end table pred))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/corfu c09cc41018: Rename functions, they update the entire state,
ELPA Syncer <=