diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-16 09:29:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-16 09:29:01 +0000 |
| commit | 1919f5432265e061886bcec288af5be129fefbd5 (patch) | |
| tree | 45a305931e0a2a6a2663781171ffdb5870517a40 /lisp/comint.el | |
| parent | b8da4a698ca4fc3cefe966c1217b1c303cdaae14 (diff) | |
| download | emacs-1919f5432265e061886bcec288af5be129fefbd5.tar.gz | |
(comint-send-input): Run comint-output-filter-functions
only if process is using comint-output-filter as its filter.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 4705d43546b..5c2ec55903e 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1102,10 +1102,11 @@ Similarly for Soar, Scheme, etc." (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 |