diff options
| author | herbelin | 2005-12-19 10:35:46 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-19 10:35:46 +0000 |
| commit | e8176a699455057c3180612ac5309320f7769ba0 (patch) | |
| tree | 655e5476b7202235651335cab5087b93f2290fef | |
| parent | 213654c0486bd71ecdc8651c1a04d4c95bbf6fc0 (diff) | |
Suppression de la mise en boite automatique si format utilisateur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7670 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/metasyntax.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 498b21f7f9..20dce3ac2b 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -791,10 +791,8 @@ let make_syntax_rule n name symbols typs ast ntn sc = let make_pp_rule (n,typs,symbols,fmt) = match fmt with - | None -> [UnpBox (PpHOVB 0, make_hunks typs symbols n)] - | Some fmt -> - [UnpBox (PpHOVB 0, - hunks_of_format (n,List.split typs) (symbols,parse_format fmt))] + | None -> [UnpBox (PpHOVB 0, make_hunks typs symbols n)] + | Some fmt -> hunks_of_format (n,List.split typs) (symbols,parse_format fmt) (**************************************************************************) (* Syntax extenstion: common parsing/printing rules and no interpretation *) |