diff options
author | Hans Hagen <pragma@wxs.nl> | 2022-10-22 11:49:10 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2022-10-22 11:49:10 +0200 |
commit | dd0a80e5ec42f60832e7d5dc47210e6f3545c400 (patch) | |
tree | 46a766cfb43fde35555f95a99ffb7e156bbec943 /tex/context/base/mkiv/phys-dim.mkiv | |
parent | 5d31142615a7efaf833be860e412995b42bf9c3c (diff) | |
download | context-dd0a80e5ec42f60832e7d5dc47210e6f3545c400.tar.gz |
2022-10-22 11:22:00
Diffstat (limited to 'tex/context/base/mkiv/phys-dim.mkiv')
-rw-r--r-- | tex/context/base/mkiv/phys-dim.mkiv | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/tex/context/base/mkiv/phys-dim.mkiv b/tex/context/base/mkiv/phys-dim.mkiv index b390ce64a..a05300cce 100644 --- a/tex/context/base/mkiv/phys-dim.mkiv +++ b/tex/context/base/mkiv/phys-dim.mkiv @@ -170,9 +170,8 @@ % \definesymbol[units][times][\ifmmode\cdot\else\kern.2\emwidth\cdot\kern.2\emwidth\fi] \unexpanded\def\digitstextbinop#1% assumes preceding - {\ifmmode#1\else\fourperemspace\nobreak#1\fourperemspace\fi} + {\ifmmode\mathord{#1}\else\nobreak#1\fi} -%def\digitstimessymbol{\ifmmode\cdot\else\digitstextbinop\cdot\fi} \def\digitstimessymbol{\digitstextbinop\times} \unexpanded\def\digitszeropadding {\hphantom{0}} @@ -406,8 +405,13 @@ % \endcsname} \unexpanded\def\phys_units_separator - {\edef\currentunitsseparator{\unitparameter\c!separator}% no longer needed - \ifcsname\??unitseparator\currentunitsseparator\endcsname\lastnamedcs\else\cdot\fi} + {\ifcsname\??unitseparator\unitparameter\c!separator\endcsname + \lastnamedcs + \else + \csname\??unitseparator\v!normal\endcsname + \fi} + +\installunitsseparator\v!normal{\ifmmode\mathord{\cdot}\else\cdot\fi} \installunitsseparator\v!normal {\cdot} \installunitsseparator\v!big {\unitsbigspace} @@ -521,9 +525,6 @@ {\edef\p_order{\unitparameter\c!order}% \ifx\p_order\v!reverse\expandafter\clf_unit_reverse\else\expandafter\clf_unit_normal\fi{\detokenize{#1}}} -\unexpanded\def\digitstextbinnop#1% - {\ifmmode#1\else#1\fourperemspace\fi} - \unexpanded\def\unitsPUS#1#2#3{\phys_units_next\prefixtext{#1}\unittext{#2}\unitsraise{\suffixtext{#3}}\c_phys_units_state\plusone} % suffix \unexpanded\def\unitsPU #1#2{\phys_units_next\prefixtext{#1}\unittext{#2}\c_phys_units_state\plusthree} % unit \unexpanded\def\unitsPS #1#2{\phys_units_next\prefixtext{#1}\unitsraise{\suffixtext{#2}}\c_phys_units_state\plusone} % suffix |