From: David Engster <deng@randomsample.de>
Date: Sat, 5 Mar 2011 19:37:46 +0000 (-0500)
Subject: Make save-some-buffers message more informative (Bug#8134).
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~674^2~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c5f09daf79627a37d3eba0ec8c4cc0841007624d;p=emacs.git

Make save-some-buffers message more informative (Bug#8134).

* files.el (save-some-buffers): Report the names of buffers saved
automatically due to buffer-save-without-query.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb0e2f923c4..e0cdeae84af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-05  David Engster  <deng@randomsample.de>
+
+	* files.el (save-some-buffers): Report the names of buffers saved
+	automatically due to buffer-save-without-query (Bug#8134).
+
 2011-03-05  Deniz Dogan  <deniz.a.m.dogan@gmail.com>
 
 	* net/rcirc.el: Add QuakeNet authentication support.
diff --git a/lisp/files.el b/lisp/files.el
index 52ccbbf86dd..a236b337b35 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4609,14 +4609,14 @@ See `save-some-buffers-action-alist' if you want to
 change the additional actions you can take on files."
   (interactive "P")
   (save-window-excursion
-    (let* (queried some-automatic
+    (let* (queried autosaved-buffers
 	   files-done abbrevs-done)
       (dolist (buffer (buffer-list))
 	;; First save any buffers that we're supposed to save unconditionally.
 	;; That way the following code won't ask about them.
 	(with-current-buffer buffer
 	  (when (and buffer-save-without-query (buffer-modified-p))
-	    (setq some-automatic t)
+	    (push (buffer-name) autosaved-buffers)
 	    (save-buffer))))
       ;; Ask about those buffers that merit it,
       ;; and record the number thus saved.
@@ -4662,9 +4662,15 @@ change the additional actions you can take on files."
 	     (setq abbrevs-changed nil)
 	     (setq abbrevs-done t)))
       (or queried (> files-done 0) abbrevs-done
-	  (message (if some-automatic
-		       "(Some special files were saved without asking)"
-		     "(No files need saving)"))))))
+	  (cond
+	   ((null autosaved-buffers)
+	    (message "(No files need saving)"))
+	   ((= (length autosaved-buffers) 1)
+	    (message "(Saved %s)" (car autosaved-buffers)))
+	   (t
+	    (message "(Saved %d files: %s)"
+		     (length autosaved-buffers)
+		     (mapconcat 'identity autosaved-buffers ", "))))))))
 
 (defun not-modified (&optional arg)
   "Mark current buffer as unmodified, not needing to be saved.