[Top][All Lists]

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

[elpa] externals/ivy 7ba793d 2/2: Merge branch 'master' into externals/i

From: Basil L. Contovounesios
Subject: [elpa] externals/ivy 7ba793d 2/2: Merge branch 'master' into externals/ivy
Date: Tue, 27 Jul 2021 15:11:02 -0400 (EDT)

branch: externals/ivy
commit 7ba793d57e4a68b15b28874986d8e73b7cc1ee58
Merge: a524df6 031d4d0
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Merge branch 'master' into externals/ivy
 ivy.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/ivy.el b/ivy.el
index 908f399..659ba3e 100644
--- a/ivy.el
+++ b/ivy.el
@@ -5238,11 +5238,16 @@ EVENT gives the mouse position."
         (delete cand ivy-marked-candidates)))
 (defun ivy--mark (cand)
-  (let ((marked-cand (concat ivy-mark-prefix cand)))
+  (let ((marked-cand (copy-sequence (concat ivy-mark-prefix cand))))
+    ;; Primarily for preserving `idx'.  FIXME: the mark
+    ;; prefix shouldn't become part of the candidate!
+    (add-text-properties 0 (length ivy-mark-prefix)
+                         (text-properties-at 0 cand)
+                         marked-cand)
     (setcar (member cand ivy--all-candidates)
             (setcar (member cand ivy--old-cands) marked-cand))
     (setq ivy-marked-candidates
-          (append ivy-marked-candidates (list marked-cand)))))
+          (nconc ivy-marked-candidates (list marked-cand)))))
 (defun ivy-mark ()
   "Mark the selected candidate and move to the next one.

reply via email to

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