Mercurial > emacs

changeset 61592:7c224837fcfe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-output-filter): Run comint-output-filter-functions with point where the user had it.
author Richard M. Stallman <rms@gnu.org>
date Sun, 17 Apr 2005 15:04:40 +0000
parents b015e12637bc
children 6654a6208131
files lisp/comint.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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