summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/spac-ver.mkxl
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/mkxl/spac-ver.mkxl')
-rw-r--r--tex/context/base/mkxl/spac-ver.mkxl33
1 files changed, 18 insertions, 15 deletions
diff --git a/tex/context/base/mkxl/spac-ver.mkxl b/tex/context/base/mkxl/spac-ver.mkxl
index 755460ac2..bb12b5f5d 100644
--- a/tex/context/base/mkxl/spac-ver.mkxl
+++ b/tex/context/base/mkxl/spac-ver.mkxl
@@ -81,7 +81,7 @@
\relax}
\ifdefined\bodyfontinterlinespace \else
- \let\bodyfontinterlinespace\empty
+ \lettonothing\bodyfontinterlinespace
\fi
\permanent\protected\def\presetnormallineheight % each bodyfont
@@ -118,12 +118,13 @@
\installcorenamespace{interlinespacerelative}
-\aliased\let\setrelativeinterlinespace \relax % used elsewhere
-\mutable\let\currentrelativeinterlinespace\empty
+\aliased\let\setrelativeinterlinespace\relax % used elsewhere
+
+\mutable\lettonothing\currentrelativeinterlinespace
\defcsname\??interlinespacerelative\v!on \endcsname{\oninterlineskip}
\defcsname\??interlinespacerelative\v!off \endcsname{\offinterlineskip}
-\defcsname\??interlinespacerelative\v!reset\endcsname{\enforced\let\currentrelativeinterlinespace\empty
+\defcsname\??interlinespacerelative\v!reset\endcsname{\enforced\lettonothing\currentrelativeinterlinespace
\enforced\let\setrelativeinterlinespace\relax
\setfontparameters}
\defcsname\??interlinespacerelative\v!auto \endcsname{\enforced\let\setrelativeinterlinespace\spac_linespacing_set_relative_interlinespace}
@@ -501,7 +502,8 @@
{\enforced\let\spac_lines_vbox\vbox}
\let\v_spac_lines_around_action_set\relax
-\let\m_spac_lines_around \empty
+
+\lettonothing\m_spac_lines_around
\newconstant\c_spac_lines_correction_mode
@@ -1074,9 +1076,9 @@
\appendtoks
% \setbox\strutbox\copy\nostrutbox
- \enforced\let\strut \empty
- \enforced\let\endstrut\empty
- \enforced\let\begstrut\empty
+ \enforced\lettonothing\strut
+ \enforced\lettonothing\endstrut
+ \enforced\lettonothing\begstrut
\to \everysetnostrut
%D When enabled, sigstruts will remove themselves if nothing goes inbetween. For
@@ -1429,7 +1431,7 @@
\ifcsname\??gridsnappersets#1\endcsname\lastnamedcs\else#1\fi}}
\permanent\protected\def\installsnapvalues#1#2%
- {\let\m_spac_snapper\empty
+ {\lettonothing\m_spac_snapper
\rawprocesscommacommand[#2]\spac_grids_expand_snapper
\edef\p_spac_snapper{#1:\m_spac_snapper}%
\ifcsname\??gridsnapperattributes\p_spac_snapper\endcsname
@@ -1649,14 +1651,15 @@
\permanent\protected\def\setupgridsnapping[#1]% less overhead than setuplayout (needs testing)
{\setlayoutparameter\c!grid{#1}\synchronizegridsnapping}
-\mutable\let\checkedgridmethod\empty % these can become private
-\mutable\let\checkedgridscope \v!local % these can become private
+\mutable\lettonothing\checkedgridmethod % this can become private
+
+\mutable\let\checkedgridscope\v!local % this can become private
\permanent\protected\def\checkgridmethod#1%
{\edef\p_grid{#1}%
\ifempty\p_grid
- \let\checkedgridmethod\empty
- \let\checkedgridscope \v!local
+ \lettonothing\checkedgridmethod
+ \let\checkedgridscope\v!local
\else
\splitatcolon\p_grid\checkedgridscope\checkedgridmethod
\ifempty\checkedgridmethod
@@ -2179,12 +2182,12 @@
\c!location=\v!left,
\c!n=\zerocount]
-\let\m_spac_hanging_location\empty
+\lettonothing\m_spac_hanging_location
\permanent\tolerant\protected\def\starthanging[#1]%
{\dontleavehmode\bgroup
\ifhastok={#1}%
- \let\m_spac_hanging_location\empty
+ \lettonothing\m_spac_hanging_location
\setupcurrenthanging[#1]%
\else
\edef\m_spac_hanging_location{#1}%