0 renvoie à l'origine

diff --git a/bin/modes.ml b/bin/modes.ml
index c9222b3527babee6df799fff4b791a2b3a497b96..56cf236b11d0894ead3a0ed9e09979ab82983298 100644 (file)
--- a/bin/modes.ml
+++ b/bin/modes.ml
@@ -244,6 +244,7 @@ and Normal : (Mode with type initer = unit) = struct
             in
             function
             | ':' -> (EditorState (m, st), Either.right (ModeAux.ModeAndState ((module Command), Command.initial "")))
+            | '0' when n.n = None -> (EditorState (m, { st with pos = (0, 0) }), Either.left n)
             | c when '0' <= c && c <= '9' ->
                     (EditorState (m, st), Either.left (chnum (int_of_char c - int_of_char '0') n))
             | 's' -> (EditorState (m, set_current st), Either.left { n = None })