Commit 86a30352 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(save-buffer): Display "Saving file FOO..." message regardless of

buffer's size.  (Bug#2137)
parent b6d79b2f
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.
......
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment