diff options
| author | Hans Hagen <pragma@wxs.nl> | 2018-10-18 00:46:16 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2018-10-18 00:46:16 +0200 |
| commit | e2ee706a3114129601a30908d6b8cbb57068d32c (patch) | |
| tree | 222b1047f4a7fe1144fefe5d0e52b78604a00f58 /tex/context/base/mkiv/char-act.mkiv | |
| parent | e5f189d9965a70c8f3043c07c7b07d41ef268e93 (diff) | |
| download | context-e2ee706a3114129601a30908d6b8cbb57068d32c.tar.gz | |
2018-10-18 00:16:00
Diffstat (limited to 'tex/context/base/mkiv/char-act.mkiv')
| -rw-r--r-- | tex/context/base/mkiv/char-act.mkiv | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/tex/context/base/mkiv/char-act.mkiv b/tex/context/base/mkiv/char-act.mkiv index ff4dc621f..dd9a325f2 100644 --- a/tex/context/base/mkiv/char-act.mkiv +++ b/tex/context/base/mkiv/char-act.mkiv @@ -50,7 +50,7 @@ % \unexpanded\gdef\setcontrolspaces{\catcode\spaceasciicode\activecatcode\def {\controlspace}} % \egroup -\unexpanded\def\obeyspaces {\catcode\spaceasciicode\activecatcode\letcharcode\spaceasciicode\obeyedspace } +%unexpanded\def\obeyspaces {\catcode\spaceasciicode\activecatcode\letcharcode\spaceasciicode\obeyedspace } \unexpanded\def\setcontrolspaces{\catcode\spaceasciicode\activecatcode\letcharcode\spaceasciicode\controlspace} %D \macros @@ -78,12 +78,16 @@ % \unexpanded\def\ignorepages{\catcode\formfeedasciicode \ignorecatcode} % \unexpanded\def\ignoreeofs {\catcode\endoffileasciicode\ignorecatcode} +% but ... as we don't want to freeze to \obeyedspace etc which can be set after \obeyspaces, we +% use an idirectness + \def\_obeyed_space_{\obeyedspace} \def\_obeyed_tab_ {\obeyedtab} \def\_obeyed_line_ {\obeyedline} \def\_obeyed_page_ {\obeyedpage} -\unexpanded\def\obeytabs {\catcode\tabasciicode \activecatcode\letcharcode\tabasciicode \_obeyed_tab_ } +\unexpanded\def\obeyspaces {\catcode\spaceasciicode \activecatcode\letcharcode\spaceasciicode \_obeyed_space_} +\unexpanded\def\obeytabs {\catcode\tabasciicode \activecatcode\letcharcode\tabasciicode \_obeyed_tab_} \unexpanded\def\obeylines {\catcode\endoflineasciicode\activecatcode\letcharcode\endoflineasciicode\_obeyed_line_} \unexpanded\def\obeypages {\catcode\formfeedasciicode \activecatcode\letcharcode\formfeedasciicode \_obeyed_page_} @@ -92,6 +96,8 @@ \unexpanded\def\ignorepages{\catcode\formfeedasciicode \ignorecatcode} \unexpanded\def\ignoreeofs {\catcode\endoffileasciicode\ignorecatcode} +\unexpanded\def\setcontrolspaces{\catcode\spaceasciicode\activecatcode\letcharcode\spaceasciicode\_control_space_} + %D \macros %D {naturaltextext} %D |