diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-04-02 19:26:27 +0200 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-04-02 19:26:27 +0200 |
commit | 4226e7ac76ee8a292b717a3c0c12ef0c60495e90 (patch) | |
tree | d39e4749a19633a664395008fa161c36a1b64a1f /tools/coqdoc | |
parent | f10a4ac8e58917f0d9b11458465a963a562aa582 (diff) |
Avoid outputting stray "Local" keywords in HTML documentation.
Diffstat (limited to 'tools/coqdoc')
-rw-r--r-- | tools/coqdoc/cpretty.mll | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/tools/coqdoc/cpretty.mll b/tools/coqdoc/cpretty.mll index 20dd69f82..cb7041467 100644 --- a/tools/coqdoc/cpretty.mll +++ b/tools/coqdoc/cpretty.mll @@ -456,13 +456,7 @@ rule coq_bol = parse { begin_show (); coq_bol lexbuf } | space* end_show { end_show (); coq_bol lexbuf } - | space* ("Local"|"Global") - { - in_proof := None; - let s = lexeme lexbuf in - output_indented_keyword s lexbuf; - coq_bol lexbuf } - | space* gallina_kw_to_hide + | space* (("Local"|"Global") space+)? gallina_kw_to_hide { let s = lexeme lexbuf in if !Cdglobals.light && section_or_end s then let eol = skip_to_dot lexbuf in @@ -596,7 +590,7 @@ and coq = parse end } | eof { () } - | gallina_kw_to_hide + | (("Local"|"Global") space+)? gallina_kw_to_hide { let s = lexeme lexbuf in if !Cdglobals.light && section_or_end s then begin |