(comint-output-filter): Don't bother frobbing window-start, it doesn't

seem to be necessary.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfcdb82d84a5bad0a770c708da5b2e1333eeded4..06ec05e464b0ab750b823bba0666d485b624696a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,7 @@
 2000-08-12  Miles Bader  <miles@gnu.org>
+       
+       * comint.el (comint-output-filter): Don't bother frobbing
+       window-start, it doesn't seem to be necessary.
 
        * comint.el (comint-send-string, comint-send-region): Make into
        real functions.  Snapshot the prompt before sending.

diff --git a/lisp/comint.el b/lisp/comint.el
index 1f0845d9adefd8e53a5ef801ae235dd8c943acd1..c7762678dd49a4914f602b5d60aa323d3a650bef 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1538,9 +1538,9 @@ This variable is permanent-local.")
            ;; 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 @@ This variable is permanent-local.")
                  (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))