From: Richard M. Stallman Date: Sun, 17 Apr 2005 15:04:40 +0000 (+0000) Subject: (comint-output-filter): Run comint-output-filter-functions X-Git-Tag: ttn-vms-21-2-B4~957 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c06b447862099d804f2092fad4b5dc1b0159cc32;p=emacs.git (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 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