[elpa] externals/dict-tree a07802a 057/154: Bug-fix to dictree-load, which was screwing around with dictree-file data

[Stefan Monnier]

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