From c06b447862099d804f2092fad4b5dc1b0159cc32 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 17 Apr 2005 15:04:40 +0000 Subject: [PATCH] (comint-output-filter): Run comint-output-filter-functions with point where the user had it. --- lisp/comint.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/comint.el b/lisp/comint.el index fe0987e2076..35309f7507a 100644 --- 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 -- 2.39.2