# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753442141 0
# Node ID 08d056e0240f8bcc21f6702d4af2c0e85d181785
# Parent  ba8033f10607c2f65ea6d20e44471a454195eb14
(comint-send-input): Run comint-output-filter-functions
only if process is using comint-output-filter as its filter.

diff -r ba8033f10607 -r 08d056e0240f lisp/comint.el
--- 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