From 6aac2ab02e693eaa200d9ae1b717fe4eb9930048 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Nov 1996 09:21:20 +0000 Subject: [PATCH] (comint-output-filter): Run comint-output-filter-functions directly, not via comint-output-filter. --- lisp/comint.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/comint.el b/lisp/comint.el index 91cf20d550b..aa5e8c82530 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1192,7 +1192,9 @@ Similarly for Soar, Scheme, etc." (set-marker comint-last-input-end (point)) (set-marker (process-mark proc) (point)) (funcall comint-input-sender proc input) - (comint-output-filter proc ""))))) + ;; This used to call comint-output-filter-functions, + ;; but that scrolled the buffer in undesirable ways. + (run-hook-with-args 'comint-output-filter-functions ""))))) ;; The purpose of using this filter for comint processes ;; is to keep comint-last-input-end from moving forward -- 2.39.5