(comint-show-output): Adjust to stickiness changes of the output field.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1ed3e07e358b5dcaa95b86d52efefc8536f56de..37f06b10a844a55ac78dd6435a9e8440512aa114 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-09-28  Romain Francoise  <romain@orebokech.com>
 
+       * comint.el (comint-show-output): Adjust to stickiness changes of
+       the output field.
+
        * startup.el (command-line): Start the daemon server later.
 
 2008-09-28  Martin Rudalics  <rudalics@gmx.at>

diff --git a/lisp/comint.el b/lisp/comint.el
index c639053c1cac917cf011088adc8cbccd20d5cb59..1070652d777485a9c6f34e3bd93a3d566a31590c 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2125,11 +2125,7 @@ Sets mark to the value of point when this command is run."
           (set-window-start (selected-window) (point))
           (comint-skip-prompt))
          (t
-          (let* ((beg (field-beginning pos))
-                 (pt (if (= (point-min) beg)
-                         (point-min)
-                       (1+ beg))))
-            (goto-char pt))
+          (goto-char (field-beginning pos))
           (set-window-start (selected-window) (point))))))