diff options
| author | Richard M. Stallman | 1996-11-09 09:21:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-11-09 09:21:20 +0000 |
| commit | 6aac2ab02e693eaa200d9ae1b717fe4eb9930048 (patch) | |
| tree | 82481aeea8d21c94798544a98611a973bcc17033 | |
| parent | ca67b44e66e358f3d3324e61cb16c24a7c5097ea (diff) | |
| download | emacs-6aac2ab02e693eaa200d9ae1b717fe4eb9930048.tar.gz emacs-6aac2ab02e693eaa200d9ae1b717fe4eb9930048.zip | |
(comint-output-filter): Run comint-output-filter-functions
directly, not via comint-output-filter.
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 91cf20d550b..aa5e8c82530 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1192,7 +1192,9 @@ Similarly for Soar, Scheme, etc." | |||
| 1192 | (set-marker comint-last-input-end (point)) | 1192 | (set-marker comint-last-input-end (point)) |
| 1193 | (set-marker (process-mark proc) (point)) | 1193 | (set-marker (process-mark proc) (point)) |
| 1194 | (funcall comint-input-sender proc input) | 1194 | (funcall comint-input-sender proc input) |
| 1195 | (comint-output-filter proc ""))))) | 1195 | ;; This used to call comint-output-filter-functions, |
| 1196 | ;; but that scrolled the buffer in undesirable ways. | ||
| 1197 | (run-hook-with-args 'comint-output-filter-functions ""))))) | ||
| 1196 | 1198 | ||
| 1197 | ;; The purpose of using this filter for comint processes | 1199 | ;; The purpose of using this filter for comint processes |
| 1198 | ;; is to keep comint-last-input-end from moving forward | 1200 | ;; is to keep comint-last-input-end from moving forward |