mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(save-buffer): Unconditionally make a backup with 2 or

Browse Source 
3 C-u's even if make-backup-files is nil.
This commit is contained in:
Richard M. Stallman 1994-08-06 03:19:35 +00:00
parent 5da0f9456d
commit b5a8e0fc22
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/files.el
View File

@ -1540,7 +1540,8 @@ If `delete-old-versions' is nil, system will query user
(interactive "p")
(let ((modp (buffer-modified-p))
(large (> (buffer-size) 50000))
(make-backup-files (and make-backup-files (not (eq args 0)))))
(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) (message "Saving file %s..." (buffer-file-name)))
(basic-save-buffer)