(comint-show-output): Really set point at the beginning of the output

when not using `comint-use-prompt-regexp'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c8606f34f516fd769626086539e2819994cf666b..a1c574298edeba1395da407d0aeefd099302b2d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-28  Romain Francoise  <romain@orebokech.com>
+
+       * comint.el (comint-show-output): Really set point at the
+       beginning of the output when not using `comint-use-prompt-regexp'.
+
 2005-09-27  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc-lang.el (math-oper-table): Raise the precedence of "/"

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