# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1127929620 0
# Node ID e0ee2d15f961d1ef465cc8034da1ebd66bdec670
# Parent  b88d5090aa867962ed5d6f55937dc3d98d2c4399
(comint-show-output): Really set point at the beginning of the output
when not using `comint-use-prompt-regexp'.

diff -r b88d5090aa86 -r e0ee2d15f961 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Sep 28 10:48:20 2005 +0000
+++ b/lisp/ChangeLog	Wed Sep 28 17:47:00 2005 +0000
@@ -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 -r b88d5090aa86 -r e0ee2d15f961 lisp/comint.el
--- a/lisp/comint.el	Wed Sep 28 10:48:20 2005 +0000
+++ b/lisp/comint.el	Wed Sep 28 17:47:00 2005 +0000
@@ -2056,7 +2056,11 @@
 	   (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))))))