Insert, rather than change, characters in insert mode
This commit is contained in:
parent
8f0e46ee5d
commit
976a1b137d
1 changed files with 1 additions and 1 deletions
|
@ -38,7 +38,7 @@
|
|||
((eqv? key KEY_DOWN)
|
||||
(move win (+ y 1) x))
|
||||
((eqv? key #\esc) #:normal-mode)
|
||||
(else (echochar win (normal key)))))
|
||||
(else (insch win (normal key) #:y y #:x (+ x 1)))))
|
||||
|
||||
(define (normal-mode-process-input win key)
|
||||
(define y (getcury win))
|
||||
|
|
Loading…
Reference in a new issue