# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776143175 0
# Node ID c281b470d63389361b321e272b7ca4b59bb8deab
# Parent  c88361c3b940e78785418601f5a899b873884368
(save-buffer): Unconditionally make a backup with 2 or
3 C-u's even if make-backup-files is nil.

diff -r c88361c3b940 -r c281b470d633 lisp/files.el
--- a/lisp/files.el	Sat Aug 06 02:58:22 1994 +0000
+++ b/lisp/files.el	Sat Aug 06 03:19:35 1994 +0000
@@ -1540,7 +1540,8 @@
   (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)