From bdd2e8087a7a1d9fa07ea288951727fffc768ac2 Mon Sep 17 00:00:00 2001 From: Hironobu Yamashita Date: Wed, 13 Dec 2017 14:08:11 +0000 Subject: eptexdir: fix \show\odelimiter etc. git-svn-id: svn://tug.org/texlive/trunk@46059 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/eptexdir/fam256.ch | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) (limited to 'Build/source/texk/web2c/eptexdir/fam256.ch') 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 -- cgit v1.2.3