diff options
| author | Karl Fogel <kfogel@red-bean.com> | 2007-12-02 19:54:46 +0000 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 2007-12-02 19:54:46 +0000 |
| commit | dad9356322e49d12517a019d25c7806f1d9c384a (patch) | |
| tree | f1fdde3bff00c79f4383bbe067ee85405c303746 | |
| parent | ceabaeb3be461197bfc1c479f19c2163e78fa984 (diff) | |
| download | emacs-dad9356322e49d12517a019d25c7806f1d9c384a.tar.gz | |
Offer option for saveplace to be quiet about loading and saving.
Suggested by: David Reitter <dreitter{_AT_}inf.ed.ac.uk>
* lisp/saveplace.el (save-place-quiet): New customizable boolean.
(save-place-alist-to-file, load-save-place-alist-from-file): Use it
to determine whether to print loading/saving messages.
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/saveplace.el | 16 |
2 files changed, 21 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4024af1b9dd..206b2efa3c1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2007-12-02 Karl Fogel <kfogel@red-bean.com> + + Offer option for saveplace to be quiet about loading and saving. + Suggested by: David Reitter <dreitter{_AT_}inf.ed.ac.uk> + + * lisp/saveplace.el (save-place-quiet): New customizable boolean. + (save-place-alist-to-file, load-save-place-alist-from-file): Use it + to determine whether to print loading/saving messages. + 2007-12-02 Glenn Morris <rgm@gnu.org> * mail/binhex.el: Move here from gnus/. diff --git a/lisp/saveplace.el b/lisp/saveplace.el index b6f3a76ff23..f39a0776ca4 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -119,6 +119,10 @@ be checked, based on said regexp, and instead saved or forgotten based on this flag." :type 'boolean :group 'save-place) +(defcustom save-place-quiet nil + "If non-nil, suppress messages about loading and saving `save-place-alist'." + :type 'boolean :group 'save-place) + (defcustom save-place-skip-check-regexp ;; thanks to ange-ftp-name-format "\\`/\\(?:cdrom\\|floppy\\|mnt\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)" @@ -207,7 +211,8 @@ may have changed\) back to `save-place-alist'." (defun save-place-alist-to-file () (let ((file (expand-file-name save-place-file))) (save-excursion - (message "Saving places to %s..." file) + (unless save-place-quiet + (message "Saving places to %s..." file)) (set-buffer (get-buffer-create " *Saved Places*")) (delete-region (point-min) (point-max)) (when save-place-forget-unreadable-files @@ -227,7 +232,8 @@ may have changed\) back to `save-place-alist'." (write-region (point-min) (point-max) file) (file-error (message "Can't write %s" file))) (kill-buffer (current-buffer)) - (message "Saving places to %s...done" file))))) + (unless save-place-quiet + (message "Saving places to %s...done" file)))))) (defun load-save-place-alist-from-file () (if (not save-place-loaded) @@ -238,7 +244,8 @@ may have changed\) back to `save-place-alist'." ;; load it if it exists: (if (file-readable-p file) (save-excursion - (message "Loading places from %s..." file) + (unless save-place-quiet + (message "Loading places from %s..." file)) ;; don't want to use find-file because we have been ;; adding hooks to it. (set-buffer (get-buffer-create " *Saved Places*")) @@ -267,7 +274,8 @@ may have changed\) back to `save-place-alist'." (setq s (cdr s)))))) (kill-buffer (current-buffer)) - (message "Loading places from %s...done" file))) + (unless save-place-quiet + (message "Loading places from %s...done" file)))) nil)))) (defun save-places-to-alist () |