branch: externals/dict-tree
commit 57d59eb3c621c93a52cea300ddfec276566559ef
Author: Toby Cubitt <toby-predict...@dr-qubit.org>
Commit: tsc25 <toby-predict...@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)))))
