diff options
| author | Lars Magne Ingebrigtsen | 2011-09-11 05:35:02 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2011-09-11 05:35:02 +0200 |
| commit | da9fcb933d57d4d8803ccb59a0da072cd03e954f (patch) | |
| tree | 1bd305b1bf9994d61ccd7b1f6966e0c2e8f13970 /lisp/subr.el | |
| parent | 0b1c89c19afb8cc9132212279dc4a4a4927bb5d7 (diff) | |
| download | emacs-da9fcb933d57d4d8803ccb59a0da072cd03e954f.tar.gz emacs-da9fcb933d57d4d8803ccb59a0da072cd03e954f.zip | |
(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 c11db6ad949..0d8797b6f63 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1904,7 +1904,9 @@ Value is t if a query was formerly required." | |||
| 1904 | (or (not process) | 1904 | (or (not process) |
| 1905 | (not (memq (process-status process) '(run stop open listen))) | 1905 | (not (memq (process-status process) '(run stop open listen))) |
| 1906 | (not (process-query-on-exit-flag process)) | 1906 | (not (process-query-on-exit-flag process)) |
| 1907 | (yes-or-no-p "Buffer has a running process; kill it? ")))) | 1907 | (yes-or-no-p |
| 1908 | (format "Buffer %S has a running process; kill it? " | ||
| 1909 | (buffer-name (current-buffer))))))) | ||
| 1908 | 1910 | ||
| 1909 | (add-hook 'kill-buffer-query-functions 'process-kill-buffer-query-function) | 1911 | (add-hook 'kill-buffer-query-functions 'process-kill-buffer-query-function) |
| 1910 | 1912 | ||