Commit 660394d1 authored by Miles Bader's avatar Miles Bader
Browse files

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

seem to be necessary.
parent 79e8dca7
2000-08-12 Miles Bader <miles@gnu.org> 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 * comint.el (comint-send-string, comint-send-region): Make into
real functions. Snapshot the prompt before sending. real functions. Snapshot the prompt before sending.
......
...@@ -1538,9 +1538,9 @@ This variable is permanent-local.") ...@@ -1538,9 +1538,9 @@ This variable is permanent-local.")
;; Highlight the prompt, where we define `prompt' to mean ;; Highlight the prompt, where we define `prompt' to mean
;; the most recent output that doesn't end with a newline. ;; the most recent output that doesn't end with a newline.
(unless (and (bolp) (null comint-last-prompt-overlay)) (unless (and (bolp) (null comint-last-prompt-overlay))
;; Need to create or move the prompt overlay (in the ;; Need to create or move the prompt overlay (in the case
;; case where's no prompt ((bolp) == t), we still do ;; where there is no prompt ((bolp) == t), we still do
;; this if there's already an existing overlay. ;; this if there's already an existing overlay).
(let ((prompt-start (save-excursion (forward-line 0) (point)))) (let ((prompt-start (save-excursion (forward-line 0) (point))))
(if comint-last-prompt-overlay (if comint-last-prompt-overlay
;; Just move an existing overlay ;; Just move an existing overlay
...@@ -1554,9 +1554,6 @@ This variable is permanent-local.") ...@@ -1554,9 +1554,6 @@ This variable is permanent-local.")
(overlay-put comint-last-prompt-overlay (overlay-put comint-last-prompt-overlay
'face 'comint-highlight-prompt-face))))) '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 (if (and comint-last-input-end
(marker-buffer comint-last-input-end) (marker-buffer comint-last-input-end)
(= (point) comint-last-input-end)) (= (point) comint-last-input-end))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment