From 659ca3902a144259ec449473e95df1b3eda1b6de Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 17 Nov 2014 10:22:31 +0100
Subject: Setting error tag on generic errors returned by Coqtop.

---
 printing/ppstyle.mli | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'printing')

diff --git a/printing/ppstyle.mli b/printing/ppstyle.mli
index 5fd9e074d8..700ec4314e 100644
--- a/printing/ppstyle.mli
+++ b/printing/ppstyle.mli
@@ -51,3 +51,14 @@ val init_color_output : unit -> unit
     {!Pp_control.std_ft} and {!Pp_control.err_ft} to display those messages,
     with additional syle information provided by this module. Be careful this is
     not compatible with the Emacs mode! *)
+
+(** {5 Tags} *)
+
+val error_tag : t
+(** Tag used by the {!Pp.msg_error} function. *)
+
+val warning_tag : t
+(** Tag used by the {!Pp.msg_warning} function. *)
+
+val debug_tag : t
+(** Tag used by the {!Pp.msg_debug} function. *)
-- 
cgit v1.2.3