[Emacs-diffs] Changes to emacs/lisp/comint.el

[Richard M . Stallman]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.315 emacs/lisp/comint.el:1.316
*** emacs/lisp/comint.el:1.315  Sun Apr 10 23:26:57 2005
--- emacs/lisp/comint.el        Sun Apr 17 15:04:40 2005
***************
*** 1701,1707 ****
--- 1701,1710 ----
              ;; 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