From 8c4b0a453a92965ace49facd0d90b9b6ae8c33a0 Mon Sep 17 00:00:00 2001 From: Takuji Tanaka Date: Mon, 24 Apr 2017 15:13:38 +0000 Subject: p\TeX -> \pTeX by Kitagawa-san git-svn-id: svn://tug.org/texlive/trunk@44016 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/pmpostdir/ChangeLog | 4 ++++ Build/source/texk/web2c/pmpostdir/pmpxout.ch | 13 ++++++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) (limited to 'Build/source/texk/web2c/pmpostdir') 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 + + * pmpxout.ch: p\TeX -> \pTeX. + 2017-03-31 Akira Kakuto * 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,3 +1,10 @@ +@x +\def\MP{MetaPost} +@y +\def\MP{MetaPost} +\def\pTeX{p\kern-.15em\TeX} +@z + @x #include "avl.h" @y @@ -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)) @ @= floor(mpx->dvi_scale*mpx->font_scaled_size[cur_font]*char_width(cur_font,p)) @y -@ @c @@; /* p\TeX */ +@ @c @@; /* \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) -- cgit v1.2.3