From 669a535c936600a082c1a5bed5e88db8bb3be624 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 16 Nov 1993 09:29:01 +0000 Subject: [PATCH] (comint-send-input): Run comint-output-filter-functions only if process is using comint-output-filter as its filter. --- lisp/comint.el | 9 +++++---- 1 file 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 -- 2.39.5