# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 699841688 0
# Node ID 505a9721e442b22fc6a0421af209bb15ca277065
# Parent  f4edd5fc98f63dd7e4e85625e8eadc6857a8be92
*** empty log message ***

diff -r f4edd5fc98f6 -r 505a9721e442 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu Mar 05 17:01:01 1992 +0000
+++ b/lisp/progmodes/compile.el	Fri Mar 06 00:28:08 1992 +0000
@@ -21,6 +21,11 @@
 
 (provide 'compile)
 
+;;;###autoload
+(defvar compilation-mode-hook nil
+  "*List of hook functions run by compilation-mode (see `run-hooks').")
+
+;;;###autoload
 (defconst compilation-window-height nil
   "*Number of lines in a compilation window.  If nil, use Emacs default.")
 
@@ -101,8 +106,9 @@
 compilation.  If REGEXP matches, the FILE-IDX'th subexpression gives the file
 name, and the LINE-IDX'th subexpression gives the line number.")
 
+;;;###autoload
 (defvar compilation-search-path '(nil)
-  "List of directories to search for source files named in error messages.
+  "*List of directories to search for source files named in error messages.
 Elements should be directory names, not file names of directories.
 nil as an element means to try the default directory.")
 
@@ -299,7 +305,9 @@
   "Major mode for compilation log buffers.
 \\<compilation-mode-map>To visit the source for a line-numbered error,
 move point to the error message line and type \\[compile-goto-error].
-To kill the compilation, type \\[kill-compilation]."
+To kill the compilation, type \\[kill-compilation].
+
+Runs `compilation-mode-hook' with `run-hooks' (which see)."
   (interactive)
   (fundamental-mode)
   (use-local-map compilation-mode-map)
@@ -312,7 +320,8 @@
   (set (make-local-variable 'compilation-old-error-list) nil)
   (set (make-local-variable 'compilation-parsing-end) 1)
   (set (make-local-variable 'compilation-directory-stack) nil)
-  (setq compilation-last-buffer (current-buffer)))
+  (setq compilation-last-buffer (current-buffer))
+  (run-hooks 'compilation-mode-hook))
 
 ;; Called when compilation process changes state.
 (defun compilation-sentinel (proc msg)