[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp files.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs/lisp files.el |
Date: |
Sat, 07 Feb 2009 10:23:45 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Eli Zaretskii <eliz> 09/02/07 10:23:45
Modified files:
lisp : files.el
Log message:
(save-buffer): Display "Saving file FOO..." message regardless of
buffer's size. (Bug#2137)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1032&r2=1.1033
Patches:
Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.1032
retrieving revision 1.1033
diff -u -b -r1.1032 -r1.1033
--- files.el 11 Jan 2009 16:45:52 -0000 1.1032
+++ files.el 7 Feb 2009 10:23:45 -0000 1.1033
@@ -4024,11 +4024,14 @@
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))))
- [Emacs-diffs] emacs/lisp files.el,
Eli Zaretskii <=