Mercurial > emacs
changeset 5476:155472377864
(comint-show-output): Use (point-max) rather than erring when the
comint-last-input-end marker points nowhere.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 06 Jan 1994 20:24:06 +0000 |
| parents | e723f6be6239 |
| children | 2efe469a9c24 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Thu Jan 06 17:21:32 1994 +0000 +++ b/lisp/comint.el Thu Jan 06 20:24:06 1994 +0000 @@ -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 @@ 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)