# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 734216300 0
# Node ID fb350430116e0ca888b9440d1d9f69529d668fa2
# Parent  4d0d858bc33fdd2c90f0bf235b6d7c41282da123
(compile-internal): Initialize the process-mark.

diff -r 4d0d858bc33f -r fb350430116e lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed Apr 07 20:25:14 1993 +0000
+++ b/lisp/progmodes/compile.el	Wed Apr 07 20:58:20 1993 +0000
@@ -322,6 +322,7 @@
 					       command)))
 	(set-process-sentinel proc 'compilation-sentinel)
 	(set-process-filter proc 'compilation-filter)
+	(set-marker (process-mark proc) (point) outbuf)
 	(setq compilation-in-progress (cons proc compilation-in-progress))))
     ;; Make it so the next C-x ` will use this buffer.
     (setq compilation-last-buffer outbuf)))