[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105719: (process-kill-buffer-query-f
From: |
Lars Magne Ingebrigtsen |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105719: (process-kill-buffer-query-function): Mention the buffer name in the query. |
Date: |
Sun, 11 Sep 2011 05:35:02 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105719
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2011-09-11 05:35:02 +0200
message:
(process-kill-buffer-query-function): Mention the buffer name in the query.
modified:
lisp/ChangeLog
lisp/subr.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-09-11 02:56:39 +0000
+++ b/lisp/ChangeLog 2011-09-11 03:35:02 +0000
@@ -1,6 +1,8 @@
2011-09-11 Lars Magne Ingebrigtsen <address@hidden>
* subr.el (eval-after-load): Doc string clarification (bug#9125).
+ (process-kill-buffer-query-function): Mention the buffer name in
+ the query.
* image-mode.el (image-next-line): The line parameter is mandatory
(bug#9258).
=== modified file 'lisp/subr.el'
--- a/lisp/subr.el 2011-09-11 02:56:39 +0000
+++ b/lisp/subr.el 2011-09-11 03:35:02 +0000
@@ -1904,7 +1904,9 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105719: (process-kill-buffer-query-function): Mention the buffer name in the query.,
Lars Magne Ingebrigtsen <=