# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 855504230 0
# Node ID b0d8e7c0f90621320439a957ea6dfa0e0453d9c6
# Parent  100ef50c2c01b21a52f896ef437d758c12d3a3bb
* (compilation-process-setup-function): New variable.
(compile-internal): Call compilation-process-setup-function if
it is non-nil.

diff -r 100ef50c2c01 -r b0d8e7c0f906 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Feb 09 15:57:11 1997 +0000
+++ b/lisp/progmodes/compile.el	Sun Feb 09 16:03:50 1997 +0000
@@ -80,6 +80,13 @@
 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 @@
 	(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))