procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(compilation-finish-functions): New variable.

Browse source 
(compilation-handle-exit): Run compilation-finish-functions.
This commit is contained in:
Richard M. Stallman 1996-09-01 20:23:30 +00:00
parent 20ddcdc068
commit 4cc36b1786
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/progmodes/compile.el
View file

@ -80,6 +80,12 @@ nil means compute the name with `(concat \"*\" (downcase major-mode) \"*\")'.")
It is called with two arguments: the compilation buffer, and a string
describing how the process finished.")
;;;###autoload
(defvar compilation-finish-functions nil
"*Functions to call when a compilation process finishes.
Each function is called with two arguments: the compilation buffer,
and a string describing how the process finished.")
(defvar compilation-last-buffer nil
"The most recent compilation buffer.
A buffer becomes most recent when its compilation is started
@ -613,7 +619,11 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
(if (and opoint (< opoint omax))
(goto-char opoint))
(if compilation-finish-function
(funcall compilation-finish-function (current-buffer) msg))))
(funcall compilation-finish-function (current-buffer) msg))
(let ((functions compilation-finish-functions))
(while functions
(funcall (car functions) (current-buffer) msg)
(setq functions (cdr functions))))))
;; Called when compilation process changes state.
(defun compilation-sentinel (proc msg)