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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2311e789ea45a96c73cee9a88dfb36aaec907da..82dc0171dcf5a36afbc82d825b836d3c3d47a3a3 100644 (file)
--- 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 6d76fe3384aad7bceaef559bb848fca41e174bcb..de050411411f0991a1f3f9f79cb9e7958696d365 100644 (file)
--- 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