diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/key.ml | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -27,7 +27,7 @@ let of_char = function | |||
| 27 | | '\000' -> Nul | 27 | | '\000' -> Nul |
| 28 | | '\008' | '\127' -> Backspace | 28 | | '\008' | '\127' -> Backspace |
| 29 | | '\009' -> Tab | 29 | | '\009' -> Tab |
| 30 | | '\013' -> Enter | 30 | | '\010' | '\013' -> Enter |
| 31 | | '\027' -> Esc | 31 | | '\027' -> Esc |
| 32 | | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl | 32 | | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl |
| 33 | | c -> Key c | 33 | | c -> Key c |
