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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult 8c94ab9b82 2/4: Rename consult--upgrading-locat


From: ELPA Syncer
Subject: [elpa] externals/consult 8c94ab9b82 2/4: Rename consult--upgrading-location-state
Date: Mon, 26 Sep 2022 15:57:26 -0400 (EDT)

branch: externals/consult
commit 8c94ab9b82ffee170c079eae0e7db688545d2fab
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Rename consult--upgrading-location-state
---
 consult.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/consult.el b/consult.el
index 11b3451442..be8824a50d 100644
--- a/consult.el
+++ b/consult.el
@@ -917,11 +917,10 @@ When no project is found and MAY-PROMPT is non-nil ask 
the user."
   (or (eq (selected-window) (active-minibuffer-window))
       (eq #'completion-list-mode (buffer-local-value 'major-mode 
(window-buffer)))))
 
-(defun consult--upgrading-location-state (candidates jump)
+(defun consult--location-upgrading-state (candidates state)
   "Location state function transformer.
-Transform the JUMP state function by upgrading the cheap location
-markers from CANDIDATES window selection change to full Emacs
-markers."
+Transform the STATE function. The cheap location markers from CANDIDATES are
+upgraded on window selection change to full Emacs markers."
   (let ((hook (make-symbol "consult--location-upgrade")))
     (fset hook
           (lambda (_)
@@ -932,13 +931,13 @@ markers."
       (pcase action
         ('setup (add-hook 'window-selection-change-functions hook))
         ('exit (remove-hook 'window-selection-change-functions hook)))
-      (funcall jump action cand))))
+      (funcall state action cand))))
 
 (defun consult--location-state (candidates)
   "Location state function.
 The cheap location markers from CANDIDATES are upgraded on window
 selection change to full Emacs markers."
-  (consult--upgrading-location-state candidates (consult--jump-state)))
+  (consult--location-upgrading-state candidates (consult--jump-state)))
 
 (defun consult--get-location (cand)
   "Return location from CAND."



reply via email to

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