branch: externals/dict-tree
commit a07802a956745c74c29e46d196d5c8a9051848ff
Author: Toby Cubitt <toby-predict...@dr-qubit.org>
Commit: tsc25 <toby-predict...@dr-qubit.org>
Bug-fix to dictree-load, which was screwing around with dictree-file data
---
dict-tree.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/dict-tree.el b/dict-tree.el
index 17d686f..d5e62f3 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -2465,7 +2465,9 @@ Interactively, FILE is read from the mini-buffer."
;; ensure the dictionary name and file name associated with the
;; dictionary match the file it was loaded from
- (setf (dictree-filename dict) (expand-file-name file))
+ (when (and (string= (file-name-nondirectory file) file)
+ (setq file (locate-file file load-path load-suffixes)))
+ (setf (dictree-filename dict) file))
(setf (dictree-name dict) dictname)
;; make sure the dictionary is in dictree-loaded-list (normally the lisp
