diff options
| author | Miles Bader | 2000-08-22 10:09:56 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-08-22 10:09:56 +0000 |
| commit | 5484005d7bc868a49fe53018030a94e384d4bd52 (patch) | |
| tree | fdf48b524bb11d5ccfd4cfe9e4eee7394f08964d | |
| parent | cb6e07b14f390dc6cbc89b37a35a0cb665f79ece (diff) | |
| download | emacs-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/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/comint.el | 5 |
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 @@ | |||
| 1 | 2000-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 | |||
| 1 | 2000-08-21 Gerd Moellmann <gerd@gnu.org> | 11 | 2000-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 |