diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-01-20 19:00:10 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-01-20 19:00:10 +0000 |
| commit | 38fde45ded42e7ad23ac95c799f1abaa8b953b77 (patch) | |
| tree | 904a814b06285acb6d4d86c7808786470d567f46 /lisp | |
| parent | 07c7c7fe6e50d8db70090890a492af668d957c20 (diff) | |
| download | emacs-38fde45ded42e7ad23ac95c799f1abaa8b953b77.tar.gz | |
(find-alternate-file): Revert query message to Emacs 21 version.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index 80df0d898d3..9ef93757000 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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) |