From dad9356322e49d12517a019d25c7806f1d9c384a Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Sun, 2 Dec 2007 19:54:46 +0000 Subject: [PATCH] Offer option for saveplace to be quiet about loading and saving. Suggested by: David Reitter * 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. --- lisp/ChangeLog | 9 +++++++++ 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 + + Offer option for saveplace to be quiet about loading and saving. + Suggested by: David Reitter + + * 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 * 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 () -- 2.39.2