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

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

[elpa] externals/ivy-hydra c83f6bc 088/395: ivy.el (ivy-call): Don't mod


From: Basil L. Contovounesios
Subject: [elpa] externals/ivy-hydra c83f6bc 088/395: ivy.el (ivy-call): Don't modify ivy-marked-candidates
Date: Thu, 25 Feb 2021 08:31:37 -0500 (EST)

branch: externals/ivy-hydra
commit c83f6bc0faa84398968e988d7fbc5a09a7aecbcd
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    ivy.el (ivy-call): Don't modify ivy-marked-candidates
    
    Re #2398
---
 ivy.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ivy.el b/ivy.el
index c90276b..fdabb01 100644
--- a/ivy.el
+++ b/ivy.el
@@ -1465,15 +1465,15 @@ will be called for each element of this list.")
              (set-buffer (ivy-state-buffer ivy-last))
              (prog1 (unwind-protect
                          (if ivy-marked-candidates
-                             (let ((prefix-len (length ivy-mark-prefix)))
-                               (setq ivy-marked-candidates
-                                     (mapcar (lambda (s) (substring s 
prefix-len))
-                                             ivy-marked-candidates))
+                             (let* ((prefix-len (length ivy-mark-prefix))
+                                    (marked-candidates (mapcar
+                                                        (lambda (s) (substring 
s prefix-len))
+                                                        
ivy-marked-candidates)))
                                (if (ivy-state-multi-action ivy-last)
                                    (funcall
                                     (ivy-state-multi-action ivy-last)
-                                    ivy-marked-candidates)
-                                 (dolist (c ivy-marked-candidates)
+                                    marked-candidates)
+                                 (dolist (c marked-candidates)
                                    (let ((default-directory 
(ivy-state-directory ivy-last)))
                                      (funcall action c)))))
                            (funcall action x))



reply via email to

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