diff options
| author | Richard M. Stallman | 2005-04-17 15:04:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-04-17 15:04:40 +0000 |
| commit | c06b447862099d804f2092fad4b5dc1b0159cc32 (patch) | |
| tree | 5b3b1aee343101d95ee91f75daa9e4b78fcae23d | |
| parent | 60ec7b7ed9b42fac4b58bdfc8fce6100b66668cb (diff) | |
| download | emacs-c06b447862099d804f2092fad4b5dc1b0159cc32.tar.gz emacs-c06b447862099d804f2092fad4b5dc1b0159cc32.zip | |
(comint-output-filter): Run comint-output-filter-functions
with point where the user had it.
| -rw-r--r-- | lisp/comint.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 1701 | ;; Interpret any carriage motion characters (newline, backspace) | 1701 | ;; Interpret any carriage motion characters (newline, backspace) |
| 1702 | (comint-carriage-motion comint-last-output-start (point))) | 1702 | (comint-carriage-motion comint-last-output-start (point))) |
| 1703 | 1703 | ||
| 1704 | ;; Run these hooks with point where the user had it. | ||
| 1705 | (goto-char saved-point) | ||
| 1704 | (run-hook-with-args 'comint-output-filter-functions string) | 1706 | (run-hook-with-args 'comint-output-filter-functions string) |
| 1707 | (set-marker saved-point (point)) | ||
| 1705 | 1708 | ||
| 1706 | (goto-char (process-mark process)) ; in case a filter moved it | 1709 | (goto-char (process-mark process)) ; in case a filter moved it |
| 1707 | 1710 | ||