(compile-internal): Use point, not point-min, for set-window-point.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2311e789ea..82dc0171dcf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-01-03  Richard M. Stallman  <rms@gnu.org>
 
+        * progmodes/compile.el (compile-internal): Use point, not point-min,
+        for set-window-point.
+
         * textmodes/tex-mode.el (latex-find-indent): Avoid error at end of buf.
 
         * emacs-lisp/lisp-mnt.el (lm-section-end): require outline.
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 6d76fe3384a..de050411411 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -754,7 +754,7 @@ Returns the compilation buffer created."
               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