Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
86a30352
Commit
86a30352
authored
Feb 07, 2009
by
Eli Zaretskii
Browse files
(save-buffer): Display "Saving file FOO..." message regardless of
buffer's size. (Bug#2137)
parent
b6d79b2f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
2 deletions
+10
-2
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/files.el
lisp/files.el
+5
-2
No files found.
lisp/ChangeLog
View file @
86a30352
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.
...
...
lisp/files.el
View file @
86a30352
...
...
@@ -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))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment