# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 966044780 0
# Node ID c66efd78e8d499704f63989db76dd499e8dd1c99
# Parent  7dc7bfb39bca23f4b5592bc60ac3cd0777a022de
(comint-output-filter): Don't bother frobbing window-start, it doesn't
seem to be necessary.

diff -r 7dc7bfb39bca -r c66efd78e8d4 lisp/comint.el
--- a/lisp/comint.el	Fri Aug 11 19:17:18 2000 +0000
+++ b/lisp/comint.el	Sat Aug 12 01:46:20 2000 +0000
@@ -1538,9 +1538,9 @@
 	    ;; Highlight the prompt, where we define `prompt' to mean
 	    ;; the most recent output that doesn't end with a newline.
 	    (unless (and (bolp) (null comint-last-prompt-overlay))
-	      ;; Need to create or move the prompt overlay (in the
-	      ;; case where's no prompt ((bolp) == t), we still do
-	      ;; this if there's already an existing overlay.
+	      ;; Need to create or move the prompt overlay (in the case
+	      ;; where there is no prompt ((bolp) == t), we still do
+	      ;; this if there's already an existing overlay).
 	      (let ((prompt-start (save-excursion (forward-line 0) (point))))
 		(if comint-last-prompt-overlay
 		    ;; Just move an existing overlay
@@ -1554,9 +1554,6 @@
 		  (overlay-put comint-last-prompt-overlay
 			       'face 'comint-highlight-prompt-face)))))
 
-	  ;; Don't insert initial prompt outside the top of the window.
-	  (if (= (window-start (selected-window)) (point))
-	      (set-window-start (selected-window) (- (point) (length string))))
 	  (if (and comint-last-input-end
 		   (marker-buffer comint-last-input-end)
 		   (= (point) comint-last-input-end))