diff options
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/fam256.ch')
-rw-r--r-- | Build/source/texk/web2c/eptexdir/fam256.ch | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/eptexdir/fam256.ch b/Build/source/texk/web2c/eptexdir/fam256.ch index 257cfdb8ef5..6f06a39d9f2 100644 --- a/Build/source/texk/web2c/eptexdir/fam256.ch +++ b/Build/source/texk/web2c/eptexdir/fam256.ch @@ -1,5 +1,5 @@ % fam256.ch -% (C) 2009, 2011 by Hironori Kitagawa. +% (C) 2009--2017 by Hironori Kitagawa. % % This patch is derived from om16bit.ch and omfi.ch (both in Omega). % (Omega is copyright by John Plaice and Yannis Haralambous.) @@ -181,6 +181,28 @@ primitive("oradical",radical,1);@/ @z %----------------------------------------------- @x +delim_num: print_esc("delimiter"); +@y +delim_num: if chr_code=0 then print_esc("delimiter") + else print_esc("odelimiter"); +@z +@x +math_accent: print_esc("mathaccent"); +math_char_num: print_esc("mathchar"); +@y +math_accent: if chr_code=0 then print_esc("mathaccent") + else print_esc("omathaccent"); +math_char_num: if chr_code=0 then print_esc("mathchar") + else print_esc("omathchar"); +@z +@x +radical: print_esc("radical"); +@y +radical: if chr_code=0 then print_esc("radical") + else print_esc("oradical"); +@z +%----------------------------------------------- +@x @p procedure eq_word_define(@!p:pointer;@!w:integer); label exit; begin if eTeX_ex and(eqtb[p].int=w) then |