diff options
| author | Nicolas Petton <nicolas@petton.fr> | 2015-06-16 22:52:24 +0200 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2015-06-16 22:52:24 +0200 |
| commit | 3986489aef3779b299c099e077d91e0d4b09a2e5 (patch) | |
| tree | 6c3f0caab50475c0bd2cababbcc0a2a524d4ebbb /lisp | |
| parent | deb6e89caf2d134dbb05ea0d41178e6dc8bc989b (diff) | |
| download | emacs-3986489aef3779b299c099e077d91e0d4b09a2e5.tar.gz | |
Better confirmation message in `find-alternate-file' (Bug#20830)
* lisp/files.el (find-alternate-file'): Improve the confirmation
message to show the buffer name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 26f9f706c15..4656adac7b0 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1640,7 +1640,9 @@ killed." (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions) (user-error "Aborted")) (and (buffer-modified-p) buffer-file-name - (not (yes-or-no-p "Kill and replace the buffer without saving it? ")) + (not (yes-or-no-p + (format "Kill and replace buffer `%s' without saving it? " + (buffer-name)))) (user-error "Aborted")) (let ((obuf (current-buffer)) (ofile buffer-file-name) |