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

3 C-u's even if make-backup-files is nil.

diff --git a/lisp/files.el b/lisp/files.el
index 7350d73dfee4b81f905a9b5a0379c1858db14c98..d227c84a2bb62f08edbf1834443291f176af498c 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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)