emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dict-tree 1e5b3f6 130/154: Fix bug in dictree--wrap-fuz


From: Stefan Monnier
Subject: [elpa] externals/dict-tree 1e5b3f6 130/154: Fix bug in dictree--wrap-fuzzy-rankfun wrapping.
Date: Mon, 14 Dec 2020 12:22:00 -0500 (EST)

branch: externals/dict-tree
commit 1e5b3f6d5838f300ac2ac054c3a600e8a0fdca4e
Author: Toby S. Cubitt <toby-predictive@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predictive@dr-qubit.org>

    Fix bug in dictree--wrap-fuzzy-rankfun wrapping.
---
 dict-tree.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/dict-tree.el b/dict-tree.el
index c8359e6..f10ed16 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -315,12 +315,12 @@ If START or END is negative, it counts from the end."
     (defun dictree--wrap-fuzzy-rankfun (rankfun)  ; INTERNAL USE ONLY
       (lambda (a b)
        (funcall rankfun
-                (cons (nth 0 (car a)) (dictree--cell-data (cdr a)))
-                (cons (nth 0 (car b)) (dictree--cell-data (cdr b))))))
+                (cons (car a) (dictree--cell-data (cdr a)))
+                (cons (car b) (dictree--cell-data (cdr b))))))
   (defun dictree--wrap-fuzzy-rankfun (rankfun)  ; INTERNAL USE ONLY
     `(lambda (a b)
-       (,rankfun (cons (nth 0 (car a)) (dictree--cell-data (cdr a)))
-                (cons (nth 0 (car b)) (dictree--cell-data (cdr b)))))))
+       (,rankfun (cons (car a) (dictree--cell-data (cdr a)))
+                (cons (car b) (dictree--cell-data (cdr b)))))))
 
 ;; return wrapped sortfun to ignore fuzzy query distance data
 (trie--if-lexical-binding



reply via email to

[Prev in Thread] Current Thread [Next in Thread]