summaryrefslogtreecommitdiff
path: root/tex/context/base/core-spa.tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/core-spa.tex')
-rw-r--r--tex/context/base/core-spa.tex10
1 files changed, 8 insertions, 2 deletions
diff --git a/tex/context/base/core-spa.tex b/tex/context/base/core-spa.tex
index a4e111f06..9f2750b4d 100644
--- a/tex/context/base/core-spa.tex
+++ b/tex/context/base/core-spa.tex
@@ -1190,6 +1190,8 @@
\newdimen\openlineheight
\newdimen\openstrutheight
\newdimen\openstrutdepth
+\newdimen\topskipgap
+
\def\strutheightfactor {.72}
\def\strutdepthfactor {.28}
@@ -1227,6 +1229,7 @@
\def\topskipcorrection%
{\ifdim\topskip>\openstrutheight
+ % == \vskip\topskipgap
\vskip\topskip
\vskip-\openstrutheight
\fi
@@ -1239,6 +1242,8 @@
\ifr@ggedbottom\!!plus5\globalbodyfontsize\fi
\fi
\relax % the skip
+ \topskipgap\topskip
+ \advance\topskipgap -\openstrutheight\relax
\ifdim\topskip<\strutheightfactor\openlineheight
\topskip\strutheightfactor\openlineheight\relax
\fi}
@@ -1270,7 +1275,8 @@
\def\spacing#1%
{\ifgridsnapping
- \doifnot{#1}{1}{\showmessage{\m!layouts}{11}{#1}}%
+ %\doifnot{#1}{1}{\showmessage{\m!layouts}{11}{#1}}%
+ \ifdim#1pt=1pt\else\showmessage{\m!layouts}{11}{#1}\fi
\edef\spacingfactor{1}%
\else
\edef\spacingfactor{#1}%
@@ -1636,7 +1642,7 @@
%
% much faster and important since TABLE uses them a lot:
-\def\dodosetraggedcommand#1%
+\def\dodosetraggedcommand#1% beware: #1=empty is ignored, keep that!
{\let\raggedcommand\relax
\let\raggedtopcommand\empty
\let\raggedbottomcommand\empty