aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2000-08-22 10:09:56 +0000
committerMiles Bader2000-08-22 10:09:56 +0000
commit5484005d7bc868a49fe53018030a94e384d4bd52 (patch)
treefdf48b524bb11d5ccfd4cfe9e4eee7394f08964d
parentcb6e07b14f390dc6cbc89b37a35a0cb665f79ece (diff)
downloademacs-5484005d7bc868a49fe53018030a94e384d4bd52.tar.gz
emacs-5484005d7bc868a49fe53018030a94e384d4bd52.zip
(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.
-rw-r--r--lisp/ChangeLog10
-rw-r--r--lisp/comint.el5
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7de63e94e5..9bc3ac19985 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
12000-08-22 Miles Bader <miles@lsi.nec.co.jp>
2
3 * comint.el (comint-output-filter): Compare end of
4 comint-last-output-overlay with the start of the newly inserted
5 text, not the end, when deciding whether to extend it.
6 Set saved-point's insertion type to advance after insertion.
7
8 * shell.el (shell-font-lock-keywords): Remove prompt highlighting,
9 since this is now done independently of font-lock mode.
10
12000-08-21 Gerd Moellmann <gerd@gnu.org> 112000-08-21 Gerd Moellmann <gerd@gnu.org>
2 12
3 * server.el (server-kill-new-buffers): New user option. 13 * 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.")
1499 ;; fiddle with the point 1499 ;; fiddle with the point
1500 (saved-point (point-marker))) 1500 (saved-point (point-marker)))
1501 1501
1502 ;; The point should float after any insertion we do
1503 (set-marker-insertion-type saved-point t)
1504
1502 ;; We temporarly remove any buffer narrowing, in case the 1505 ;; We temporarly remove any buffer narrowing, in case the
1503 ;; process mark is outside of the restriction 1506 ;; process mark is outside of the restriction
1504 (save-restriction 1507 (save-restriction
@@ -1516,7 +1519,7 @@ This variable is permanent-local.")
1516 ;; adjacent to the new input, and if so, just extend it. 1519 ;; adjacent to the new input, and if so, just extend it.
1517 (if (and comint-last-output-overlay 1520 (if (and comint-last-output-overlay
1518 (equal (overlay-end comint-last-output-overlay) 1521 (equal (overlay-end comint-last-output-overlay)
1519 (point))) 1522 (marker-position comint-last-output-start)))
1520 ;; Extend comint-last-output-overlay to include the 1523 ;; Extend comint-last-output-overlay to include the
1521 ;; most recent output 1524 ;; most recent output
1522 (move-overlay comint-last-output-overlay 1525 (move-overlay comint-last-output-overlay