Better process-kill-query prompt

[Lars Magne Ingebrigtsen]

Would installing the following patch be OK?  It would aid debugging
greatly if people can report back what the name of the buffer is that
Emacs is trying to kill.

=== modified file 'lisp/subr.el'
*** lisp/subr.el        2011-09-05 08:05:01 +0000
--- lisp/subr.el        2011-09-11 00:44:03 +0000
***************
*** 1904,1910 ****
      (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? "))))
  
  (add-hook 'kill-buffer-query-functions 'process-kill-buffer-query-function)
  
--- 1904,1911 ----
      (or (not process)
          (not (memq (process-status process) '(run stop open listen)))
          (not (process-query-on-exit-flag process))
!         (yes-or-no-p "Buffer \"%s\" has a running process; kill it? "
!                    (buffer-name)))))
  
  (add-hook 'kill-buffer-query-functions 'process-kill-buffer-query-function)
  



-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/