mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source 
buffer's size.  (Bug#2137)
This commit is contained in:
Eli Zaretskii 2009-02-07 10:25:06 +00:00
parent b6d79b2f06
commit 86a3035294
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

7
lisp/files.el
View File

@ -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))))