From 2c3d59853173258cd84dab5b12c239705dd8fc02 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Aug 1998 22:27:54 +0000 Subject: [PATCH] (comint-postoutput-scroll-to-bottom): Cope with unset comint-last-output-start marker. --- lisp/comint.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.5