changeset 14260:4577848d3ef2

(compilation-handle-exit): Undo previous change. Don't reference `proc' object. Pass current buffer to `compilation-finish-function'.
author Karl Heuer <kwzh@gnu.org>
date Tue, 23 Jan 1996 17:51:09 +0000
parents c52f7f0d5fd5
children a1771f16cfb6
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- 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)