diff options
| author | Nicolas Petton | 2015-06-16 22:52:24 +0200 |
|---|---|---|
| committer | Nicolas Petton | 2015-06-16 22:52:24 +0200 |
| commit | 3986489aef3779b299c099e077d91e0d4b09a2e5 (patch) | |
| tree | 6c3f0caab50475c0bd2cababbcc0a2a524d4ebbb | |
| parent | deb6e89caf2d134dbb05ea0d41178e6dc8bc989b (diff) | |
| download | emacs-3986489aef3779b299c099e077d91e0d4b09a2e5.tar.gz emacs-3986489aef3779b299c099e077d91e0d4b09a2e5.zip | |
Better confirmation message in `find-alternate-file' (Bug#20830)
* lisp/files.el (find-alternate-file'): Improve the confirmation
message to show the buffer name.
| -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." | |||
| 1640 | (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions) | 1640 | (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions) |
| 1641 | (user-error "Aborted")) | 1641 | (user-error "Aborted")) |
| 1642 | (and (buffer-modified-p) buffer-file-name | 1642 | (and (buffer-modified-p) buffer-file-name |
| 1643 | (not (yes-or-no-p "Kill and replace the buffer without saving it? ")) | 1643 | (not (yes-or-no-p |
| 1644 | (format "Kill and replace buffer `%s' without saving it? " | ||
| 1645 | (buffer-name)))) | ||
| 1644 | (user-error "Aborted")) | 1646 | (user-error "Aborted")) |
| 1645 | (let ((obuf (current-buffer)) | 1647 | (let ((obuf (current-buffer)) |
| 1646 | (ofile buffer-file-name) | 1648 | (ofile buffer-file-name) |