# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1073169483 0
# Node ID 9c894a0b07df0ba8af912f5504f14e799880301c
# Parent  6861a5210fdb189596a2d22f615ed06d1b1d3a83
(compile-internal): Use point, not point-min, for set-window-point.

diff -r 6861a5210fdb -r 9c894a0b07df lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Jan 03 21:17:51 2004 +0000
+++ b/lisp/progmodes/compile.el	Sat Jan 03 22:38:03 2004 +0000
@@ -754,7 +754,7 @@
 	      compilation-directory-stack (list default-directory))
 	(set-window-start outwin (point-min))
 	(or (eq outwin (selected-window))
-	    (set-window-point outwin (point-min)))
+	    (set-window-point outwin (point)))
 	;; The setup function is called before compilation-set-window-height
 	;; so it can set the compilation-window-height buffer locally.
 	(if compilation-process-setup-function