mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(write-file): Fix arg count in call to y-or-n-p.

Browse Source
This commit is contained in:
Karl Heuer 1995-04-06 19:25:20 +00:00
parent 8843589021
commit 4891222c9e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/files.el
View File

@ -1354,7 +1354,7 @@ old name in that directory."
(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)