From dd93e6daf75d71797fa6f03719d5890d269b2cb4 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 18 Nov 2008 14:14:37 +0000 Subject: (compilation-start-hook): New hook. (compilation-start): Run it on the compilation process. --- lisp/progmodes/compile.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'lisp/progmodes') diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index f29c93f5ff..9993f1197c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -91,6 +91,17 @@ :type 'hook :group 'compilation) +;;;###autoload +(defcustom compilation-start-hook nil + "List of hook functions run by `compilation-start' on the compilation process. +\(See `run-hook-with-args'). +If you use \"omake -P\" and do not want \\[save-buffers-kill-terminal] to ask whether you want +the compilation to be killed, you can use this hook: + (add-hook 'compilation-start-hook + (lambda (process) (set-process-query-on-exit-flag process nil)) nil t)" + :type 'hook + :group 'compilation) + ;;;###autoload (defcustom compilation-window-height nil "Number of lines in a compilation window. If nil, use Emacs default." @@ -1277,7 +1288,8 @@ Returns the compilation buffer created." (process-send-eof proc) ;; The process may have exited already. (error nil))) - (setq compilation-in-progress + (run-hook-with-args 'compilation-start-hook proc) + (setq compilation-in-progress (cons proc compilation-in-progress))) ;; No asynchronous processes available. (message "Executing `%s'..." command) -- cgit v1.2.3