diff options
| author | Hans Hagen <pragma@wxs.nl> | 2018-12-30 20:04:02 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2018-12-30 20:04:02 +0100 |
| commit | b28de538b3b4dc7acda5eb9eefc7a7d68c8fb49f (patch) | |
| tree | d9492ef270d3eff2827a462f3b77ac3251b5c43c /tex/context/base/mkiv/supp-dir.mkiv | |
| parent | 2f8058544f8a3fead8186bdcb3835f1f67416cc3 (diff) | |
| download | context-b28de538b3b4dc7acda5eb9eefc7a7d68c8fb49f.tar.gz | |
2018-12-30 19:36:00
Diffstat (limited to 'tex/context/base/mkiv/supp-dir.mkiv')
| -rw-r--r-- | tex/context/base/mkiv/supp-dir.mkiv | 28 |
1 files changed, 5 insertions, 23 deletions
diff --git a/tex/context/base/mkiv/supp-dir.mkiv b/tex/context/base/mkiv/supp-dir.mkiv index 073d32aa7..3447a83a3 100644 --- a/tex/context/base/mkiv/supp-dir.mkiv +++ b/tex/context/base/mkiv/supp-dir.mkiv @@ -11,33 +11,15 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -%D We no longer have the \ETEX\ direction primitives. - \unprotect -% \expanded{\defineactivecharacter \number"2000E} {\textdir TRT\relax} -% \expanded{\defineactivecharacter \number"2000F} {\textdir TLT\relax} - -%D As we have less directions now we can use something +% \expanded{\defineactivecharacter \number"2000E} {\textdirection TRT\relax} +% \expanded{\defineactivecharacter \number"2000F} {\textdirection TLT\relax} -% \chardef\@@D@@TLT0 -% \chardef\@@D@@TRT1 -% \chardef\@@D@@RTT0 -% \chardef\@@D@@LRL1 -% -% \def\thetextdir{\csname @@D@@\the\textdir\endcsname} -% -% \ifnum\thetextdir=0 L\else R\fi \textdir TRT \ifnum\thetextdir=0 L\else R\fi +\def\syst_direction_string#1{\ifcase#1=\plusone r2l\else l2r\fi} \unexpanded\def\showdirsinmargin - {\inleft{\normalexpanded{\noexpand\hbox bdir\directionlefttoright{\ttxx[\the\pardir,\the\textdir]}}}} - -% this will become: - -% \def\syst_direction_string#1{\ifnum#1=\plusone r2l\else l2r\fi} -% -% \unexpanded\def\showdirsinmargin -% {\inleft{\normalexpanded{\noexpand\hbox bdir\directionlefttoright -% {\ttxx[\syst_direction_string\pardirection,\syst_direction_string\textdirection]}}}} + {\normalexpanded{\inleft{\naturalhbox + {\ttxx[\syst_direction_string\pardirection,\syst_direction_string\textdirection]}}}} \protect \endinput |