branch: externals/dict-tree
commit b6175f6d3ea6cbba109722102f1a6b9a05ed3610
Author: Toby Cubitt <toby-predict...@dr-qubit.org>
Commit: tsc25 <toby-predict...@dr-qubit.org>
Bug-fix to meta-dicts: don't add them to meta-dict-lists of constituent
lists if caching is disabled,
or they're unnamed (assumed to be temporary).
---
dict-tree.el | 18 ++++++++++++------
1 file changed, 12 insertions(+), 6 deletions(-)
diff --git a/dict-tree.el b/dict-tree.el
index d5e62f3..3c6cf84 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -852,12 +852,18 @@ The other arguments are as for `dictree-create'."
(unless (or (null name) unlisted)
(push dict dictree-loaded-list))
;; update meta-dict-list cells of constituent dictionaries
- (mapc
- (lambda (dic)
- (if (symbolp dic) (setq dic (eval dic)))
- (setf (dictree--meta-dict-list dic)
- (cons dict (dictree--meta-dict-list dic))))
- dictionary-list)
+ (unless (or (null name)
+ (not (or lookup-cache-threshold
+ complete-cache-threshold
+ complete-ranked-cache-threshold
+ wildcard-cache-threshold
+ wildcard-ranked-cache-threshold)))
+ (mapc
+ (lambda (dic)
+ (if (symbolp dic) (setq dic (eval dic)))
+ (setf (dictree--meta-dict-list dic)
+ (cons dict (dictree--meta-dict-list dic))))
+ dictionary-list))
dict))
