diff options
| -rw-r--r-- | lisp/comint.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index e8a6a139db5..d08b2013426 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -643,9 +643,15 @@ Entry to this mode runs the hooks on `comint-mode-hook'." | |||
| 643 | (make-local-variable 'comint-move-point-for-output) | 643 | (make-local-variable 'comint-move-point-for-output) |
| 644 | (make-local-variable 'comint-scroll-show-maximum-output) | 644 | (make-local-variable 'comint-scroll-show-maximum-output) |
| 645 | (make-local-variable 'comint-stored-incomplete-input) | 645 | (make-local-variable 'comint-stored-incomplete-input) |
| 646 | ;; Following disabled because it seems to break the case when | ||
| 647 | ;; comint-scroll-show-maximum-output is nil, and no-one can remember | ||
| 648 | ;; what the original problem was. If there are problems with point | ||
| 649 | ;; not going to the end, consider re-enabling this. | ||
| 650 | ;; http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg00827.html | ||
| 651 | ;; | ||
| 646 | ;; This makes it really work to keep point at the bottom. | 652 | ;; This makes it really work to keep point at the bottom. |
| 647 | (make-local-variable 'scroll-conservatively) | 653 | ;;; (make-local-variable 'scroll-conservatively) |
| 648 | (setq scroll-conservatively 10000) | 654 | ;;; (setq scroll-conservatively 10000) |
| 649 | (add-hook 'pre-command-hook 'comint-preinput-scroll-to-bottom t t) | 655 | (add-hook 'pre-command-hook 'comint-preinput-scroll-to-bottom t t) |
| 650 | (make-local-variable 'comint-ptyp) | 656 | (make-local-variable 'comint-ptyp) |
| 651 | (make-local-variable 'comint-process-echoes) | 657 | (make-local-variable 'comint-process-echoes) |