Complétions dans l'ordre alphabétique

diff --git a/bin/modes.ml b/bin/modes.ml
index a19746d04ad91c78ee3daa390934fad317a925e4..4b4c582d57146eeb01300478667fc097d22998f3 100644 (file)
--- a/bin/modes.ml
+++ b/bin/modes.ml
@@ -107,6 +107,7 @@ module rec Command : (Mode with type initer = string) = struct
           aux (len - 1) len
 
   let real_complete cmd completions =
+          let completions = List.sort (fun x y -> compare y x) completions in
           let last = last cmd in
           match List.filter (String.starts_with ~prefix:last) completions with
           | [] -> (String.concat " " (List.map Parse.shquote cmd), [])