Insert, rather than change, characters in insert mode

This commit is contained in:
Skylar 2023-11-04 11:47:29 -05:00
parent 8f0e46ee5d
commit 976a1b137d

View file

@ -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))