Fix cursor problem
This commit is contained in:
parent
c45bdacb26
commit
f6368eb94c
|
@ -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)
|
||||
|
|
|
@ -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")
|
||||
|
|
Loading…
Reference in New Issue