From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 18 Mar 1995 21:51:18 +0000 (+0000)
Subject: (write-file): Query if file exists already.
X-Git-Tag: emacs-19.34~4795
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b8b57db4a803f1bc8858a77714c0263021d1cf6;p=emacs.git

(write-file): Query if file exists already.
---

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))