Commit 7c163413 authored by Roland McGrath's avatar Roland McGrath
Browse files

*** empty log message ***

parent c7663c14
...@@ -21,6 +21,11 @@ ...@@ -21,6 +21,11 @@
(provide 'compile) (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 (defconst compilation-window-height nil
"*Number of lines in a compilation window. If nil, use Emacs default.") "*Number of lines in a compilation window. If nil, use Emacs default.")
...@@ -101,8 +106,9 @@ are found.") ...@@ -101,8 +106,9 @@ are found.")
compilation. If REGEXP matches, the FILE-IDX'th subexpression gives the file compilation. If REGEXP matches, the FILE-IDX'th subexpression gives the file
name, and the LINE-IDX'th subexpression gives the line number.") name, and the LINE-IDX'th subexpression gives the line number.")
;;;###autoload
(defvar compilation-search-path '(nil) (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. Elements should be directory names, not file names of directories.
nil as an element means to try the default directory.") nil as an element means to try the default directory.")
...@@ -299,7 +305,9 @@ means the default). The defaults for these variables are the global values of ...@@ -299,7 +305,9 @@ means the default). The defaults for these variables are the global values of
"Major mode for compilation log buffers. "Major mode for compilation log buffers.
\\<compilation-mode-map>To visit the source for a line-numbered error, \\<compilation-mode-map>To visit the source for a line-numbered error,
move point to the error message line and type \\[compile-goto-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) (interactive)
(fundamental-mode) (fundamental-mode)
(use-local-map compilation-mode-map) (use-local-map compilation-mode-map)
...@@ -312,7 +320,8 @@ To kill the compilation, type \\[kill-compilation]." ...@@ -312,7 +320,8 @@ To kill the compilation, type \\[kill-compilation]."
(set (make-local-variable 'compilation-old-error-list) nil) (set (make-local-variable 'compilation-old-error-list) nil)
(set (make-local-variable 'compilation-parsing-end) 1) (set (make-local-variable 'compilation-parsing-end) 1)
(set (make-local-variable 'compilation-directory-stack) nil) (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. ;; Called when compilation process changes state.
(defun compilation-sentinel (proc msg) (defun compilation-sentinel (proc msg)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment