From d1094c61b213e9897b6191965d07a5c250f0be9b Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Tue, 24 Jul 2007 14:36:00 +0200
Subject: stable 2007.07.24 14:36

---
 tex/context/base/core-spa.mkii | 46 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 tex/context/base/core-spa.mkii

(limited to 'tex/context/base/core-spa.mkii')

diff --git a/tex/context/base/core-spa.mkii b/tex/context/base/core-spa.mkii
new file mode 100644
index 000000000..b3d71699d
--- /dev/null
+++ b/tex/context/base/core-spa.mkii
@@ -0,0 +1,46 @@
+%D \module
+%D   [       file=core-spa,
+%D        version=1997.03.31,
+%D          title=\CONTEXT\ Core Macros,
+%D       subtitle=Spacing,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\unprotect
+
+% Just after we implemented the \MKIV\ code, Thanh posted a patch for
+% \PDFTEX. The following code is untested! (\LUATEX\ does not contain
+% this code!)
+
+\ifx\pdfkeeplinedimen\undefined
+
+    \let\mksetupgridsnapping  \relax
+    \let\mkenablegridsnapping \relax
+    \let\mkdisablegridsnapping\relax
+
+\else
+
+    \def\mksetupgridsnapping
+      {\pdfeachlineheight  \openstrutheight
+       \pdfeachlinedepth   \openstrutdepth
+       \pdffirstlineheight \pdfeachlineheight
+       \pdflastlinedepth   \pdfeachlinedepth}
+
+    \def\mkenablegridsnapping
+      {\pdfkeeplinedimen\maxdimen
+       \topskip\strutht
+       \offinterlineskip}
+
+    \def\mkdisablegridsnapping
+      {\pdfkeeplinedimen\zeropoint
+       % reset topskip
+       \oninterlineskip}
+
+\fi
+
+\protect \endinput
-- 
cgit v1.2.3