Commit dd93e6da authored by Sam Steingold's avatar Sam Steingold

(compilation-start-hook): New hook.

(compilation-start): Run it on the compilation process.
parent 8999d86f
2008-11-18 Sam Steingold <sds@gnu.org>
* progmodes/compile.el (compilation-start-hook): New hook.
(compilation-start): Run it on the compilation process.
2008-11-18 Juanma Barranquero <lekktu@gmail.com>
* international/mule-cmds.el (update-leim-list-file): Simplify.
......
......@@ -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)
......
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