diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-08-15 22:27:54 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-08-15 22:27:54 +0000 |
commit | 2c3d59853173258cd84dab5b12c239705dd8fc02 (patch) | |
tree | 1d60414d697f38b13c6f06bd1e03160295a9a70d | |
parent | 5651af6d63e449c3e463dcb4c00766c2cf230c30 (diff) | |
download | emacs-2c3d59853173258cd84dab5b12c239705dd8fc02.tar.gz |
(comint-postoutput-scroll-to-bottom): Cope with unset
comint-last-output-start marker.
-rw-r--r-- | lisp/comint.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index d38761506de..42c2fb88308 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1422,7 +1422,8 @@ This function should be in the list `comint-output-filter-functions'." (and (eq scroll 'this) (eq selected window)) (and (eq scroll 'others) (not (eq selected window))) ;; If point was at the end, keep it at end. - (>= (point) comint-last-output-start))) + (and (marker-position comint-last-output-start) + (>= (point) comint-last-output-start)))) (goto-char (process-mark process))) ;; Optionally scroll so that the text ;; ends at the bottom of the window. |