Mercurial > emacs
changeset 32598:b7462e534fdc
(comint-output-filter):
Fixup comint-last-input-end too.
Remove commented-out call to force-mode-line-update.
(comint-kill-output):
Use `forward-line 0' instead of beginning-of-line to make sure we get
past the prompt.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 18 Oct 2000 01:43:01 +0000 |
| parents | df31899ab320 |
| children | 0db9e380f3ec |
| files | lisp/comint.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Tue Oct 17 22:48:39 2000 +0000 +++ b/lisp/comint.el Wed Oct 18 01:43:01 2000 +0000 @@ -1517,8 +1517,13 @@ ;; Fixup markers and overlays that got screwed up because we ;; used `insert-before-markers'. (let ((old-point (- (point) (length string)))) - ;; comint-last-output-start marker + ;; comint-last-output-start (set-marker comint-last-output-start old-point) + ;; comint-last-input-end + (when (and comint-last-input-end + (equal (marker-position comint-last-input-end) + (point))) + (set-marker comint-last-input-end old-point)) ;; No overlays we create are set to advance upon insertion ;; (at the start/end), so we assume that any overlay which ;; is at the current point was incorrectly advanced by @@ -1579,8 +1584,6 @@ (overlay-put over 'rear-nonsticky t) (setq comint-last-prompt-overlay over)))))) - ;;(force-mode-line-update) - (goto-char saved-point) (run-hook-with-args 'comint-output-filter-functions string))))))) @@ -1875,7 +1878,7 @@ (replacement nil)) (save-excursion (let ((pmark (progn (goto-char (process-mark proc)) - (beginning-of-line nil) + (forward-line 0) (point-marker)))) (delete-region comint-last-input-end pmark) (goto-char (process-mark proc))