Mercurial > emacs
changeset 75309:1639be32b082
(find-alternate-file): Revert query message to Emacs 21 version.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 20 Jan 2007 19:00:10 +0000 |
| parents | e42975cbd266 |
| children | 9ae2448b4995 |
| files | lisp/files.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sat Jan 20 19:00:00 2007 +0000 +++ b/lisp/files.el Sat Jan 20 19:00:10 2007 +0000 @@ -1223,11 +1223,11 @@ (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)