From: Roland McGrath <roland@gnu.org>
Date: Thu, 6 Jan 1994 20:24:06 +0000 (+0000)
Subject: (comint-show-output): Use (point-max) rather than erring when the
X-Git-Tag: emacs-19.34~10375
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=424532459bb29134a6f22316b38e0f93acd2ee44;p=emacs.git

(comint-show-output): Use (point-max) rather than erring when the
comint-last-input-end marker points nowhere.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index b76aacfc57e..1073970a5ff 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1,6 +1,6 @@
 ;;; comint.el --- general command interpreter in a window stuff
 
-;; Copyright (C) 1988, 1990, 1992, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1988, 1990, 1992, 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author: Olin Shivers <shivers@cs.cmu.edu>
 ;; Adapted-by: Simon Marshall <s.marshall@dcs.hull.ac.uk>
@@ -1419,7 +1419,7 @@ Does not delete the prompt."
 Also put cursor there if the current position is not visible."
   (interactive)
   (let ((pos (point)))
-    (goto-char comint-last-input-end)
+    (goto-char (or (marker-position comint-last-input-end) (point-max)))
     (beginning-of-line 0)
     (set-window-start (selected-window) (point))
     (if (pos-visible-in-window-p pos)