diff options
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/coq_commands.ml | 1 | ||||
| -rw-r--r-- | ide/microPG.ml | 1 | ||||
| -rw-r--r-- | ide/wg_Completion.ml | 12 |
3 files changed, 1 insertions, 13 deletions
diff --git a/ide/coq_commands.ml b/ide/coq_commands.ml index c5883cef0d..711986c2b2 100644 --- a/ide/coq_commands.ml +++ b/ide/coq_commands.ml @@ -207,7 +207,6 @@ let state_preserving = [ "Recursive Extraction Library"; "Search"; - "SearchAbout (* deprecated *)"; "SearchHead"; "SearchPattern"; "SearchRewrite"; diff --git a/ide/microPG.ml b/ide/microPG.ml index 46d3316ef6..5a4871b70a 100644 --- a/ide/microPG.ml +++ b/ide/microPG.ml @@ -289,7 +289,6 @@ let pg = insert pg "Proof General" [mC,_c,"c"; mC,_a,"a"] [ mkE _p "p" "Print" (Callback (fun gui -> command gui "Print")); mkE _c "c" "Check" (Callback (fun gui -> command gui "Check")); mkE _b "b" "About" (Callback (fun gui -> command gui "About")); - mkE _a "a" "Search About" (Callback (fun gui -> command gui "SearchAbout")); mkE _o "o" "Search Pattern" (Callback (fun gui->command gui "SearchPattern")); mkE _l "l" "Locate" (Callback (fun gui -> command gui "Locate")); mkE _Return "RET" "match template" (Action("Templates","match")); diff --git a/ide/wg_Completion.ml b/ide/wg_Completion.ml index dcb71d96a1..a7f8c70499 100644 --- a/ide/wg_Completion.ml +++ b/ide/wg_Completion.ml @@ -8,17 +8,7 @@ (* * (see LICENSE file for the text of the license) *) (************************************************************************) -module StringOrd = -struct - type t = string - let compare s1 s2 = - (* we use first size, then usual comparison *) - let d = String.length s1 - String.length s2 in - if d <> 0 then d - else compare s1 s2 -end - -module Proposals = Set.Make(StringOrd) +module Proposals = CString.Set (** Retrieve completion proposals in the buffer *) let get_syntactic_completion (buffer : GText.buffer) pattern accu = |