branch: externals/dict-tree
commit b7173e80475693a4124cd5668a8e0641ec5745a3
Author: Toby S. Cubitt <toby-predict...@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predict...@dr-qubit.org>
Fix lexical binding bugs.
---
dict-tree.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/dict-tree.el b/dict-tree.el
index 2a6793f..e181665 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -1313,29 +1313,29 @@ Otherwise, return nil."
;; synchronize query caches if something's actually changed
(when (or deleted (not (equal olddata newdata)))
(dolist (cachefuns
- '((dictree-complete-cache
+ `((dictree-complete-cache
dictree--synchronize-completion-cache
dictree--prefix-p)
(dictree-regexp-cache
dictree--synchronize-regexp-cache
- (lambda (regexp key)
- (tNFA-regexp-match
- regexp key :test (trie--construct-equality-function
- (dictree--comparison-function dict)))))
+ ,(lambda (regexp key)
+ (tNFA-regexp-match
+ regexp key :test (trie--construct-equality-function
+ (dictree--comparison-function dict)))))
(dictree-fuzzy-match-cache
dictree--synchronize-fuzzy-match-cache
- (lambda (string dist key)
- (if (consp dist)
- (<= (Lewenstein-distance (substring string (car dist))
key)
- (cdr dist))
- (<= (Lewenstein-distance string key) dist))))
+ ,(lambda (string dist key)
+ (if (consp dist)
+ (<= (Lewenstein-distance (substring string (car dist))
key)
+ (cdr dist))
+ (<= (Lewenstein-distance string key) dist))))
(dictree-fuzzy-complete-cache
dictree--synchronize-fuzzy-complete-cache
- (lambda (prefix dist key)
- (if (consp dist)
- (<= (Lewenstein-distance (substring prefix (car dist))
key)
- (cdr dist))
- (<= (Lewenstein-distance prefix key) dist))))
+ ,(lambda (prefix dist key)
+ (if (consp dist)
+ (<= (Lewenstein-distance (substring prefix (car dist))
key)
+ (cdr dist))
+ (<= (Lewenstein-distance prefix key) dist))))
))
(when (funcall (nth 0 cachefuns) dict)
(maphash
