PR#5497: source code copy-paste problem with backquote character

git-svn-id: http://caml.inria.fr/svn/ocamldoc/trunk@12145 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2012-02-10 09:11:53 +00:00
parent 0aa5027923
commit 53ae65e944
2 changed files with 9 additions and 5 deletions

View File

@ -16,17 +16,16 @@
\def\@eunderline{\egroup\underline{\box0}} \def\@eunderline{\egroup\underline{\box0}}
{\catcode`'=\active {\catcode`'=\active
\catcode``=\active
\global\def\caml{ \global\def\caml{
\bgroup \bgroup
\flushleft \flushleft
\parindent 0pt \parindent 0pt
\parskip 0pt \parskip 0pt
\let\do\@makeother\dospecials \let\do\@makeother\dospecials
\catcode`'=\active \catcode13=\active % 13 = ^M = CR
\chardef'=13 \catcode92=0 % 92 = \
\catcode`\^^M=\active \catcode32=\active % 32 = SPC
\catcode`\\=0
\catcode`\ \active
\frenchspacing \frenchspacing
\@vobeyspaces \@vobeyspaces
\let\@oldpar\par \let\@oldpar\par
@ -36,6 +35,10 @@
\let\<\@bunderline \let\<\@bunderline
\let\>\@eunderline \let\>\@eunderline
\let\\\@camlbackslash \let\\\@camlbackslash
\catcode39=\active % 39 = '
\chardef'=13
\catcode96=\active % 96 = `
\chardef`=18
} }
} }

View File

@ -50,6 +50,7 @@ int main(argc, argv)
transl['#'] = "\\#"; transl['#'] = "\\#";
transl['%'] = "\\%"; transl['%'] = "\\%";
transl['\''] = "{\\char13}"; transl['\''] = "{\\char13}";
transl['`'] = "{\\char18}";
inverbatim = 0; inverbatim = 0;
incaml = 0; incaml = 0;
inquote = 0; inquote = 0;