Commit 52f84622 authored by Karl Heuer's avatar Karl Heuer
Browse files

(compilation-handle-exit): Undo previous change.

Don't reference `proc' object.
Pass current buffer to `compilation-finish-function'.
parent 38a9722f
......@@ -599,18 +599,13 @@ See `compilation-mode'."
(forward-char -1)
(insert " at " (substring (current-time-string) 0 19))
(forward-char 1)
(setq mode-line-process
(format ":%s [%s]"
(if (fboundp 'process-status)
(process-status proc)
"")
(cdr status)))
(setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
;; Force mode line redisplay soon.
(force-mode-line-update)
(if (and opoint (< opoint omax))
(goto-char opoint))
(if compilation-finish-function
(funcall compilation-finish-function buffer msg))))
(funcall compilation-finish-function (current-buffer) msg))))
;; Called when compilation process changes state.
(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