From b5a8e0fc22235ed2169d8a3d292a899a1fb118f6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 6 Aug 1994 03:19:35 +0000 Subject: [PATCH] (save-buffer): Unconditionally make a backup with 2 or 3 C-u's even if make-backup-files is nil. --- lisp/files.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.5