From b4260c7c04f7e82a9987b7bb758040853ebc464e Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Thu, 9 Jul 2020 15:15:53 +0200 Subject: 2020-07-09 14:50:00 --- tex/context/base/mkiv/supp-dir.mkiv | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'tex/context/base/mkiv/supp-dir.mkiv') diff --git a/tex/context/base/mkiv/supp-dir.mkiv b/tex/context/base/mkiv/supp-dir.mkiv index 277f2b7ca..e6c2a5869 100644 --- a/tex/context/base/mkiv/supp-dir.mkiv +++ b/tex/context/base/mkiv/supp-dir.mkiv @@ -18,19 +18,19 @@ \edef\??bdir{\ifdefined\bodydir bdir\else direction\fi} -\unexpanded\edef\naturalhbox {\hbox \??bdir\directionlefttoright} -\unexpanded\edef\naturalvbox {\vbox \??bdir\directionlefttoright} -\unexpanded\edef\naturalvtop {\vtop \??bdir\directionlefttoright} -\unexpanded\edef\naturalhpack {\hpack \??bdir\directionlefttoright} -\unexpanded\edef\naturalvpack {\vpack \??bdir\directionlefttoright} -\unexpanded\edef\naturaltpack {\tpack \??bdir\directionlefttoright} - -\unexpanded\edef\reversehbox {\hbox \??bdir\directionrighttoleft} -\unexpanded\edef\reversevbox {\vbox \??bdir\directionrighttoleft} -\unexpanded\edef\reversevtop {\vtop \??bdir\directionrighttoleft} -\unexpanded\edef\reversehpack {\hpack \??bdir\directionrighttoleft} -\unexpanded\edef\reversevpack {\vpack \??bdir\directionrighttoleft} -\unexpanded\edef\reversetpack {\tpack \??bdir\directionrighttoleft} +\protected\edef\naturalhbox {\hbox \??bdir\directionlefttoright} +\protected\edef\naturalvbox {\vbox \??bdir\directionlefttoright} +\protected\edef\naturalvtop {\vtop \??bdir\directionlefttoright} +\protected\edef\naturalhpack {\hpack \??bdir\directionlefttoright} +\protected\edef\naturalvpack {\vpack \??bdir\directionlefttoright} +\protected\edef\naturaltpack {\tpack \??bdir\directionlefttoright} + +\protected\edef\reversehbox {\hbox \??bdir\directionrighttoleft} +\protected\edef\reversevbox {\vbox \??bdir\directionrighttoleft} +\protected\edef\reversevtop {\vtop \??bdir\directionrighttoleft} +\protected\edef\reversehpack {\hpack \??bdir\directionrighttoleft} +\protected\edef\reversevpack {\vpack \??bdir\directionrighttoleft} +\protected\edef\reversetpack {\tpack \??bdir\directionrighttoleft} \ifdefined\bodydir \let\bodydir \undefined \let\normalbodydir \undefined @@ -47,7 +47,7 @@ \def\syst_direction_string#1{\ifcase#1=\plusone r2l\else l2r\fi} -\unexpanded\def\showdirsinmargin +\protected\def\showdirsinmargin {\normalexpanded{\inleft{\naturalhbox {\ttxx[\syst_direction_string\pardirection,\syst_direction_string\textdirection]}}}} -- cgit v1.2.3