# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1113750280 0
# Node ID 7c224837fcfe7e1fa85e3a4ca35defdeb02656d8
# Parent  b015e12637bc7d40a0d6353e87d1089804127cfe
(comint-output-filter): Run comint-output-filter-functions
with point where the user had it.

diff -r b015e12637bc -r 7c224837fcfe lisp/comint.el
--- a/lisp/comint.el	Sun Apr 17 01:37:38 2005 +0000
+++ b/lisp/comint.el	Sun Apr 17 15:04:40 2005 +0000
@@ -1701,7 +1701,10 @@
 	      ;; 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