summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metafont
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-02-21 00:27:12 +0000
committerKarl Berry <karl@freefriends.org>2008-02-21 00:27:12 +0000
commitca48f086a12ed1a89977b0040885896c2a4c2f24 (patch)
treed12d1ae79f9126155587182fef28f8cf01122fc0 /Master/texmf-dist/metafont
parent87b8eba3b30a54ed2b29dd1fa50175e381488168 (diff)
modes.mf 3.8 for DEK
git-svn-id: svn://tug.org/texlive/trunk@6693 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metafont')
-rw-r--r--Master/texmf-dist/metafont/misc/modes.mf35
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