diff --git a/hemlock/tty-screen.lisp b/hemlock/tty-screen.lisp index da85dae41c5508f333acc31b81dfacc6ba86c218..8163fd06bd246c4bab943142690a693f8ebeb4d2 100644 --- a/hemlock/tty-screen.lisp +++ b/hemlock/tty-screen.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/tty-screen.lisp,v 1.3 1991/03/14 16:26:46 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/tty-screen.lisp,v 1.4 1991/05/22 15:53:30 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -46,6 +46,8 @@ (setf (device-hunk-window echo-hunk) echo) (setup-window-image *parse-starting-mark* echo echo-height width) (setup-modeline-image *echo-area-buffer* echo) + (setf (device-hunk-previous echo-hunk) echo-hunk + (device-hunk-next echo-hunk) echo-hunk) (prepare-window-for-redisplay echo)) ;; ;; Make the main window.