diff options
author | Hans Hagen <pragma@wxs.nl> | 2012-01-05 19:27:53 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2012-01-05 19:27:53 +0100 |
commit | 4b459764a30ae1fb1e124b1a7a5a44ecb5a4d54b (patch) | |
tree | c40189f3df34d9843149b5b0154b424df8de02dd /tex/context/base/phys-dim.mkiv | |
parent | f55d2b463bb22fc74c5da3a3e0a699901540f727 (diff) | |
download | context-4b459764a30ae1fb1e124b1a7a5a44ecb5a4d54b.tar.gz |
beta 2011.12.31 13:16
Diffstat (limited to 'tex/context/base/phys-dim.mkiv')
-rw-r--r-- | tex/context/base/phys-dim.mkiv | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/tex/context/base/phys-dim.mkiv b/tex/context/base/phys-dim.mkiv index a82badb91..3a153281d 100644 --- a/tex/context/base/phys-dim.mkiv +++ b/tex/context/base/phys-dim.mkiv @@ -328,7 +328,11 @@ % only a space when a number is part of the unit -\installcommandhandler \??un {unit} \??un +\installcorenamespace {unit} +\installcorenamespace {unitseparator} +\installcorenamespace {unitspace} + +\installcommandhandler \??unit {unit} \??unit \setupunit [\c!alternative=, % done: text @@ -362,12 +366,12 @@ \unexpanded\def\unitsbackspace {\negthinspace} \unexpanded\def\installunitsseparator#1#2% - {\setvalue{\??un:1:#1}{#2}} + {\setvalue{\??unitseparator#1}{#2}} \unexpanded\def\dounitsseparator {\edef\currentunitsseparator{\unitparameter\c!separator}% - \csname\??un:1:% - \ifcsname\??un:1:\currentunitsseparator\endcsname\currentunitsseparator\else\v!normal\fi + \csname\??unitseparator + \ifcsname\??unitseparator\currentunitsseparator\endcsname\currentunitsseparator\else\v!normal\fi \endcsname} \installunitsseparator\v!normal {\cdot} @@ -377,13 +381,13 @@ \installunitsseparator\v!none {} \unexpanded\def\installunitsspace#1#2% - {\setvalue{\??un:2:#1}{#2}} + {\setvalue{\??unitspace#1}{#2}} \unexpanded\def\dounitsspace {\unskip % weird, why is unskip needed \edef\currentunitsspace{\unitparameter\c!space}% - \csname\??un:2:% - \ifcsname\??un:2:\currentunitsspace\endcsname\currentunitsspace\else\v!normal\fi + \csname\??unitspace + \ifcsname\??unitspace\currentunitsspace\endcsname\currentunitsspace\else\v!normal\fi \endcsname} \installunitsspace\v!normal {\unitsmediumspace} |