* riece.el (riece-save-variables-files): Display message

[riece] / lisp / riece.el

diff --git a/lisp/riece.el b/lisp/riece.el
index 75356bd..8f80cec 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -249,6 +249,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
 (defvar print-escape-multibyte)
 (defun riece-save-variables-files ()
   "Save current settings to `riece-saved-variables-file'."
+  (message (riece-mcat "Saving %s...") riece-saved-variables-file)
   (with-temp-file riece-saved-variables-file
     (insert ";;; This file is generated automatically by " riece-version ".\n"
            ";;; Do not edit this file!\n\n")
@@ -264,6 +265,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
               (current-buffer))
        (insert "\n")
        (setq variables (cdr variables)))))
+  (message (riece-mcat "Saving %s...done") riece-saved-variables-file)
   (setq riece-save-variables-are-dirty nil))
 
 ;;;###autoload