branch: externals/corfu
commit f03165f31dcf597ead351fe99494c8c321b9875a
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
corfu--move-to-front: Simplify
---
corfu.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/corfu.el b/corfu.el
index 139743f001..efdac24378 100644
--- a/corfu.el
+++ b/corfu.el
@@ -531,8 +531,7 @@ A scroll bar is displayed from LO to LO+BAR."
(defun corfu--move-to-front (elem list)
"Move ELEM to front of LIST."
(if-let (found (member elem list))
- (let ((head (list (car found))))
- (nconc head (delq (setcar found nil) list)))
+ (nconc (list (car found)) (delq (setcar found nil) list))
list))
;; bug#47711: Deferred highlighting for `completion-all-completions'
