# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752891927 0
# Node ID e495404b52638c5f6205ebcbaa58ea4161b98bc2
# Parent  6aeb2c705774104dca19b57e0be03202f2a41671
(comint-postoutput-scroll-to-bottom):
Don't alter point in a window if it's after the process-mark.

diff -r 6aeb2c705774 -r e495404b5263 lisp/comint.el
--- a/lisp/comint.el	Wed Nov 10 00:03:54 1993 +0000
+++ b/lisp/comint.el	Wed Nov 10 00:38:47 1993 +0000
@@ -1197,14 +1197,14 @@
 	   (if (eq (window-buffer window) current)
 	       (progn
 		 (select-window window)
-		 (if (or (eq scroll t) (eq scroll 'all)
-			 ;; Maybe user wants point to jump to the end.
-			 (and (eq scroll 'this) (eq selected window))
-			 (and (eq scroll 'others) (not (eq selected window)))
-			 ;; If point was at the end, keep it at the end.
-			 (and (>= (point)
-				  (- (process-mark process) (length string)))
-			      (< (point) (process-mark process))))
+		 (if (and (< (point) (process-mark process))
+			  (or (eq scroll t) (eq scroll 'all)
+			      ;; Maybe user wants point to jump to the end.
+			      (and (eq scroll 'this) (eq selected window))
+			      (and (eq scroll 'others) (not (eq selected window)))
+			      ;; If point was at the end, keep it at the end.
+			      (>= (point)
+				  (- (process-mark process) (length string)))))
 		     (goto-char (process-mark process)))
 		 ;; Optionally scroll so that the text
 		 ;; ends at the bottom of the window.