1660 |
;; Advance process-mark |
;; Advance process-mark |
1661 |
(set-marker (process-mark process) (point)) |
(set-marker (process-mark process) (point)) |
1662 |
|
|
1663 |
|
(run-hook-with-args 'comint-output-filter-functions string) |
1664 |
|
(goto-char (process-mark process)) ; in case a filter moved it |
1665 |
|
|
1666 |
(unless comint-use-prompt-regexp-instead-of-fields |
(unless comint-use-prompt-regexp-instead-of-fields |
1667 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1668 |
(add-text-properties comint-last-output-start (point) |
(add-text-properties comint-last-output-start (point) |
1687 |
(overlay-put comint-last-prompt-overlay |
(overlay-put comint-last-prompt-overlay |
1688 |
'font-lock-face 'comint-highlight-prompt)))) |
'font-lock-face 'comint-highlight-prompt)))) |
1689 |
|
|
1690 |
(goto-char saved-point) |
(goto-char saved-point))))))) |
|
|
|
|
(run-hook-with-args 'comint-output-filter-functions string))))))) |
|
1691 |
|
|
1692 |
(defun comint-preinput-scroll-to-bottom () |
(defun comint-preinput-scroll-to-bottom () |
1693 |
"Go to the end of buffer in all windows showing it. |
"Go to the end of buffer in all windows showing it. |
1795 |
`comint-prompt-regexp' removed." |
`comint-prompt-regexp' removed." |
1796 |
(let ((bof (field-beginning))) |
(let ((bof (field-beginning))) |
1797 |
(if (eq (get-char-property bof 'field) 'input) |
(if (eq (get-char-property bof 'field) 'input) |
1798 |
(field-string bof) |
(field-string-no-properties bof) |
1799 |
(comint-bol) |
(comint-bol) |
1800 |
(buffer-substring-no-properties (point) (line-end-position))))) |
(buffer-substring-no-properties (point) (line-end-position))))) |
1801 |
|
|