From: Miha Rihtaršič <miha@kamnitnik.top>
Date: Tue, 5 Oct 2021 07:42:28 +0000 (+0200)
Subject: Fix small error in comint-send-input
X-Git-Tag: emacs-28.0.90~399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=570e2c9a17;p=emacs.git

Fix small error in comint-send-input

* lisp/comint.el (comint-send-input): Run
comint-output-filter-functions with comint-last-output-start set
correctly (bug#51009).
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 1e5b990c77a..a0873c0b6a1 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1990,6 +1990,7 @@ Similarly for Soar, Scheme, etc."
 
         ;; This used to call comint-output-filter-functions,
         ;; but that scrolled the buffer in undesirable ways.
+        (set-marker comint-last-output-start pmark)
         (run-hook-with-args 'comint-output-filter-functions "")))))
 
 (defvar comint-preoutput-filter-functions nil