changeset 8462:c281b470d633

(save-buffer): Unconditionally make a backup with 2 or 3 C-u's even if make-backup-files is nil.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Aug 1994 03:19:35 +0000
parents c88361c3b940
children e0f2f3fc75fa
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)