changeset 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 7c81a282d217
children d0bdb413e900
files lisp/ChangeLog lisp/comint.el
diffstat 2 files changed, 14 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Aug 22 10:06:55 2000 +0000
+++ b/lisp/ChangeLog	Tue Aug 22 10:09:56 2000 +0000
@@ -1,3 +1,13 @@
+2000-08-22  Miles Bader  <miles@lsi.nec.co.jp>
+
+	* comint.el (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.  
+
+	* shell.el (shell-font-lock-keywords): Remove prompt highlighting,
+	since this is now done independently of font-lock mode.
+
 2000-08-21  Gerd Moellmann  <gerd@gnu.org>
 
 	* server.el (server-kill-new-buffers): New user option.
--- 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