diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-02-23 13:46:07 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-14 22:19:26 +0100 |
commit | facf0520a47603d2679508136cbed43def0744cc (patch) | |
tree | 50e2870451436bf175f823689b0b3d54c65739f2 /ide/coqide.ml | |
parent | 6b78d0602d46520ed1bd0cfbef120de3b06ca826 (diff) |
[safe-string] ide
No functional change, one extra copy introduced but it seems hard to
avoid.
Diffstat (limited to 'ide/coqide.ml')
-rw-r--r-- | ide/coqide.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 450bfcdfb..eec829f34 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -887,8 +887,8 @@ let alpha_items menu_name item_name l = | [] -> () | [s] -> mk_item s | s::_ as ll -> - let name = item_name^" "^(String.make 1 s.[0]) in - let label = "_@..." in label.[1] <- s.[0]; + let name = Printf.sprintf "%s %c" item_name s.[0] in + let label = Printf.sprintf "_%c..." s.[0] in item name ~label menu_name; List.iter mk_item ll in |