Commit b5a8e0fc authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

3 C-u's even if make-backup-files is nil.
parent 5da0f945
......@@ -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)
......
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