From 5484005d7bc868a49fe53018030a94e384d4bd52 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 22 Aug 2000 10:09:56 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 10 ++++++++++ lisp/comint.el | 5 ++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7de63e94e5..9bc3ac19985 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2000-08-22 Miles Bader + + * 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 * server.el (server-kill-new-buffers): New user option. diff --git a/lisp/comint.el b/lisp/comint.el index 8ed39e1c57f..29217719166 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1499,6 +1499,9 @@ This variable is permanent-local.") ;; 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 @@ This variable is permanent-local.") ;; 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 -- 2.39.2