[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."