From 86a3035294b4d9190a92d275573cca67d7c9ff2e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 7 Feb 2009 10:25:06 +0000 Subject: [PATCH] (save-buffer): Display "Saving file FOO..." message regardless of buffer's size. (Bug#2137) --- lisp/ChangeLog | 5 +++++ lisp/files.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + + * files.el (save-buffer): Display "Saving file FOO..." message + regardless of buffer's size. (Bug#2137) + 2009-02-07 Chong Yidong * 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)))) -- 2.39.5