(comint-send-input): Run comint-output-filter-functions

only if process is using comint-output-filter as its filter.

diff --git a/lisp/comint.el b/lisp/comint.el
index 4705d43546ba10f4e7ccd6ea5f1eaaf6c3e85d8d..5c2ec55903efab72b72175a07b6a21cee42e0d49 100644 (file)
--- 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