aboutsummaryrefslogtreecommitdiff
path: root/plugins/ssrsearch
diff options
context:
space:
mode:
authorThéo Zimmermann2020-05-18 15:19:46 +0200
committerThéo Zimmermann2020-05-18 15:19:46 +0200
commitb7c14a83d4a20dd9ba72c4ccc202ce0708dcd7e3 (patch)
treea8b73b2a39e4de436a350de93e94fae26d3c8586 /plugins/ssrsearch
parenta891dd541aa24239b0a7b93ab0eb56300a1cd02e (diff)
parent57c023fe6b5c7f97403d849f7ca618c98d1af1a4 (diff)
Merge PR #12341: [search] [ssr] Emit deprecated message when calling search from ssreflect
Reviewed-by: Zimmi48 Ack-by: gares
Diffstat (limited to 'plugins/ssrsearch')
-rw-r--r--plugins/ssrsearch/g_search.mlg4
1 files changed, 4 insertions, 0 deletions
diff --git a/plugins/ssrsearch/g_search.mlg b/plugins/ssrsearch/g_search.mlg
index 1651e1cc71..6d68cc13ab 100644
--- a/plugins/ssrsearch/g_search.mlg
+++ b/plugins/ssrsearch/g_search.mlg
@@ -299,6 +299,10 @@ let ssrdisplaysearch gr env t =
let pr_res = pr_global gr ++ str ":" ++ spc () ++ pr_lconstr_env env Evd.empty t in
Feedback.msg_notice (hov 2 pr_res ++ fnl ())
+(* Remove the warning entirely when this plugin is loaded. *)
+let _ =
+ Ssreflect_plugin.Ssrvernac.warn_search_moved_enabled := false
+
let deprecated_search =
CWarnings.create
~name:"deprecated-ssr-search"