summaryrefslogtreecommitdiff
path: root/tex/context/base/supp-fun.tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/supp-fun.tex')
-rw-r--r--tex/context/base/supp-fun.tex26
1 files changed, 25 insertions, 1 deletions
diff --git a/tex/context/base/supp-fun.tex b/tex/context/base/supp-fun.tex
index 6856a21ed..b8c21247c 100644
--- a/tex/context/base/supp-fun.tex
+++ b/tex/context/base/supp-fun.tex
@@ -72,7 +72,7 @@
%D \DroppedCaps
%D {\color[red]} {cmbx12}
%D {2\baselineskip} {0pt} {\baselineskip} {2}
-%D In this ugly
+%D Is this ugly
%D \stopbuffer
%D
%D \haalbuffer example the third argument tells
@@ -156,6 +156,8 @@
\let\globaldropcaps\global % will be an option, but on by default
+\def\localdropcaps{\let\globaldropcaps\relax}
+
\chardef\DroppedStatus=0 % 0=done 1=starting 2=doing 3=error
\def\DroppedCaps#1#2#3#4#5#6#7% does not yet handle accented chars
@@ -194,6 +196,7 @@
\globaldropcaps\edef\DroppedLines {\number\maxdimen}%
\globaldropcaps\chardef\DroppedStatus=3
\def\next{#7}}%
+ \let\globaldropcaps\global
\next}
%D Before we go to the next topic, we summarize this command:
@@ -203,6 +206,27 @@
%D {command} {font}
%D {height} {hoffset} {voffset} {lines}
%D \stoptypen
+%D
+%D Sometimes you need to make sure that the global settings are
+%D kept local, as in:
+%D
+%D \startbuffer
+%D \defineparagraphs[SomePar][n=2,rule=on]
+%D \setupparagraphs [SomePar][1][width=.5\textwidth]
+%D \setupparagraphs [SomePar][2][width=.5\textwidth]
+%D
+%D \startSomePar
+%D \localdropcaps\NiceDroppedCaps{}{cmr12}{0pt}{2}Here we need
+%D to explicitly keep the hanging indentation local, like it or
+%D not.
+%D \SomePar
+%D \localdropcaps\NiceDroppedCaps{}{cmr12}{0pt}{2}Here we need
+%D to explicitly keep the hanging indentation local, like it or
+%D not.
+%D \stopSomePar
+%D \stopbuffer
+%D
+%D \typebuffer \getbuffer
%D \macros
%D {AutoDroppedCaps, CheckDroppedCaps}