Mercurial > emacs
comparison lisp/comint.el @ 16546:06f92ef2857c
(comint-output-filter): Run comint-output-filter-functions
directly, not via comint-output-filter.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 09 Nov 1996 09:21:20 +0000 |
| parents | 258a28c21b74 |
| children | 2a181da249e0 |
comparison
equal
deleted
inserted
replaced
| 16545:ff25eb6a7d11 | 16546:06f92ef2857c |
|---|---|
| 1190 ;; in case we get output amidst sending the input. | 1190 ;; in case we get output amidst sending the input. |
| 1191 (set-marker comint-last-input-start pmark) | 1191 (set-marker comint-last-input-start pmark) |
| 1192 (set-marker comint-last-input-end (point)) | 1192 (set-marker comint-last-input-end (point)) |
| 1193 (set-marker (process-mark proc) (point)) | 1193 (set-marker (process-mark proc) (point)) |
| 1194 (funcall comint-input-sender proc input) | 1194 (funcall comint-input-sender proc input) |
| 1195 (comint-output-filter proc ""))))) | 1195 ;; This used to call comint-output-filter-functions, |
| 1196 ;; but that scrolled the buffer in undesirable ways. | |
| 1197 (run-hook-with-args 'comint-output-filter-functions ""))))) | |
| 1196 | 1198 |
| 1197 ;; The purpose of using this filter for comint processes | 1199 ;; The purpose of using this filter for comint processes |
| 1198 ;; is to keep comint-last-input-end from moving forward | 1200 ;; is to keep comint-last-input-end from moving forward |
| 1199 ;; when output is inserted. | 1201 ;; when output is inserted. |
| 1200 (defun comint-output-filter (process string) | 1202 (defun comint-output-filter (process string) |