[elpa] externals/dict-tree dd695da 147/154: Display more informative message during writing dict to file.

[Stefan Monnier]

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

    Display more informative message during writing dict to file.
---
 dict-tree.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/dict-tree.el b/dict-tree.el
index 18bf2a2..8124fea 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -3240,6 +3240,7 @@ and OVERWRITE is the prefix argument."
        (setf (dictree-name dict) dictname)
        (setf (dictree-filename dict) filename)
 
+       (message "Writing dictionary %s to %s..." dictname filename)
        (save-excursion
          ;; create a temporary file
          (setq buff
@@ -3275,7 +3276,7 @@ and OVERWRITE is the prefix argument."
 
        (setf (dictree-modified dict) nil))
       (delete-file tmpfile)
-      (message "Dictionary %s saved to %s" dictname filename)
+      (message "Writing dictionary %s to %s...done" dictname filename)
       t)  ; return t to indicate dictionary was successfully saved
     ))
 
@@ -3478,7 +3479,7 @@ is the prefix argument."
          (progn
            ;; transform trie to print form
            (trie-transform-for-print (dictree--trie tmpdict))
-           (insert "(setq " dictname " '")
+           (insert "(setq " dictname)
            (prin1 tmpdict (current-buffer))
            (insert ")\n"))
        ;; if dictionary doesn't use any custom save functions, tmpdict's trie