diff options
author | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-04-24 15:13:38 +0000 |
---|---|---|
committer | Takuji Tanaka <KXD02663@nifty.ne.jp> | 2017-04-24 15:13:38 +0000 |
commit | 8c4b0a453a92965ace49facd0d90b9b6ae8c33a0 (patch) | |
tree | 47770765700e316f5e63da8d62fef0667a46a4da /Build/source/texk/web2c/pmpostdir | |
parent | 01b2592b2e5d7c3721582a07053147e8929f0618 (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/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/pmpostdir/pmpxout.ch | 13 |
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) |