diff options
| author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-03-27 00:01:17 +0100 |
|---|---|---|
| committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-03-27 00:01:17 +0100 |
| commit | 105f350223a842d5a72170f192a2a597cd12290b (patch) | |
| tree | 86006ab9e2178cf2a88937f50b40b21f6e318d70 /luatexbase-cctb.dtx | |
| parent | 23a17df502ce5f8b360c1e10bc0dedae87631788 (diff) | |
| download | luatexbase-105f350223a842d5a72170f192a2a597cd12290b.tar.gz | |
fix sensitivity to \escapechar
Diffstat (limited to 'luatexbase-cctb.dtx')
| -rw-r--r-- | luatexbase-cctb.dtx | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/luatexbase-cctb.dtx b/luatexbase-cctb.dtx index a73f483..d7de151 100644 --- a/luatexbase-cctb.dtx +++ b/luatexbase-cctb.dtx @@ -215,6 +215,7 @@ and the derived files \allocationnumber\lltxb@catcodetable@alloc \global\chardef#1\allocationnumber \luatexinitcatcodetable\allocationnumber + \begingroup\escapechar\m@ne \expandafter\endgroup \directlua{luatextra.catcodetabledef_from_tex( '\luatexluaescapestring{\string#1}', '\number\allocationnumber')}% \wlog{\string#1=\string\luatexcatcodetable\the\allocationnumber}% @@ -279,14 +280,10 @@ and the derived files \newluatexcatcodetable\CatcodeTableLaTeX \newluatexcatcodetable\CatcodeTableLaTeXAtLetter \newluatexcatcodetable\CatcodeTableExpl -%% \luatexinitcatcodetable\CatcodeTableIniTeX - -\expandafter\ifx\csname @firstofone\endcsname\relax - \long\def\@firstofone#1{#1}% -\fi \begingroup \def\@makeother#1{\catcode#1=12\relax}% + \long\def\@firstofone#1{#1}% \@firstofone{% \luatexcatcodetable\CatcodeTableIniTeX \begingroup @@ -424,7 +421,7 @@ end \escapechar64 \newluatexcatcodetable\anothercctb \endgroup -% \directlua{assert(luatextra.catcodetables.anothercctb)} +\directlua{assert(luatextra.catcodetables.anothercctb)} %</testplain,testlatex> %<testplain>\bye %<testlatex>\stop |