[Top][All Lists]

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

[elpa] externals/consult 5b0836e: Minor cleanup

From: ELPA Syncer
Subject: [elpa] externals/consult 5b0836e: Minor cleanup
Date: Mon, 12 Jul 2021 09:57:07 -0400 (EDT)

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

    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 
                 (dolist (state states)
-                  (unless (or (eq (cdr state) last-fun) (eq (cdr state) 
-                    (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

reply via email to

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