Fix cursor problem

This commit is contained in:
Jay McCarthy 2018-12-11 20:16:27 -05:00
parent c45bdacb26
commit f6368eb94c
2 changed files with 3 additions and 6 deletions

View File

@ -62,8 +62,8 @@
(define last-s 'normal)
(define last-f #f)
(define last-b #f)
(define cur-r 1)
(define cur-c 1)
(define cur-r -1)
(define cur-c -1)
(values
term-rows term-cols
(λ (s f b r c ch)

View File

@ -109,10 +109,7 @@
(set! t (open-term))
(set! rows 24)
(set! cols 80)
(set! buf
(make-terminal-buffer rows cols #:output (term-out t))
#;
(make-cached-buffer rows cols #:output (term-out t)))
(set! buf (make-cached-buffer rows cols #:output (term-out t)))
;; Save the current title
(display/term t "\e[22t")