From: Miles Bader <miles@gnu.org>
Date: Wed, 18 Oct 2000 01:43:01 +0000 (+0000)
Subject: (comint-output-filter):
X-Git-Tag: emacs-pretest-21.0.90~793
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e317a4a3e28d1a425c41bf5d934e43832044767;p=emacs.git

(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.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 13b562bdf4a..dbcd6683fdf 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1517,8 +1517,13 @@ This variable is permanent-local.")
 	    ;; 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 @@ This variable is permanent-local.")
 		      (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 @@ Does not delete the prompt."
 	(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))