From 532665b86d0b27a8d4a25cc2e779c25763b3fafc Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 6 May 2012 18:32:51 +0900 Subject: [PATCH] Ignore #\return instead of treating it as a separate newline. --- lib/chibi/term/edit-line.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/chibi/term/edit-line.scm b/lib/chibi/term/edit-line.scm index 64cabc9a..b9b2dd7a 100644 --- a/lib/chibi/term/edit-line.scm +++ b/lib/chibi/term/edit-line.scm @@ -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))