diff options
| author | Marius <mariausol@gmail.com> | 2011-08-18 17:40:23 +0300 |
|---|---|---|
| committer | Marius <mariausol@gmail.com> | 2011-08-18 17:40:23 +0300 |
| commit | 5463542d926a6ca73d86251154cabc00a9333fa5 (patch) | |
| tree | 33c0104835277e96d6b0474466e75963fef16de4 /tex/context/base/bibl-tra.mkiv | |
| parent | ee4f24d635e0db2029f026a1c098ae76d1e537d3 (diff) | |
| download | context-5463542d926a6ca73d86251154cabc00a9333fa5.tar.gz | |
beta 2011.08.18 16:00
Diffstat (limited to 'tex/context/base/bibl-tra.mkiv')
| -rw-r--r-- | tex/context/base/bibl-tra.mkiv | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/tex/context/base/bibl-tra.mkiv b/tex/context/base/bibl-tra.mkiv index 51309327e..e11e6fd6f 100644 --- a/tex/context/base/bibl-tra.mkiv +++ b/tex/context/base/bibl-tra.mkiv @@ -656,9 +656,7 @@ %D Now prohibits comments, so % can be used for urls \unexpanded\def\startpublication - {\begingroup - \catcode\commentasciicode\othercatcode - \dosingleempty\dostartpublication} + {\dosingleempty\dostartpublication} \let\stoppublication\relax @@ -676,12 +674,17 @@ % hm, we can store at the lua end ... -\long\def\dostartpublication[#1]#2\stoppublication - {\doifassignmentelse{#1}% +\def\dostartpublication[#1]% + {\begingroup + \doifassignmentelse{#1}% {\getparameters[\??pb][k=\s!unknown,t=article,n=,s=,a=,y=,o=,u=,#1]}% {\getparameters[\??pb][k=#1,t=article,n=,s=,a=,y=,o=,u=]}% \ctxlua{bibtex.hacks.register("\@@pbk")}% - \setxvalue{pbd:\@@pbk}##1{\noexpand\ifcase##1\noexpand\or + \catcode\commentasciicode\othercatcode + \dodostartpublication} + +\def\dodostartpublication#1\stoppublication + {\setxvalue{pbd:\@@pbk}##1{\noexpand\ifcase##1\noexpand\or \@@pbk\noexpand\or \@@pba\noexpand\or \@@pby\noexpand\or @@ -690,7 +693,7 @@ \@@pbt\noexpand\or \@@pbo\noexpand\or \@@pbu\noexpand\or - \normalunexpanded{#2}\noexpand\fi}% + \normalunexpanded{#1}\noexpand\fi}% \endgroup \ignorespaces} |