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