From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 16 Nov 1993 09:29:01 +0000 (+0000)
Subject: (comint-send-input): Run comint-output-filter-functions
X-Git-Tag: emacs-19.34~10801
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=669a535c936600a082c1a5bed5e88db8bb3be624;p=emacs.git

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