diff options
author | Hans Hagen <pragma@wxs.nl> | 2011-08-18 16:00:00 +0200 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2011-08-18 16:00:00 +0200 |
commit | 4e9248d3c8103ea8758c6173f7e3af603e0da642 (patch) | |
tree | 1f7f551567c93e3a62accc4c0d7e68a8169ab99f /tex/context/base/bibl-tra.mkiv | |
parent | e7b67a4f409457e80dde3a5383071869ace85685 (diff) | |
download | context-4e9248d3c8103ea8758c6173f7e3af603e0da642.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} |