Mercurial > emacs
changeset 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 | ba8033f10607 |
| children | 26abd5d13762 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Tue Nov 16 09:22:47 1993 +0000 +++ b/lisp/comint.el Tue Nov 16 09:29:01 1993 +0000 @@ -1102,10 +1102,11 @@ (set-marker (process-mark proc) (point)) ;; A kludge to prevent the delay between insert and process output ;; affecting the display. A case for a comint-send-input-hook? - (let ((functions comint-output-filter-functions)) - (while functions - (funcall (car functions) (concat input "\n")) - (setq functions (cdr functions)))))))) + (if (eq (process-filter proc) 'comint-output-filter) + (let ((functions comint-output-filter-functions)) + (while functions + (funcall (car functions) (concat input "\n")) + (setq functions (cdr functions))))))))) ;; The purpose of using this filter for comint processes ;; is to keep comint-last-input-end from moving forward