Mercurial > emacs
changeset 30768:c66efd78e8d4
(comint-output-filter): Don't bother frobbing window-start, it doesn't
seem to be necessary.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 12 Aug 2000 01:46:20 +0000 |
| parents | 7dc7bfb39bca |
| children | 526b2501f5aa |
| files | lisp/comint.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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))