* (compilation-process-setup-function): New variable.

(compile-internal): Call compilation-process-setup-function if
it is non-nil.

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 046ce9631bf..a95d260daa6 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -80,6 +80,13 @@ It should read in the source files which have errors and set
 found.  See that variable for more info.")
 
 ;;;###autoload
+(defvar compilation-process-setup-function nil
+  "*Function to call to customize the compilation process.
+This functions is called immediately before the compilation process is
+started.  It can be used to set any variables or functions that are used
+while processing the output of the compilation process.")
+
+;;;###autoload
 (defvar compilation-buffer-name-function nil
   "Function to compute the name of a compilation buffer.
 The function receives one argument, the name of the major mode of the
@@ -457,6 +464,8 @@ Returns the compilation buffer created."
         (or (eq outwin (selected-window))
             (set-window-point outwin (point-min)))
         (compilation-set-window-height outwin)
+        (if compilation-process-setup-function
+            (funcall compilation-process-setup-function))
         ;; Start the compilation.
         (if (fboundp 'start-process)
             (let* ((process-environment (cons "EMACS=t" process-environment))