[elpa] externals/dict-tree 5f549f0 073/154: Bug-fixes to dictree--write-meta-dict-code

[Stefan Monnier]

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

    Bug-fixes to dictree--write-meta-dict-code
---
 dict-tree.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/dict-tree.el b/dict-tree.el
index ba1cf44..e17eac1 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -2885,12 +2885,12 @@ is the prefix argument."
       (setq hashcode
            (concat
             hashcode
-            "(let ((lookup-cache (make-hash-table :test 'equal)))\n"
+            "(let ((cache (make-hash-table :test 'equal)))\n"
             "  (mapc (lambda (entry)\n"
-            "    (puthash (car entry) (cdr entry) lookup-cache))\n"
+            "    (puthash (car entry) (cdr entry) cache))\n"
             "    (dictree--meta-dict-lookup-cache " dictname "))\n"
             "  (setf (dictree--meta-dict-lookup-cache " dictname ")\n"
-            "        lookup-cache))\n")))
+            "        cache))\n")))
 
     ;; convert query caches, if they exist
     (dolist (cache-details
@@ -2921,7 +2921,7 @@ is the prefix argument."
          hashcode
          "(let ((cache (make-hash-table :test 'equal)))\n"
          "  (mapc (lambda (entry)\n"
-         "    (puthash (car entry) (cdr entry) complete-cache))\n"
+         "    (puthash (car entry) (cdr entry) cache))\n"
          "    (" (symbol-name (nth 2 cache-details)) " "
                  dictname "))\n"
          "  (setf (" (symbol-name (nth 2 cache-details)) " "
@@ -2967,10 +2967,10 @@ is the prefix argument."
            "(require 'dict-tree)\n")
     (mapc
      (lambda (dic)
-       (insert "(unless (dictree-load " (dictree-filename dic) ")\n"
+       (insert "(unless (dictree-load \"" (dictree-filename dic) "\")\n"
               "        (error \"Failed to load dictionary \\\""
               (dictree-name dic) "\\\" required by meta-dict \\\""
-              dictname "\n"))
+              dictname "\\\"\"))\n"))
      (dictree--meta-dict-dictlist dict))
     (insert "(defvar " dictname " nil \"Dictionary " dictname ".\")\n"
            "(setq " dictname " '" (prin1-to-string tmpdict) ")\n"