Mercurial > emacs
comparison lisp/comint.el @ 61592:7c224837fcfe
(comint-output-filter): Run comint-output-filter-functions
with point where the user had it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 Apr 2005 15:04:40 +0000 |
| parents | a8e7bc540c1c |
| children | 1cd2d4d601fa e1fbb019c538 |
comparison
equal
deleted
inserted
replaced
| 61591:b015e12637bc | 61592:7c224837fcfe |
|---|---|
| 1699 | 1699 |
| 1700 (unless comint-inhibit-carriage-motion | 1700 (unless comint-inhibit-carriage-motion |
| 1701 ;; Interpret any carriage motion characters (newline, backspace) | 1701 ;; Interpret any carriage motion characters (newline, backspace) |
| 1702 (comint-carriage-motion comint-last-output-start (point))) | 1702 (comint-carriage-motion comint-last-output-start (point))) |
| 1703 | 1703 |
| 1704 ;; Run these hooks with point where the user had it. | |
| 1705 (goto-char saved-point) | |
| 1704 (run-hook-with-args 'comint-output-filter-functions string) | 1706 (run-hook-with-args 'comint-output-filter-functions string) |
| 1707 (set-marker saved-point (point)) | |
| 1705 | 1708 |
| 1706 (goto-char (process-mark process)) ; in case a filter moved it | 1709 (goto-char (process-mark process)) ; in case a filter moved it |
| 1707 | 1710 |
| 1708 (unless comint-use-prompt-regexp-instead-of-fields | 1711 (unless comint-use-prompt-regexp-instead-of-fields |
| 1709 (let ((inhibit-read-only t) | 1712 (let ((inhibit-read-only t) |