Mercurial > emacs

diff lisp/files.el @ 8462:c281b470d633

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 4c6590fc242e
children 0b44462dbbc8
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)