diff options
| author | Hans Hagen <pragma@wxs.nl> | 2003-01-28 00:00:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2003-01-28 00:00:00 +0100 |
| commit | e65a436deb332118831156075846acc80fb9d386 (patch) | |
| tree | 361145fb042743a584c6bb7accc12e6e902088c6 /tex/context/base/supp-mrk.tex | |
| parent | 8de3b8a6a820ba65fe85f0cb83700b6282e61d71 (diff) | |
| download | context-e65a436deb332118831156075846acc80fb9d386.tar.gz | |
stable 2003.01.28
Diffstat (limited to 'tex/context/base/supp-mrk.tex')
| -rw-r--r-- | tex/context/base/supp-mrk.tex | 29 |
1 files changed, 25 insertions, 4 deletions
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 |