diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/pp.ml | 2 | ||||
| -rw-r--r-- | lib/pp.mli | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -217,7 +217,7 @@ let tclose () = Glue.atom(Ppcmd_close_tbox) (* Opening and closed of tags *) let open_tag t = Glue.atom(Ppcmd_open_tag t) let close_tag () = Glue.atom(Ppcmd_close_tag) - +let tag t s = open_tag t ++ s ++ close_tag () let eval_ppcmds l = l (* In new syntax only double quote char is escaped by repeating it *) diff --git a/lib/pp.mli b/lib/pp.mli index eb847189a3..f29f9b2f3b 100644 --- a/lib/pp.mli +++ b/lib/pp.mli @@ -82,6 +82,7 @@ val tclose : unit -> std_ppcmds (** {6 Opening and closing of tags} *) +val tag : string -> std_ppcmds -> std_ppcmds val open_tag : string -> std_ppcmds val close_tag : unit -> std_ppcmds |