From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Aug 1998 22:27:54 +0000 (+0000)
Subject: (comint-postoutput-scroll-to-bottom): Cope with unset
X-Git-Tag: emacs-20.3~43
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c3d59853173258cd84dab5b12c239705dd8fc02;p=emacs.git

(comint-postoutput-scroll-to-bottom): Cope with unset
comint-last-output-start marker.
---

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.