mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

Nikolaj Schumacher <n_schumacher at web.de> (tiny change)

Browse Source 
(compilation-handle-exit): `compilation-finish-function' may change
the current buffer.
This commit is contained in:
Glenn Morris 2007-05-23 08:09:37 +00:00
parent 1083cfb10e
commit bd40f902ad
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/progmodes/compile.el
View File

@ -1426,7 +1426,8 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
process-status exit-status msg)
(cons msg exit-status)))
(omax (point-max))
(opoint (point)))
(opoint (point))
(cur-buffer (current-buffer)))
;; Record where we put the message, so we can ignore it later on.
(goto-char omax)
(insert ?\n mode-name " " (car status))
@ -1447,8 +1448,8 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
(goto-char opoint))
(with-no-warnings
(if compilation-finish-function
(funcall compilation-finish-function (current-buffer) msg)))
(run-hook-with-args 'compilation-finish-functions (current-buffer) msg)))
(funcall compilation-finish-function cur-buffer msg)))
(run-hook-with-args 'compilation-finish-functions cur-buffer msg)))
;; Called when compilation process changes state.
(defun compilation-sentinel (proc msg)