[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v
From: |
Sam Steingold |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,v |
Date: |
Tue, 18 Nov 2008 14:14:42 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Sam Steingold <sds> 08/11/18 14:14:41
Index: progmodes/compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.481
retrieving revision 1.482
diff -u -b -r1.481 -r1.482
--- progmodes/compile.el 17 Nov 2008 01:52:22 -0000 1.481
+++ progmodes/compile.el 18 Nov 2008 14:14:40 -0000 1.482
@@ -92,6 +92,17 @@
: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."
:type '(choice (const :tag "Default" nil)
@@ -1277,6 +1288,7 @@
(process-send-eof proc)
;; The process may have exited already.
(error nil)))
+ (run-hook-with-args 'compilation-start-hook proc)
(setq compilation-in-progress
(cons proc compilation-in-progress)))
;; No asynchronous processes available.