Mercurial > emacs
comparison lisp/comint.el @ 98232:e3190eb9e11b
(comint-output-filter): Make output field properties front-sticky
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1420
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 19 Sep 2008 00:37:30 +0000 |
| parents | 0445036f6742 |
| children | 26e60becb11f |
comparison
equal
deleted
inserted
replaced
| 98231:05d5848d935c | 98232:e3190eb9e11b |
|---|---|
| 1772 | 1772 |
| 1773 (unless comint-use-prompt-regexp | 1773 (unless comint-use-prompt-regexp |
| 1774 (let ((inhibit-read-only t) | 1774 (let ((inhibit-read-only t) |
| 1775 (inhibit-modification-hooks t)) | 1775 (inhibit-modification-hooks t)) |
| 1776 (add-text-properties comint-last-output-start (point) | 1776 (add-text-properties comint-last-output-start (point) |
| 1777 '(rear-nonsticky t | 1777 '(front-sticky |
| 1778 (field inhibit-line-move-field-capture) | |
| 1779 rear-nonsticky t | |
| 1778 field output | 1780 field output |
| 1779 inhibit-line-move-field-capture t)))) | 1781 inhibit-line-move-field-capture t)))) |
| 1780 | 1782 |
| 1781 ;; Highlight the prompt, where we define `prompt' to mean | 1783 ;; Highlight the prompt, where we define `prompt' to mean |
| 1782 ;; the most recent output that doesn't end with a newline. | 1784 ;; the most recent output that doesn't end with a newline. |