Mercurial > emacs
comparison lisp/comint.el @ 5050:08d056e0240f
(comint-send-input): Run comint-output-filter-functions
only if process is using comint-output-filter as its filter.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Nov 1993 09:29:01 +0000 |
| parents | 11f0a3153f63 |
| children | fb8f2a3f2178 |
comparison
equal
deleted
inserted
replaced
| 5049:ba8033f10607 | 5050:08d056e0240f |
|---|---|
| 1100 (set-marker comint-last-input-start pmark) | 1100 (set-marker comint-last-input-start pmark) |
| 1101 (set-marker comint-last-input-end (point)) | 1101 (set-marker comint-last-input-end (point)) |
| 1102 (set-marker (process-mark proc) (point)) | 1102 (set-marker (process-mark proc) (point)) |
| 1103 ;; A kludge to prevent the delay between insert and process output | 1103 ;; A kludge to prevent the delay between insert and process output |
| 1104 ;; affecting the display. A case for a comint-send-input-hook? | 1104 ;; affecting the display. A case for a comint-send-input-hook? |
| 1105 (let ((functions comint-output-filter-functions)) | 1105 (if (eq (process-filter proc) 'comint-output-filter) |
| 1106 (while functions | 1106 (let ((functions comint-output-filter-functions)) |
| 1107 (funcall (car functions) (concat input "\n")) | 1107 (while functions |
| 1108 (setq functions (cdr functions)))))))) | 1108 (funcall (car functions) (concat input "\n")) |
| 1109 (setq functions (cdr functions))))))))) | |
| 1109 | 1110 |
| 1110 ;; The purpose of using this filter for comint processes | 1111 ;; The purpose of using this filter for comint processes |
| 1111 ;; is to keep comint-last-input-end from moving forward | 1112 ;; is to keep comint-last-input-end from moving forward |
| 1112 ;; when output is inserted. | 1113 ;; when output is inserted. |
| 1113 (defun comint-output-filter (process string) | 1114 (defun comint-output-filter (process string) |