From 32e6c720c4f84f112596c6b4a75193f99e9be158 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Tue, 16 Apr 2019 09:53:19 +0200 Subject: 2019-04-16 09:02:00 --- tex/context/base/mkiv/catc-sym.mkiv | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'tex/context/base/mkiv/catc-sym.mkiv') diff --git a/tex/context/base/mkiv/catc-sym.mkiv b/tex/context/base/mkiv/catc-sym.mkiv index ae1253272..64604ba35 100644 --- a/tex/context/base/mkiv/catc-sym.mkiv +++ b/tex/context/base/mkiv/catc-sym.mkiv @@ -55,6 +55,20 @@ .egroup +\bgroup + +\catcode`_=\lettercatcode + +%xdef\_n_u_l_{\expandafter\string\Uchar1} % nul(l) +%xdef\_s_o_h_{\expandafter\string\Uchar1} % start of header +\xdef\_s_t_x_{\expandafter\string\Uchar2} % start of text +\xdef\_e_t_x_{\expandafter\string\Uchar3} % end of text +\xdef\_e_o_t_{\expandafter\string\Uchar4} % end of transmission +%xdef\_e_n_q_{\expandafter\string\Uchar5} % enquiry +%xdef\_a_c_k_{\expandafter\string\Uchar6} % aknowledgement + +\egroup + %D \macros %D {uncatcodespecials,setnaturalcatcodes,setnormalcatcodes, %D uncatcodecharacters,uncatcodeallcharacters, -- cgit v1.2.3