[elpa] externals/dict-tree 57d59eb 021/154: Bug-fixes to predictive-auto-learn and read-dict.

[Stefan Monnier]

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

    Bug-fixes to predictive-auto-learn and read-dict.
---
 dict-tree.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/dict-tree.el b/dict-tree.el
index 7ee5bc1..5defb11 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -367,7 +367,6 @@ If START or END is negative, it counts from the end."
                  complete-cache-threshold
                  complete-ranked-cache-threshold
                  &aux
-                 (dictname (when name (symbol-name name)))
                  (dictlist
                   (mapcar
                    (lambda (dic)
@@ -519,6 +518,7 @@ If START or END is negative, it counts from the end."
 
 
 
+
 ;;; ================================================================
 ;;;      The public functions which operate on dictionaries
 
@@ -2761,15 +2761,16 @@ data can not be used to recreate the dictionary using
 
 Prompt with PROMPT. By default, return DEFAULT. If DICTLIST is
 supplied, only complete on dictionaries in that list."
-  (let (dictnames)
+  (let (dictnames dict)
     (mapc (lambda (dict)
            (unless (or (null (dictree-name dict))
                        (member (dictree-name dict) dictnames))
              (push (list (dictree-name dict)) dictnames)))
          (or dictlist dictree-loaded-list))
-    (eval (intern-soft
-          (completing-read prompt dictnames
-                           nil t nil 'dictree-history default)))))
+    (setq dict (completing-read prompt dictnames nil t nil
+                               'dictree-history default))
+    ;; needed to work around bug with (intern-soft "") under windoze
+    (unless (string= dict "") (eval (intern-soft dict)))))