[elpa] externals/vertico f558f53 04/48: extract minicomp--pred

[Stefan Monnier]

branch: externals/vertico
commit f558f53fbbc278350d91d2ddc9f87cfc736a85ba
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    extract minicomp--pred
    
    This seems to be faster than using a lambda. Is this possible? I am not 
familar
    enough with the bytecode interpreter internals...
    
    cc @clemera
---
 minicomp.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/minicomp.el b/minicomp.el
index f7fa5ba..e9204f3 100644
--- a/minicomp.el
+++ b/minicomp.el
@@ -110,6 +110,12 @@
 (defvar-local minicomp--keep nil
   "Keep current candidate index `minicomp--index'.")
 
+(defun minicomp--pred (x y)
+  "Compare X and Y."
+  (or (< (cdr x) (cdr y))
+      (and (= (cdr x) (cdr y))
+           (string< (car x) (car y)))))
+
 (defun minicomp--sort (candidates)
   "Sort CANDIDATES by history position, length and alphabetically."
   ;; History disabled if `minibuffer-history-variable' eq `t'.
@@ -134,12 +140,7 @@
                          (+ (lsh (gethash (car cand) hist hist-len) 13)
                             (length (car cand)))))
       (setq cand (cdr cand)))
-    (setq candidates
-          (sort candidates
-                (lambda (c1 c2)
-                  (or (< (cdr c1) (cdr c2))
-                      (and (= (cdr c1) (cdr c2))
-                           (string< (car c1) (car c2))))))
+    (setq candidates (sort candidates #'minicomp--pred)
           cand candidates)
     ;; Drop decoration from the candidates
     (while cand