From 6b8b57db4a803f1bc8858a77714c0263021d1cf6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 18 Mar 1995 21:51:18 +0000 Subject: [PATCH] (write-file): Query if file exists already. --- lisp/files.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index be311583ec9..6abe596ef01 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1344,6 +1344,9 @@ old name in that directory." (if (and (file-directory-p filename) buffer-file-name) (setq filename (concat (file-name-as-directory filename) (file-name-nondirectory buffer-file-name)))) + (if (file-exists-p filename) + (or (y-or-n-p "File `%s' exists; overwrite? " filename) + (error "Canceled"))) (set-visited-file-name filename))) (set-buffer-modified-p t) (save-buffer)) -- 2.39.5