Skip to content
Snippets Groups Projects
Commit cd57c854 authored by ram's avatar ram
Browse files

Circularly link the echo hunk in its own next/prev chain.

parent db1d31b5
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -46,6 +46,8 @@
(setf (device-hunk-window echo-hunk) echo) (setf (device-hunk-window echo-hunk) echo)
(setup-window-image *parse-starting-mark* echo echo-height width) (setup-window-image *parse-starting-mark* echo echo-height width)
(setup-modeline-image *echo-area-buffer* echo) (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)) (prepare-window-for-redisplay echo))
;; ;;
;; Make the main window. ;; Make the main window.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment