From e65a436deb332118831156075846acc80fb9d386 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Tue, 28 Jan 2003 00:00:00 +0100
Subject: stable 2003.01.28

---
 tex/context/base/supp-mrk.tex | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

(limited to 'tex/context/base/supp-mrk.tex')

diff --git a/tex/context/base/supp-mrk.tex b/tex/context/base/supp-mrk.tex
index f869e408a..34d484946 100644
--- a/tex/context/base/supp-mrk.tex
+++ b/tex/context/base/supp-mrk.tex
@@ -419,8 +419,19 @@
   {%\writestatus{marks}{checking \string#1}\wait
    \ifcase\csname\@@mrk\string#1\endcsname\else\dochecktopmark#1\fi}
 
-\def\dochecktopmark#1% 
-  {\ifcase0\@EA\normalfirstmarks\csname\@@prk\string#1\endcsname\else
+%\def\dochecktopmark#1% 
+%  {\ifcase0\@EA\normalfirstmarks\csname\@@prk\string#1\endcsname\else
+%     \@EA\ifx\csname\@@frk\string#1\endcsname\empty
+%       \@EA\gdef\csname\@@frk\string#1\endcsname{\normalfirstmarks#1}%
+%       \@EA\gdef\csname\@@brk\string#1\endcsname{\normalbotmarks  #1}%
+%     \else
+%       \@EA\gdef\csname\@@trk\string#1\endcsname{\normaltopmarks  #1}%
+%       \global\@EA\chardef\csname\@@mrk\string#1\endcsname\zerocount
+%     \fi
+%   \fi}
+
+\def\dochecktopmark#1%
+  {\ifx*\@EA\normalfirstmarks\csname\@@prk\string#1\endcsname*\else
      \@EA\ifx\csname\@@frk\string#1\endcsname\empty
        \@EA\gdef\csname\@@frk\string#1\endcsname{\normalfirstmarks#1}%
        \@EA\gdef\csname\@@brk\string#1\endcsname{\normalbotmarks  #1}%
@@ -430,9 +441,17 @@
      \fi
    \fi}
 
-\def\resetmark#1% we cannot use \normalmarks#1{} 
+%\def\resetmark#1% we cannot use \normalmarks#1{} 
+%  {\global\@EA\chardef\csname\@@mrk\string#1\endcsname\zerocount
+%   \@EA\normalmarks\csname\@@prk\string#1\endcsname{0}%
+%   \global\@EA\let\csname\@@trk\string#1\endcsname\empty
+%   \global\@EA\let\csname\@@frk\string#1\endcsname\empty
+%   \global\@EA\let\csname\@@brk\string#1\endcsname\empty
+%   \global\@EA\let\csname\@@crk\string#1\endcsname\empty}
+
+\def\resetmark#1% we cannot use \normalmarks#1{}
   {\global\@EA\chardef\csname\@@mrk\string#1\endcsname\zerocount
-   \@EA\normalmarks\csname\@@prk\string#1\endcsname{0}%
+   \@EA\normalmarks\csname\@@prk\string#1\endcsname{}% {0}%
    \global\@EA\let\csname\@@trk\string#1\endcsname\empty
    \global\@EA\let\csname\@@frk\string#1\endcsname\empty
    \global\@EA\let\csname\@@brk\string#1\endcsname\empty
@@ -574,6 +593,7 @@
 \let\rawgetbotmark       \getbotmark
 \let\rawgetsplitbotmark  \normalsplitbotmark   
 \let\rawgetsplitfirstmark\normalsplitfirstmark  
+\let\rawgetsplittopmark  \normalsplitfirstmark
 
 \endTEX
 
@@ -587,6 +607,7 @@
 \let\rawgetbotmark       \normalbotmarks
 \let\rawgetsplitbotmark  \normalsplitbotmarks   
 \let\rawgetsplitfirstmark\normalsplitfirstmarks  
+\let\rawgetsplittopmark  \normalsplitfirstmarks  
 
 \endETEX
 
-- 
cgit v1.2.3

