(comint-output-filter): Run comint-output-filter-functions

with point where the user had it.

diff --git a/lisp/comint.el b/lisp/comint.el
index fe0987e2076de25991009fa2b9c5c9e7f43da351..35309f7507ac8029887ec791d30222db755141a2 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1701,7 +1701,10 @@ Make backspaces delete the previous character."
              ;; Interpret any carriage motion characters (newline, backspace)
              (comint-carriage-motion comint-last-output-start (point)))
 
+           ;; Run these hooks with point where the user had it.
+           (goto-char saved-point)
            (run-hook-with-args 'comint-output-filter-functions string)
+           (set-marker saved-point (point))
 
            (goto-char (process-mark process)) ; in case a filter moved it