Complétions dans l'ordre alphabétique

diff --git a/bin/modes.ml b/bin/modes.ml
index d9641f91211c1842b2bd27cc5393b2a065ae5217..cb347c70346b9af2165857a97a086fee284183c0 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), [])