diff options
| author | coqbot-app[bot] | 2021-01-28 14:37:10 +0000 |
|---|---|---|
| committer | GitHub | 2021-01-28 14:37:10 +0000 |
| commit | a54a5b83becd3ef7feef1352b56d10a3d74be85f (patch) | |
| tree | 30fd0b947b44f92a567eb7e7ce9c27706f5c3c9d /vernac/comSearch.ml | |
| parent | 90b79076305d8b9ceb92f81a99bf0a9d423903ee (diff) | |
| parent | 3d46bed76e656d6a0e4d87320e4d0fd67d1211c2 (diff) | |
Merge PR #13763: Remove the SearchHead command (deprecated in 8.12)
Reviewed-by: SkySkimmer
Reviewed-by: Zimmi48
Diffstat (limited to 'vernac/comSearch.ml')
| -rw-r--r-- | vernac/comSearch.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/vernac/comSearch.ml b/vernac/comSearch.ml index af51f4fafb..1b811f3db7 100644 --- a/vernac/comSearch.ml +++ b/vernac/comSearch.ml @@ -105,12 +105,6 @@ let () = optread = (fun () -> !search_output_name_only); optwrite = (:=) search_output_name_only } -let deprecated_searchhead = - CWarnings.create - ~name:"deprecated-searchhead" - ~category:"deprecated" - (fun () -> Pp.str("SearchHead is deprecated. Use the headconcl: clause of Search instead.")) - let interp_search env sigma s r = let r = interp_search_restriction r in let get_pattern c = snd (Constrintern.intern_constr_pattern env sigma c) in @@ -138,9 +132,6 @@ let interp_search env sigma s r = (Search.search_pattern env sigma (get_pattern c) r |> Search.prioritize_search) pr_search | SearchRewrite c -> (Search.search_rewrite env sigma (get_pattern c) r |> Search.prioritize_search) pr_search - | SearchHead c -> - deprecated_searchhead (); - (Search.search_by_head env sigma (get_pattern c) r |> Search.prioritize_search) pr_search | Search sl -> (Search.search env sigma (List.map (interp_search_request env Evd.(from_env env)) sl) r |> Search.prioritize_search) pr_search); |