procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* emacs-cvs/lisp/saveplace.el (save-place-quiet): Remove, reverting 2007-12-02T19:54:46Z!kfogel@red-bean.com.

Browse source 
(save-place-alist-to-file, load-save-place-alist-from-file): Don't
  print non-error messages at all, there's really no need.  Do print
  if there's a problem, and clarify message in that case.
This commit is contained in:
Karl Fogel 2007-12-03 21:37:30 +00:00
parent ca2fbc2e0b
commit bedb08d44f
2 changed files with 10 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2007-12-03 Karl Fogel <kfogel@red-bean.com>
* saveplace.el (save-place-quiet): Remove, reverting 2007-12-02T19:54:46Z!kfogel@red-bean.com.
(save-place-alist-to-file, load-save-place-alist-from-file):
Don't print non-error messages at all, there's really no need.
Do print if there's a problem, and clarify message in that case.
2007-12-03 Dan Nicolaescu <dann@ics.uci.edu>
* ediff-util.el (ediff-setup):

18
lisp/saveplace.el
View file

@ -119,10 +119,6 @@ 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\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)"
@ -212,8 +208,6 @@ may have changed\) back to `save-place-alist'."
(let ((file (expand-file-name save-place-file))
(coding-system-for-write 'utf-8))
(save-excursion
(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
@ -233,10 +227,8 @@ may have changed\) back to `save-place-alist'."
(condition-case nil
;; Don't use write-file; we don't want this buffer to visit it.
(write-region (point-min) (point-max) file)
(file-error (message "Can't write %s" file)))
(kill-buffer (current-buffer))
(unless save-place-quiet
(message "Saving places to %s...done" file))))))
(file-error (message "Saving places: can't write %s" file)))
(kill-buffer (current-buffer))))))
(defun load-save-place-alist-from-file ()
(if (not save-place-loaded)
@ -247,8 +239,6 @@ may have changed\) back to `save-place-alist'."
;; load it if it exists:
(if (file-readable-p file)
(save-excursion
(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*"))
@ -276,9 +266,7 @@ may have changed\) back to `save-place-alist'."
(setq count (1+ count)))
(setq s (cdr s))))))
(kill-buffer (current-buffer))
(unless save-place-quiet
(message "Loading places from %s...done" file))))
(kill-buffer (current-buffer))))
nil))))
(defun save-places-to-alist ()