[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/saveplace.el,v
From: |
Karl Fogel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/saveplace.el,v |
Date: |
Sun, 02 Dec 2007 19:54:47 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Karl Fogel <kfogel> 07/12/02 19:54:47
Index: saveplace.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/saveplace.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- saveplace.el 26 Jul 2007 05:26:33 -0000 1.38
+++ saveplace.el 2 Dec 2007 19:54:45 -0000 1.39
@@ -119,6 +119,10 @@
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\\|\\(?:[^@/:address@hidden)?[^@/:]*[^@/:.]:\\)"
@@ -207,7 +211,8 @@
(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 @@
(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 @@
;; 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 @@
(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 ()
- [Emacs-diffs] Changes to emacs/lisp/saveplace.el,v,
Karl Fogel <=