summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/supp-fil.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-11-16 01:02:47 +0000
committerKarl Berry <karl@freefriends.org>2006-11-16 01:02:47 +0000
commit3c85b55e2f245fb7edac7e445f107e6d0bb423ae (patch)
treec62b7f80edafe0455310d08e09f4218127bf9e87 /Master/texmf-dist/tex/context/base/supp-fil.tex
parente5ecff27a26ef59e1dbe9702677687fd7107be3a (diff)
context update
git-svn-id: svn://tug.org/texlive/trunk@2444 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/supp-fil.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/supp-fil.tex14
1 files changed, 11 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/context/base/supp-fil.tex b/Master/texmf-dist/tex/context/base/supp-fil.tex
index cd0c48150e8..da4b595b844 100644
--- a/Master/texmf-dist/tex/context/base/supp-fil.tex
+++ b/Master/texmf-dist/tex/context/base/supp-fil.tex
@@ -509,7 +509,7 @@
{\sanitizefilename#1\to\readfilename
\checkfilename\readfilename
\ifcase\kindoffile
- \edef\locreadfilename{\pathplusfile\f!currentpath{#1}}%
+ \edef\readfilename{\pathplusfile\f!currentpath{#1}}%
\fi}
%D \macros
@@ -591,6 +591,8 @@
%D regards to active characters (german ", polish /,
%D french : and ;).
+%D We need to redo this: catcode sets and such
+
\def\startreadingfile% beter een every en \setnormalcatcodes
{\doglobal\increment\readingfilelevel
\setxvalue{\string\readingfilelevel::\readingfilelevel}%
@@ -615,11 +617,17 @@
\catcode`\\=\@@escape
\catcode`\{=\@@begingroup
\catcode`\}=\@@endgroup
- \catcode`\%=\@@comment}
+ \catcode`\%=\@@comment
+ \pushendofline
+ \restoreendofline}
\def\stopreadingfile
- {\getvalue{\string\readingfilelevel::\readingfilelevel}%
+ {\popendofline
+ \getvalue{\string\readingfilelevel::\readingfilelevel}%
\doglobal\decrement\readingfilelevel}
+
+\let\normalstartreadingfile\startreadingfile
+\let\normalstopreadingfile \stopreadingfile
%D \macros
%D {splitfilename}