From: Juri Linkov Date: Sat, 18 Jul 2009 21:06:04 +0000 (+0000) Subject: (process-kill-buffer-query-function): New function. X-Git-Tag: emacs-pretest-23.1.90~2113 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d842b103324ce58ddb78cf6f5ced7800a488fcb3;p=emacs.git (process-kill-buffer-query-function): New function. (add-hook): Add hook `process-kill-buffer-query-function'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 88406f24626..b13dd0a7719 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,19 @@ +2009-07-18 Juri Linkov + + * info.el: Virtual Info keyword finder. + (add-to-list): 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): Add hook + `process-kill-buffer-query-function'. + 2009-07-18 Alan Mackenzie * progmodes/cc-mode.el (c-before-hack-hook), diff --git a/lisp/subr.el b/lisp/subr.el index 777202cf1ee..37411bcb8ad 100644 --- 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)