[elpa] externals/consult 5b0836e: Minor cleanup

[ELPA Syncer]

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