misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reset style to normal on exit.

This commit is contained in:
Tony Garnock-Jones 2014-12-23 18:16:19 -05:00
parent c6f15b6881
commit 88dd1e7d2e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rmacs/display.rkt
View File

@ -64,7 +64,8 @@
(tty-reset *stdin-tty*)
(plumber-add-flush! (current-plumber)
(lambda (h)
(tty-style-reset *stdin-tty*)
(tty-display *stdin-tty*
(select-graphic-rendition style-normal))
(tty-goto *stdin-tty* (tty-last-row *stdin-tty*) 0))))
*stdin-tty*)