Insert, rather than change, characters in insert mode

2023-11-04 11:47:29 -05:00 · 2023-11-04 11:47:29 -05:00 · 976a1b137d
parent 8f0e46ee5d
commit 976a1b137d
1 changed files with 1 additions and 1 deletions
--- a/sloth/editor.scm
+++ b/sloth/editor.scm
@ -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))