[elpa] externals/dict-tree b7173e8 152/154: Fix lexical binding bugs.

[Stefan Monnier]

branch: externals/dict-tree
commit b7173e80475693a4124cd5668a8e0641ec5745a3
Author: Toby S. Cubitt <toby-predictive@dr-qubit.org>
Commit: Toby S. Cubitt <toby-predictive@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