diff options
| author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-12-13 14:08:11 +0000 |
|---|---|---|
| committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-12-13 14:08:11 +0000 |
| commit | bdd2e8087a7a1d9fa07ea288951727fffc768ac2 (patch) | |
| tree | a432692e921acc639a18aa13cc78f81fef9fd188 | |
| parent | 54f4538c6e57adbcfb5baf42dae40ee6b3aeb691 (diff) | |
eptexdir: fix \show\odelimiter etc.
git-svn-id: svn://tug.org/texlive/trunk@46059 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Build/source/texk/web2c/eptexdir/ChangeLog | 4 | ||||
| -rw-r--r-- | Build/source/texk/web2c/eptexdir/fam256.ch | 24 |
2 files changed, 27 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/eptexdir/ChangeLog index b401945ab7e..a182f395837 100644 --- a/Build/source/texk/web2c/eptexdir/ChangeLog +++ b/Build/source/texk/web2c/eptexdir/ChangeLog @@ -1,3 +1,7 @@ +2017-12-13 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * fam256.ch: \show\odelimiter should be \odelimiter, etc. + 2017-11-30 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> * pdfutils.ch: \pdfprimitive gives no error if argument is not a 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 |