modes.mf 3.8 for DEK

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

1 files changed, 12 insertions, 23 deletions

diff --git a/Master/texmf-dist/metafont/misc/modes.mf b/Master/texmf-dist/metafont/misc/modes.mf
index ec3086fa3ef..fdfd1a5a1fd 100644
--- a/Master/texmf-dist/metafont/misc/modes.mf
+++ b/Master/texmf-dist/metafont/misc/modes.mf
@@ -15,7 +15,7 @@
 %%%%
 %
 % Compiled 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2002, 2004,
-% 2005 by Karl Berry.  This file is not copyrighted and may be used
+% 2005, 2008 by Karl Berry.  This file is not copyrighted and may be used
 % freely.  You can retrieve the latest version from {\tt
 % ftp://ftp.tug.org/tex/modes.mf}, among other places.
 %
@@ -34,11 +34,11 @@
 %%\begingroup \tt \catcode`\{=12 \catcode`\}=12 \obeyspaces
 % @mffile{
 %   author = "The Metafont community",
-%   version = "3.7",
-%   date = "Mon Jan 17 12:53:54 PST 2005"
+%   version = "3.8",
+%   date = "Wed Feb 20 16:24:38 PST 2008"
 %   filename = "modes.mf",
 %   email = "tex-fonts@tug.org"
-%   checksum = "2588 12760 93935",
+%   checksum = "2577 12670 93479",
 %   codetable = "ISO/ASCII",
 %   supported = "yes",
 %   docstring = "
@@ -419,10 +419,10 @@
 
 % Don't let ourselves be processed twice.
 if known modes_mf: endinput; fi;
-modes_mf := 3.7;
+modes_mf := 3.8;
 
 % Identify ourselves in the format file.
-base_version := base_version & "/modes 3.7";
+base_version := base_version & "/modes 3.8";
 
 
 %%\vfill\eject
@@ -606,30 +606,19 @@ enddef;
 % So users can say |if known Xerox_world: ... fi|, per {\sl The \MF book}.
 Xerox_world := 1;
 
-% Redefine |end| to put the extra information above in the GF and TFM
-% files.  This code is based on that on page 321.
-inner end;
-let primitive_end_ = end;
-def end =
+% For users who want extra information in the output file.
+% This used to be done automatically by redefining end, but DEK reported
+% that as a serious bug on 19 February 2008 to tex-implementors.
+%
+def mode_extra_info_ =
   if fontmaking > 0:
     font_family font_identifier_;
     coding_scheme font_coding_scheme_;
     font_face_byte max (0, 254 - round 2designsize);
     mode_output_specials_;
   fi;
-  primitive_end_
 enddef;
 
-% {\sl The \MF book} gives |bye| two different definitions (on pages
-% 278 and 321). The first is used in {\tt plain.mf} and is merely
-% a synoynym for the primitive |end|.  The second, which is not part
-% of {\tt plain.mf}, is similar to the code given above. We want the
-% extra information to get into the output files regardless of whether
-% the \MF\ source used |end| or |bye|.  The above changed |end|;
-% now we have to redefine |bye| again (as on page 278).
-outer end, primitive_end_;
-let bye = end;
-
 
 % Here are macros to handle write-white devices.
 %
@@ -2568,7 +2557,7 @@ mode_def help =                     %\[ What modes are available?
  save ?;
 enddef;
 
-let ? = help_;
+let mode_help = help_;
 
 % These variables determine the size of \MF's (window system)
 % window for online output.  These numbers should match whatever