From: Richard M. Stallman Date: Sat, 6 Aug 1994 03:19:35 +0000 (+0000) Subject: (save-buffer): Unconditionally make a backup with 2 or X-Git-Tag: emacs-19.34~7391 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5a8e0fc22235ed2169d8a3d292a899a1fb118f6;p=emacs.git (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 7350d73dfee..d227c84a2bb 100644 --- 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)