(process-kill-buffer-query-function): New function.

(add-hook)<kill-buffer-query-functions>: Add hook
`process-kill-buffer-query-function'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88406f24626bab5611de545cf3dc9cbcf19498d3..b13dd0a77199a5350474dcdb8bf9071e406a9823 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2009-07-18  Juri Linkov  <juri@jurta.org>
+
+       * info.el: Virtual Info keyword finder.
+       (add-to-list)<Info-virtual-files>: Add "\\`\\*Finder.*\\*\\'".
+       (Info-finder-file): New variable.
+       (Info-finder-find-file): New function.
+       (finder-known-keywords, finder-package-info)
+       (find-library-name, lm-commentary): Use defvar and
+       declare-function to silence compiler warnings.
+       (Info-finder-find-node): New function.
+       (info-finder): New command.
+
+       * subr.el (process-kill-buffer-query-function): New function.
+       (add-hook)<kill-buffer-query-functions>: Add hook
+       `process-kill-buffer-query-function'.
+
 2009-07-18  Alan Mackenzie  <acm@muc.de>
 
        * progmodes/cc-mode.el (c-before-hack-hook),

diff --git a/lisp/subr.el b/lisp/subr.el
index 777202cf1eea2982aeb56a36c123dce421f47906..37411bcb8adbfdfc688d7fe0fb9bb796815c6692 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1722,6 +1722,16 @@ Value is t if a query was formerly required."
     (set-process-query-on-exit-flag process nil)
     old))
 
+(defun process-kill-buffer-query-function ()
+  "Ask before killing a buffer that has a running process."
+  (let ((process (get-buffer-process (current-buffer))))
+    (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)
+
 ;; process plist management
 
 (defun process-get (process propname)