diff options
| -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." | |||
| 1223 | (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions) | 1223 | (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions) |
| 1224 | (error "Aborted")) | 1224 | (error "Aborted")) |
| 1225 | (when (and (buffer-modified-p) (buffer-file-name)) | 1225 | (when (and (buffer-modified-p) (buffer-file-name)) |
| 1226 | (if (yes-or-no-p (format "Buffer %s is modified; save it first? " | 1226 | (if (yes-or-no-p (format "Buffer %s is modified; kill anyway? " |
| 1227 | (buffer-name))) | 1227 | (buffer-name))) |
| 1228 | (save-buffer) | 1228 | (unless (yes-or-no-p "Kill and replace the buffer without saving it? ") |
| 1229 | (unless (yes-or-no-p "Kill and replace the buffer without saving it? ") | 1229 | (error "Aborted")) |
| 1230 | (error "Aborted")))) | 1230 | (save-buffer))) |
| 1231 | (let ((obuf (current-buffer)) | 1231 | (let ((obuf (current-buffer)) |
| 1232 | (ofile buffer-file-name) | 1232 | (ofile buffer-file-name) |
| 1233 | (onum buffer-file-number) | 1233 | (onum buffer-file-number) |