summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2017-12-13 14:08:11 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2017-12-13 14:08:11 +0000
commitbdd2e8087a7a1d9fa07ea288951727fffc768ac2 (patch)
treea432692e921acc639a18aa13cc78f81fef9fd188
parent54f4538c6e57adbcfb5baf42dae40ee6b3aeb691 (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/ChangeLog4
-rw-r--r--Build/source/texk/web2c/eptexdir/fam256.ch24
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