summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pmpostdir
diff options
context:
space:
mode:
authorTakuji Tanaka <KXD02663@nifty.ne.jp>2017-04-24 15:13:38 +0000
committerTakuji Tanaka <KXD02663@nifty.ne.jp>2017-04-24 15:13:38 +0000
commit8c4b0a453a92965ace49facd0d90b9b6ae8c33a0 (patch)
tree47770765700e316f5e63da8d62fef0667a46a4da /Build/source/texk/web2c/pmpostdir
parent01b2592b2e5d7c3721582a07053147e8929f0618 (diff)
p\TeX -> \pTeX by Kitagawa-san
git-svn-id: svn://tug.org/texlive/trunk@44016 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pmpostdir')
-rw-r--r--Build/source/texk/web2c/pmpostdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/pmpostdir/pmpxout.ch13
2 files changed, 14 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/pmpostdir/ChangeLog b/Build/source/texk/web2c/pmpostdir/ChangeLog
index 3a382cda34f..f84d7e5223a 100644
--- a/Build/source/texk/web2c/pmpostdir/ChangeLog
+++ b/Build/source/texk/web2c/pmpostdir/ChangeLog
@@ -1,3 +1,7 @@
+2017-04-24 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * pmpxout.ch: p\TeX -> \pTeX.
+
2017-03-31 Akira Kakuto <kakuto@fuk.kindai.ac.jp>
* pmp.ch: Adapt to MetaPost 2.000.
diff --git a/Build/source/texk/web2c/pmpostdir/pmpxout.ch b/Build/source/texk/web2c/pmpostdir/pmpxout.ch
index eda77848972..ae6345ffcda 100644
--- a/Build/source/texk/web2c/pmpostdir/pmpxout.ch
+++ b/Build/source/texk/web2c/pmpostdir/pmpxout.ch
@@ -1,4 +1,11 @@
@x
+\def\MP{MetaPost}
+@y
+\def\MP{MetaPost}
+\def\pTeX{p\kern-.15em\TeX}
+@z
+
+@x
#include "avl.h"
@y
#include "avl.h"
@@ -35,7 +42,7 @@
@x
@d undefined_commands 250: case 251: case 252: case 253: case 254: case 255
@y
-@d dir 255 /* p\TeX\ direction */
+@d dir 255 /* \pTeX\ direction */
@d undefined_commands 250: case 251: case 252: case 253: case 254
@z
@@ -81,7 +88,7 @@ floor(mpx->dvi_scale*mpx->font_scaled_size[f]*char_width(f,c))
@ @<Width of character |p| in font |cur_font|@>=
floor(mpx->dvi_scale*mpx->font_scaled_size[cur_font]*char_width(cur_font,p))
@y
-@ @c @<Declare JFM character type table lookup routine@>@; /* p\TeX */
+@ @c @<Declare JFM character type table lookup routine@>@; /* \pTeX */
static integer mpx_scaled_char_width (MPX mpx,integer f,integer c)
{
if (mpx->font_id[f]!=0) c=mpx_lookup_ctype(mpx, f,c);
@@ -420,7 +427,7 @@ if (mpx_newer(mpxopt->mpname, mpxopt->mpxname))
if (mpx_newer(mpxopt->mpname, mpxopt->mpxname))
return 0
-@ ASCII p\TeX JFM ID
+@ ASCII \pTeX\ JFM ID
@d yoko_jfm_id 11 /* for `yoko-kumi' fonts */
@d tate_jfm_id 9 /* for `tate-kumi' fonts */
@d font_jfm_p(A) (mpx->font_id[(A)]!=0)