summaryrefslogtreecommitdiff
path: root/lib/command.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/command.ml')
-rw-r--r--lib/command.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/command.ml b/lib/command.ml
index 74b616a..a55fb9e 100644
--- a/lib/command.ml
+++ b/lib/command.ml
@@ -93,7 +93,8 @@ let n_stream =
93 match (s, k) with 93 match (s, k) with
94 | `start, Key '"' -> (`chord_reg_pre, Partial k) 94 | `start, Key '"' -> (`chord_reg_pre, Partial k)
95 (* Register *) 95 (* Register *)
96 | `chord_reg_pre, Key c -> (`chord_reg c, Partial k) 96 | `chord_reg_pre, Key c when Char.('!' <= c && c <= '~') ->
97 (`chord_reg c, Partial k)
97 (* Count (first) *) 98 (* Count (first) *)
98 | `start, Key n when Char.('1' <= n && n <= '9') -> 99 | `start, Key n when Char.('1' <= n && n <= '9') ->
99 let n = Char.to_int n - 48 in 100 let n = Char.to_int n - 48 in