0 renvoie à l'origine

diff --git a/bin/modes.ml b/bin/modes.ml
index c3bdf960d4dd881bfd33be8cfb3a3ed96746f607..a0c47eec26073e4d7d72812de19499ffdb4eda33 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 })