diff options
| author | Pierre-Marie Pédrot | 2018-07-26 17:56:27 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-07-26 17:56:27 +0200 |
| commit | 6eba9ffea648aace40261aa6abb5f138cad27d2d (patch) | |
| tree | dee747082b108195b266cd3b47b3299d075f8cea | |
| parent | 85d5f45d7a5374646a31f8829965bbfed0a95070 (diff) | |
Fix Search query in CoqIDE.
For some reason the code was just doing random stuff that did not make
sense.
| -rw-r--r-- | ide/coqide.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index aa816f2b8b..f5ff08998b 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1106,15 +1106,15 @@ let build_ui () = ]; alpha_items templates_menu "Template" Coq_commands.commands; - let qitem s sc ?(dots = true) = - let query = if dots then s ^ "..." else s in + let qitem s sc = + let query = s ^ "..." in item s ~label:("_"^s) ~accel:(modifier_for_queries#get^sc) ~callback:(Query.query query) in menu queries_menu [ item "Queries" ~label:"_Queries"; - qitem "Search" "K" ~dots:false; + qitem "Search" "K"; qitem "Check" "C"; qitem "Print" "P"; qitem "About" "A"; |
