diff options
| author | Lars Magne Ingebrigtsen <[email protected]> | 2011-09-11 05:35:02 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <[email protected]> | 2011-09-11 05:35:02 +0200 |
| commit | da9fcb933d57d4d8803ccb59a0da072cd03e954f (patch) | |
| tree | 1bd305b1bf9994d61ccd7b1f6966e0c2e8f13970 /lisp/subr.el | |
| parent | 0b1c89c19afb8cc9132212279dc4a4a4927bb5d7 (diff) | |
(process-kill-buffer-query-function): Mention the buffer name in the query.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index c11db6ad94..0d8797b6f6 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1904,7 +1904,9 @@ Value is t if a query was formerly required." (or (not process) (not (memq (process-status process) '(run stop open listen))) (not (process-query-on-exit-flag process)) - (yes-or-no-p "Buffer has a running process; kill it? ")))) + (yes-or-no-p + (format "Buffer %S has a running process; kill it? " + (buffer-name (current-buffer))))))) (add-hook 'kill-buffer-query-functions 'process-kill-buffer-query-function) |