Guard binds to the pattern in a surprising (to me) way.
Unified · Split
| @@ -3274,7 +3274,8 @@ let viewkeyboard key mask = · 3273 unmodified lines | ||
| 3274 | 3274 | | Ascii '4' when ctrl -> |
| 3275 | 3275 | let zoom = Ffi.getmaxw () /. float !S.winw in |
| 3276 | 3276 | if zoom > 0.0 then setzoom zoom |
| 3277 | − | Fn 9 | Ascii '9' when ctrl -> togglebirdseye () | |
| 3277 | + | Fn 9 -> togglebirdseye () | |
| 3278 | + | Ascii '9' when ctrl -> togglebirdseye () | |
| 3278 | 3279 | | Ascii ('0'..'9' as c) when not ctrl -> |
| 3279 | 3280 | let ondone s = |
| 3280 | 3281 | let n = |