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

Ignore #\return instead of treating it as a separate newline.

Browse source
This commit is contained in:
Alex Shinn 2012-05-06 18:32:51 +09:00
parent 5e6975453d
commit 532665b86d
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -397,7 +397,7 @@
(vector-set! v 10 command/enter)
(vector-set! v 11 command/forward-delete-line)
(vector-set! v 12 command/refresh)
(vector-set! v 13 command/enter)
(vector-set! v 13 command/skip)
(vector-set! v 21 command/backward-delete-line)
(vector-set! v 27 (make-standard-escape-keymap))
(vector-set! v 127 command/backward-delete-char)
@ -441,6 +441,9 @@
(define (command/beep ch buf out return)
(write-char (integer->char 7) out))
(define (command/skip ch buf out return)
#f)
(define (command/refresh ch buf out return)
(buffer-draw buf out))