[elpa] externals/vertico 7240bc9 1/3: vertico--move-to-front: Handle duplicate identical elements gracefully

[Protesilaos Stavrou]

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