# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1222621008 0
# Node ID 8f747339c80cb79cc2b72a58c25023fa7af9ef05
# Parent  2fee4892d51ae4b546a4c07855417ebccac4ad7c
(comint-show-output): Adjust to stickiness changes of the output field.

diff -r 2fee4892d51a -r 8f747339c80c lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 28 09:37:09 2008 +0000
+++ b/lisp/ChangeLog	Sun Sep 28 16:56:48 2008 +0000
@@ -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 -r 2fee4892d51a -r 8f747339c80c lisp/comint.el
--- a/lisp/comint.el	Sun Sep 28 09:37:09 2008 +0000
+++ b/lisp/comint.el	Sun Sep 28 16:56:48 2008 +0000
@@ -2125,11 +2125,7 @@
 	   (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))))))