diff lisp/comint.el @ 31038:9e1d7707876b

(comint-output-filter): Compare end of comint-last-output-overlay with the start of the newly inserted text, not the end, when deciding whether to extend it. Set saved-point's insertion type to advance after insertion.
author Miles Bader <miles@gnu.org>
date Tue, 22 Aug 2000 10:09:56 +0000
parents c6ebff75e052
children f7d9dca2541e
line wrap: on
line diff
--- a/lisp/comint.el	Tue Aug 22 10:06:55 2000 +0000
+++ b/lisp/comint.el	Tue Aug 22 10:09:56 2000 +0000
@@ -1499,6 +1499,9 @@
 	      ;; fiddle with the point
 	      (saved-point (point-marker)))
 
+	  ;; The point should float after any insertion we do
+	  (set-marker-insertion-type saved-point t)
+
 	  ;; We temporarly remove any buffer narrowing, in case the
 	  ;; process mark is outside of the restriction
 	  (save-restriction
@@ -1516,7 +1519,7 @@
 	      ;; adjacent to the new input, and if so, just extend it.
 	      (if (and comint-last-output-overlay
 		       (equal (overlay-end comint-last-output-overlay)
-			      (point)))
+			      (marker-position comint-last-output-start)))
 		  ;; Extend comint-last-output-overlay to include the
 		  ;; most recent output
 		  (move-overlay comint-last-output-overlay