Add TODO in editor about terminal commands in need of replacing
This commit is contained in:
parent
8d4d462efc
commit
1ab8dbb818
1 changed files with 3 additions and 0 deletions
|
@ -158,6 +158,9 @@ serial connection the editor normally runs under.")
|
||||||
(write-byte #x1B *eio*)
|
(write-byte #x1B *eio*)
|
||||||
(format *eio* "[1;24r"))))
|
(format *eio* "[1;24r"))))
|
||||||
|
|
||||||
|
;; OOPS! The scrolling commands just don't exist on the VT220!
|
||||||
|
;; TODO: Replace them!
|
||||||
|
|
||||||
(defun scroll-screen-down (&optional (amount 1))
|
(defun scroll-screen-down (&optional (amount 1))
|
||||||
(write-byte #x1B *eio*)
|
(write-byte #x1B *eio*)
|
||||||
(write-char #\[ *eio*)
|
(write-char #\[ *eio*)
|
||||||
|
|
Loading…
Add table
Reference in a new issue