# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822419469 0
# Node ID 4577848d3ef255d5e89d8cfa815a0c9addec90ea
# Parent  c52f7f0d5fd5cdf951b0e63055f270c34b8faf5f
(compilation-handle-exit): Undo previous change.
Don't reference `proc' object.
Pass current buffer to `compilation-finish-function'.

diff -r c52f7f0d5fd5 -r 4577848d3ef2 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Jan 23 17:44:58 1996 +0000
+++ b/lisp/progmodes/compile.el	Tue Jan 23 17:51:09 1996 +0000
@@ -599,18 +599,13 @@
     (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)