Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Alex Shinn 2012-12-26 07:51:49 +09:00
parent bd3eec54d7
commit cb22ae6ff9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/term/edit-line.scm
View file

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