[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico 7240bc9 1/3: vertico--move-to-front: Handle dup
From: |
Protesilaos Stavrou |
Subject: |
[elpa] externals/vertico 7240bc9 1/3: vertico--move-to-front: Handle duplicate identical elements gracefully |
Date: |
Sun, 11 Apr 2021 09:17:39 -0400 (EDT) |
branch: externals/vertico
commit 7240bc9d8aa679b312270b106f58f0ae0951a540
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
vertico--move-to-front: Handle duplicate identical elements gracefully
This failed before `(completing-read "Test: " (list dup dup))`
---
vertico.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/vertico.el b/vertico.el
index 188b3b7..7e7c247 100644
--- a/vertico.el
+++ b/vertico.el
@@ -228,8 +228,9 @@
(defun vertico--move-to-front (elem list)
"Move ELEM to front of LIST."
- (if-let (head (car (member elem list)))
- (nconc (list head) (delq head list))
+ (if-let (found (member elem list))
+ (let ((head (list (car found))))
+ (nconc head (delq (setcar found nil) list)))
list))
(defun vertico--file-predicate ()