emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]