From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 7 Feb 2009 10:25:06 +0000 (+0000)
Subject: (save-buffer): Display "Saving file FOO..." message regardless of
X-Git-Tag: emacs-pretest-23.0.91~366
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86a3035294b4d9190a92d275573cca67d7c9ff2e;p=emacs.git

(save-buffer): Display "Saving file FOO..." message regardless of
buffer's size.  (Bug#2137)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4eb5162505e..9857fe591fe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-07  Eli Zaretskii  <eliz@gnu.org>
+
+	* files.el (save-buffer): Display "Saving file FOO..." message
+	regardless of buffer's size.  (Bug#2137)
+
 2009-02-07  Chong Yidong  <cyd@stupidchicken.com>
 
 	* simple.el (line-move-visual): Handle overflow-newline-into-fringe.
diff --git a/lisp/files.el b/lisp/files.el
index e846d5d2ba4..eed4b041811 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4024,11 +4024,14 @@ If `vc-make-backup-files' is nil, which is the default,
 See the subroutine `basic-save-buffer' for more information."
   (interactive "p")
   (let ((modp (buffer-modified-p))
-	(large (> (buffer-size) 50000))
 	(make-backup-files (or (and make-backup-files (not (eq args 0)))
 			       (memq args '(16 64)))))
     (and modp (memq args '(16 64)) (setq buffer-backed-up nil))
-    (if (and modp large (buffer-file-name))
+    ;; We used to display the message below only for files > 50KB, but
+    ;; then Rmail-mbox never displays it due to buffer swapping.  If
+    ;; the test is ever re-introduced, be sure to handle saving of
+    ;; Rmail files.
+    (if (and modp (buffer-file-name))
 	(message "Saving file %s..." (buffer-file-name)))
     (basic-save-buffer)
     (and modp (memq args '(4 64)) (setq buffer-backed-up nil))))