branch: externals/consult
commit 5b0836e7b0d2cfe910d4a5fefb2e8d51a12ba49f
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Minor cleanup
---
consult.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index 40f57ee..6025177 100644
--- a/consult.el
+++ b/consult.el
@@ -1928,8 +1928,9 @@ INHERIT-INPUT-METHOD, if non-nil the minibuffer inherits
the input method."
(funcall last-fun nil t))
;; Destruct all the sources, except the last and selected
source
(dolist (state states)
- (unless (or (eq (cdr state) last-fun) (eq (cdr state)
selected-fun))
- (funcall (cdr state) nil t)))
+ (let ((fun (cdr state)))
+ (unless (or (eq fun last-fun) (eq fun selected-fun))
+ (funcall fun nil t))))
;; Finally destruct the source with the selected candidate
(when selected-fun (funcall selected-fun cand t)))
;; If the candidate source changed during preview communicate to
