From ca48f086a12ed1a89977b0040885896c2a4c2f24 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 21 Feb 2008 00:27:12 +0000 Subject: modes.mf 3.8 for DEK git-svn-id: svn://tug.org/texlive/trunk@6693 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/metafont/misc/modes.mf | 35 +++++++++++--------------------- 1 file 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 -- cgit v1.2.3