[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/ivy 7ba793d 2/2: Merge branch 'master' into externals/ivy,
Basil L. Contovounesios <=