diff options
author | 2014-10-31 15:43:08 +0100 | |
---|---|---|
committer | 2014-10-31 15:54:00 +0100 | |
commit | cfb5201e2ebc2516e3de7c578355db8bd4f08d35 (patch) | |
tree | bc96e6acc6e2da45e43978d345ab10bea57956cb /plugins/setoid_ring/newring.ml4 | |
parent | 17147ebea482bcc9759b6cd68ed25f2416eab118 (diff) |
Feedback message: hold extra info to help routing
PIDE based GUIs can take advantage of multiple panels and get
some feedback routed there. E.g. query panel
Diffstat (limited to 'plugins/setoid_ring/newring.ml4')
-rw-r--r-- | plugins/setoid_ring/newring.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/setoid_ring/newring.ml4 b/plugins/setoid_ring/newring.ml4 index 96ab4f1e1..0bb4fc35c 100644 --- a/plugins/setoid_ring/newring.ml4 +++ b/plugins/setoid_ring/newring.ml4 @@ -779,7 +779,7 @@ VERNAC COMMAND EXTEND AddSetoidRing CLASSIFIED AS SIDEFF | [ "Add" "Ring" ident(id) ":" constr(t) ring_mods(l) ] -> [ let (k,set,cst,pre,post,power,sign, div) = process_ring_mods l in add_theory id (ic t) set k cst (pre,post) power sign div] - | [ "Print" "Rings" ] => [Vernacexpr.VtQuery (true, Stateid.dummy), Vernacexpr.VtLater] -> [ + | [ "Print" "Rings" ] => [Vernac_classifier.classify_as_query] -> [ msg_notice (strbrk "The following ring structures have been declared:"); Spmap.iter (fun fn fi -> msg_notice (hov 2 @@ -1110,7 +1110,7 @@ VERNAC COMMAND EXTEND AddSetoidField CLASSIFIED AS SIDEFF | [ "Add" "Field" ident(id) ":" constr(t) field_mods(l) ] -> [ let (k,set,inj,cst_tac,pre,post,power,sign,div) = process_field_mods l in add_field_theory id (ic t) set k cst_tac inj (pre,post) power sign div] -| [ "Print" "Fields" ] => [Vernacexpr.VtQuery (true, Stateid.dummy), Vernacexpr.VtLater] -> [ +| [ "Print" "Fields" ] => [Vernac_classifier.classify_as_query] -> [ msg_notice (strbrk "The following field structures have been declared:"); Spmap.iter (fun fn fi -> msg_notice (hov 2 |