From: Miles Bader Date: Sat, 12 Aug 2000 01:48:25 +0000 (+0000) Subject: (comint-output-filter): Don't bother frobbing window-start, it doesn't X-Git-Tag: emacs-pretest-21.0.90~2343 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=660394d1fb180a9edd42b7a56be43cfdcd9f97e2;p=emacs.git (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 cfcdb82d84a..06ec05e464b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,7 @@ 2000-08-12 Miles Bader + + * 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 1f0845d9ade..c7762678dd4 100644 --- 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))