branch: externals/hotfuzz
commit 70ab03cc86e330d3de841d279f02ac21b27501f2
Author: Axel Forsman <[email protected]>
Commit: Axel Forsman <[email protected]>
Undecorate sort key in-place
---
hotfuzz.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/hotfuzz.el b/hotfuzz.el
index 5db7888aff..8dc76dbd3a 100644
--- a/hotfuzz.el
+++ b/hotfuzz.el
@@ -152,8 +152,9 @@ will lead to inaccuracies."
((or (null all) (string= needle "")))
(use-module-p (setq all (hotfuzz--filter-c needle all
completion-ignore-case)))
((> (length needle) hotfuzz--max-needle-len))
- (t (cl-loop for x in-ref all do (setf x (cons (hotfuzz--cost needle x) x))
- finally (setq all (mapcar #'cdr (sort all
#'car-less-than-car))))))
+ (t (cl-loop for x in-ref all do (setf x (cons (hotfuzz--cost needle x)
x)))
+ (cl-loop for y in-ref (setq all (sort all #'car-less-than-car))
+ do (setf y (cdr y)))))
(setq hotfuzz--filtering-p (not (string= needle "")))
(defvar completion-lazy-hilit-fn) ; Introduced in Emacs 30 (bug#47711)
(if (bound-and-true-p completion-lazy-hilit)
