From 52f84622279757f9bae4be9f54e6e0741edf5f89 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 23 Jan 1996 17:51:09 +0000 Subject: [PATCH] (compilation-handle-exit): Undo previous change. Don't reference `proc' object. Pass current buffer to `compilation-finish-function'. --- lisp/progmodes/compile.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 881fb5a2f93..3d57e0aa73e 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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) -- 2.39.2