1701 |
;; Interpret any carriage motion characters (newline, backspace) |
;; Interpret any carriage motion characters (newline, backspace) |
1702 |
(comint-carriage-motion comint-last-output-start (point))) |
(comint-carriage-motion comint-last-output-start (point))) |
1703 |
|
|
1704 |
|
;; Run these hooks with point where the user had it. |
1705 |
|
(goto-char saved-point) |
1706 |
(run-hook-with-args 'comint-output-filter-functions string) |
(run-hook-with-args 'comint-output-filter-functions string) |
1707 |
|
(set-marker saved-point (point)) |
1708 |
|
|
1709 |
(goto-char (process-mark process)) ; in case a filter moved it |
(goto-char (process-mark process)) ; in case a filter moved it |
1710 |
|
|