[elpa] externals/dict-tree 608fcd4 049/154: Bug-fix to dictree--write-dict-code

[Stefan Monnier]

branch: externals/dict-tree
commit 608fcd4d40984fcc43ab6cdba2453577017de28a
Author: Toby Cubitt <toby-predictive@dr-qubit.org>
Commit: tsc25 <toby-predictive@dr-qubit.org>

    Bug-fix to dictree--write-dict-code
---
 dict-tree.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/dict-tree.el b/dict-tree.el
index 904ef25..8e597ee 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -1177,8 +1177,8 @@ TEST returns non-nil."
            (cond
             ;; if updating dirty cache entries...
             ((eq (dictree-cache-update-policy dict) 'synchronize)
-             (dictree--synchronize-query-cache dict cache cache-entry
-                                               arg reverse key newdata 
deleted))
+             (dictree--synchronize-query-cache
+              dict cache cache-entry arg reverse key newdata deleted))
             ;; if deleting dirty cache entries...
             (t (remhash (cons arg reverse) cache)))))))
 
@@ -1977,6 +1977,7 @@ Returns nil if the stack is empty."
     ))
 
 
+
 (defun dictree--do-query (dict arg triefun stackfun
                          &optional
                          rank-function maxnum reverse filter)
@@ -2525,7 +2526,7 @@ is the prefix argument."
          "      cache))\n"
          "   (" (symbol-name (nth 2 cache-details)) " " dictname "))\n"
          "  (setf (" (symbol-name (nth 2 cache-details)) " " dictname ")\n"
-         "        lookup-cache))\n"
+         "        cache))\n"
          ))
        ))
 
@@ -2637,8 +2638,8 @@ is the prefix argument."
             "  (mapc (lambda (entry)\n"
             "    (puthash (car entry) (cdr entry) lookup-cache))\n"
             "    (dictree--meta-dict-lookup-cache " dictname "))\n"
-            "  (setf (dictree--meta-dict-lookup-cache " dictname ")"
-                   " lookup-cache))\n")))
+            "  (setf (dictree--meta-dict-lookup-cache " dictname ")\n"
+            "        lookup-cache))\n")))
 
     ;; convert query caches, if they exist
     (dolist (cache-details
@@ -2671,8 +2672,8 @@ is the prefix argument."
          "  (mapc (lambda (entry)\n"
          "    (puthash (car entry) (cdr entry) complete-cache))\n"
          "    (" (symbol-name (nth 2 cache-details)) " " dictname "))\n"
-         "  (setf (" (symbol-name (nth 2 cache-details)) " " dictname ")"
-                " cache))\n"))))
+         "  (setf (" (symbol-name (nth 2 cache-details)) " " dictname ")\n"
+         "        cache))\n"))))
 
 
     ;; --- write to file ---