diff options
| author | Hugo Herbelin | 2020-04-05 15:46:47 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-04-05 15:48:59 +0200 |
| commit | 52145601d33ee3fa81ed3e291f2e4db1c6c1d622 (patch) | |
| tree | 25bf205edc2b79ab2f12072549a75a9e5166033e /tools | |
| parent | f79e15086e9a6f002facd7411971a1f69beac46d (diff) | |
Coqdoc: Do not consider a _ following a « " », « ' » or « ` » as starting emphasis.
This is to support referring to names such as _CoqProject.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/coqdoc/cpretty.mll | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/coqdoc/cpretty.mll b/tools/coqdoc/cpretty.mll index 0f25bc8e12..61253019bd 100644 --- a/tools/coqdoc/cpretty.mll +++ b/tools/coqdoc/cpretty.mll @@ -284,7 +284,7 @@ let identifier = (* This misses unicode stuff, and it adds "[" and "]". It's only an approximation of idents - used for detecting whether an underscore is part of an identifier or meant to indicate emphasis *) -let nonidentchar = [^ 'A'-'Z' 'a'-'z' '_' '[' ']' '\'' '0'-'9' '@' ] +let nonidentchar = [^ 'A'-'Z' 'a'-'z' '_' '[' ']' '\'' '0'-'9' '@' '\"' '\'' '`'] let printing_token = [^ ' ' '\t']* |