diff lisp/comint.el @ 4947:e495404b5263

(comint-postoutput-scroll-to-bottom): Don't alter point in a window if it's after the process-mark.

--- 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.