mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(find-alternate-file): Revert query message to Emacs 21 version.

Browse source
This commit is contained in:
Chong Yidong 2007-01-20 19:00:10 +00:00
parent 07c7c7fe6e
commit 38fde45ded
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/files.el
View file

@ -1223,11 +1223,11 @@ killed."
(unless (run-hook-with-args-until-failure 'kill-buffer-query-functions)
(error "Aborted"))
(when (and (buffer-modified-p) (buffer-file-name))
(if (yes-or-no-p (format "Buffer %s is modified; save it first? "
(if (yes-or-no-p (format "Buffer %s is modified; kill anyway? "
(buffer-name)))
(save-buffer)
(unless (yes-or-no-p "Kill and replace the buffer without saving it? ")
(error "Aborted"))))
(unless (yes-or-no-p "Kill and replace the buffer without saving it? ")
(error "Aborted"))
(save-buffer)))
(let ((obuf (current-buffer))
(ofile buffer-file-name)
(onum buffer-file-number)