diff options
author | Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2014-12-16 14:13:59 +0100 |
---|---|---|
committer | Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2014-12-16 14:13:59 +0100 |
commit | 5ba84979df97996cd04f44e506742bb58ecf0465 (patch) | |
tree | 565c966fd3f4f73a2182337933e147d73a4c6971 /proofs/refiner.ml | |
parent | c816bdb44625b6dba8efa4b0ba39f162b06b737d (diff) |
msg_info now puts infomsg tag in emacs mode.
Fixes the idtac "string" not appearing in proofgeneral because
printined *before* the goal.
Diffstat (limited to 'proofs/refiner.ml')
-rw-r--r-- | proofs/refiner.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index e443ce077..ea3594610 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -57,7 +57,7 @@ let tclIDTAC gls = goal_goal_list gls (* the message printing identity tactic *) let tclIDTAC_MESSAGE s gls = - pp (hov 0 s); pp_flush (); tclIDTAC gls + Pp.msg_info (hov 0 s); pp_flush (); tclIDTAC gls (* General failure tactic *) let tclFAIL_s s gls = errorlabstrm "Refiner.tclFAIL_s" (str s) |