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) |