# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 797196320 0
# Node ID 8781025a14181c554af1a1ac2de245c7a962f032
# Parent  254a5316fc986bed9bd8175d4dfcf42be9fd1b65
(write-file): Fix arg count in call to y-or-n-p.

diff -r 254a5316fc98 -r 8781025a1418 lisp/files.el
--- a/lisp/files.el	Thu Apr 06 18:57:58 1995 +0000
+++ b/lisp/files.el	Thu Apr 06 19:25:20 1995 +0000
@@ -1354,7 +1354,7 @@
 	    (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)
+	    (or (y-or-n-p (format "File `%s' exists; overwrite? " filename))
 		(error "Canceled")))
 	(set-visited-file-name filename)))
   (set-buffer-modified-p t)