diff options
author | Karl Berry <karl@freefriends.org> | 2006-11-16 01:02:47 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-11-16 01:02:47 +0000 |
commit | 3c85b55e2f245fb7edac7e445f107e6d0bb423ae (patch) | |
tree | c62b7f80edafe0455310d08e09f4218127bf9e87 /Master/texmf-dist/tex/context/base/supp-fil.tex | |
parent | e5ecff27a26ef59e1dbe9702677687fd7107be3a (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.tex | 14 |
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} |