(u)pTFtoPL: Don't write SEVENBITSAFEFLAG for JFM (yoko or tate) fonts

git-svn-id: svn://tug.org/texlive/trunk@32544 c570f23f-e606-0410-a88d-b1316a301751

7 files changed, 16 insertions, 4 deletions

diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index f92368dc72e..4a87883a033 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-31  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* ptftopl.ch, tests/min10.pl, tests/min10.pl: Don't write
+	SEVENBITSAFEFLAG for JFM (yoko or tate) fonts.
+
 2013-12-18  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* tests/min10.pl, tests/tmin10.pl: Converted to 7-bit ASCII.
diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch
index ad7d889b025..08e729b1155 100644
--- a/Build/source/texk/web2c/ptexdir/ptftopl.ch
+++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch
@@ -214,6 +214,12 @@ param_base:=exten_base+ne-1;
 @d glue(#)==4*(glue_base+#) {likewise}
 @z
 
+@x [57] l.982 - pTeX: SEVENBITSAFEFLAG
+if (lh>17) and (tfm[random_word]>127) then
+@y
+if (lh>17) and (tfm[random_word]>127) and (file_format=tfm_format) then
+@z
+
 @x [63] l.1003 - pTeX: Name of parameter for kanji-font
 else if (i<=13)and(font_type=mathex) then
   if i=8 then out('DEFAULTRULETHICKNESS')
diff --git a/Build/source/texk/web2c/ptexdir/tests/min10.pl b/Build/source/texk/web2c/ptexdir/tests/min10.pl
index 32ac437cbc1..88d17dc482b 100644
--- a/Build/source/texk/web2c/ptexdir/tests/min10.pl
+++ b/Build/source/texk/web2c/ptexdir/tests/min10.pl
@@ -6,7 +6,6 @@
 (COMMENT DESIGNSIZE IS IN POINTS)
 (COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
 (CHECKSUM O 35147750366)
-(SEVENBITSAFEFLAG TRUE)
 (FONTDIMEN
    (SLANT R 0.0)
    (SPACE R 0.0)
diff --git a/Build/source/texk/web2c/ptexdir/tests/tmin10.pl b/Build/source/texk/web2c/ptexdir/tests/tmin10.pl
index 611911dca34..52a18cf5fbc 100644
--- a/Build/source/texk/web2c/ptexdir/tests/tmin10.pl
+++ b/Build/source/texk/web2c/ptexdir/tests/tmin10.pl
@@ -7,7 +7,6 @@
 (COMMENT DESIGNSIZE IS IN POINTS)
 (COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
 (CHECKSUM O 35147750366)
-(SEVENBITSAFEFLAG TRUE)
 (FONTDIMEN
    (SLANT R 0.0)
    (SPACE R 0.0)
diff --git a/Build/source/texk/web2c/uptexdir/ChangeLog b/Build/source/texk/web2c/uptexdir/ChangeLog
index f31c8cbde88..f0973043566 100644
--- a/Build/source/texk/web2c/uptexdir/ChangeLog
+++ b/Build/source/texk/web2c/uptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-31  Peter Breitenlohner  <peb@mppmu.mpg.de>
+
+	* tests/min10.pl, tests/min10.pl: Don't write SEVENBITSAFEFLAG
+	for JFM (yoko or tate) fonts.
+
 2013-12-18  Peter Breitenlohner  <peb@mppmu.mpg.de>
 
 	* uppltotf.ch, tests/[t]min10.pl: Drop useless extra space.
diff --git a/Build/source/texk/web2c/uptexdir/tests/min10.pl b/Build/source/texk/web2c/uptexdir/tests/min10.pl
index 6969761d3b8..1c431e3e1d9 100644
--- a/Build/source/texk/web2c/uptexdir/tests/min10.pl
+++ b/Build/source/texk/web2c/uptexdir/tests/min10.pl
@@ -6,7 +6,6 @@
 (COMMENT DESIGNSIZE IS IN POINTS)
 (COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
 (CHECKSUM O 35147750366)
-(SEVENBITSAFEFLAG TRUE)
 (FONTDIMEN
    (SLANT R 0.0)
    (SPACE R 0.0)
diff --git a/Build/source/texk/web2c/uptexdir/tests/tmin10.pl b/Build/source/texk/web2c/uptexdir/tests/tmin10.pl
index 3af5041ec7a..532550265e9 100644
--- a/Build/source/texk/web2c/uptexdir/tests/tmin10.pl
+++ b/Build/source/texk/web2c/uptexdir/tests/tmin10.pl
@@ -7,7 +7,6 @@
 (COMMENT DESIGNSIZE IS IN POINTS)
 (COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
 (CHECKSUM O 35147750366)
-(SEVENBITSAFEFLAG TRUE)
 (FONTDIMEN
    (SLANT R 0.0)
    (SPACE R 0.0)