Supporting utf8 in edit-line. Still need to handle non-single-width characters properly.

This commit is contained in:
Alex Shinn 2012-12-26 07:51:49 +09:00
parent bd3eec54d7
commit cb22ae6ff9

View file

@ -416,7 +416,7 @@
(cons '() (and (pair? o) (car o))))
(define (make-printable-keymap)
(let* ((keymap (make-keymap))
(let* ((keymap (make-keymap command/self-insert))
(v (car keymap)))
(do ((i #x20 (+ i 1))) ((= i #x7F) keymap)
(vector-set! v i command/self-insert))))