From dcaa6946e7f32a24197b2b8b2a50ed54e038092a Mon Sep 17 00:00:00 2001
From: pierreweis <Pierre.Weis@inria.fr>
Date: Thu, 12 Nov 2015 18:37:52 +0100
Subject: [PATCH] Adding a tag for depecated tabbing boxes.

---
 stdlib/format.mli | 50 +++++++++++++++++++----------------------------
 1 file changed, 20 insertions(+), 30 deletions(-)

diff --git a/stdlib/format.mli b/stdlib/format.mli
index ddbd07698..1092a2fb2 100644
--- a/stdlib/format.mli
+++ b/stdlib/format.mli
@@ -762,51 +762,41 @@ val pp_get_all_formatter_output_functions :
 (** Tabulation boxes are deprecated. *)
 
 val pp_open_tbox : formatter -> unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val pp_close_tbox : formatter -> unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val pp_print_tbreak : formatter -> int -> int -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val pp_set_tab : formatter -> unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val pp_print_tab : formatter -> unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val open_tbox : unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val close_tbox : unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val print_tbreak : int -> int -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val set_tab : unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)
 
 val print_tab : unit -> unit
-(** @deprecated
-  @since 4.03.0
-*)
+[@@ocaml.deprecated "Tabulation boxes are not supported any more."]
+(** @deprecated since 4.03.0 *)