diff options
Diffstat (limited to 'Build/source/texk/web2c/mft.ch')
-rw-r--r-- | Build/source/texk/web2c/mft.ch | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/mft.ch b/Build/source/texk/web2c/mft.ch index e1c0ef09de2..4bb78a0bcf1 100644 --- a/Build/source/texk/web2c/mft.ch +++ b/Build/source/texk/web2c/mft.ch @@ -5,11 +5,14 @@ % Support for MP included from a changefile by Wlodek Bzyl. % This file is in the public domain. -@x [0] l.16 - WEAVE: use logo font to get the S +@x [0] l.17 - WEAVE: use logo font to get the S \font\logo=manfnt % font used for the METAFONT logo +\def\MF{{\logo META}\-{\logo FONT}} @y -\font\logo=logo10 % font used for the METAFONT logo -\def\MP{{\logo META}\-{\logo POST}} +\font\logo=manfnt % font used for the METAFONT logo +\font\tenlogo=logo10 % font used for the METAPOST logo +\def\MF{{\logo META}\-{\logo FONT}} +\def\MP{{\tenlogo META}\-{\tenlogo POST}} @z @x [0] l.26 @@ -71,7 +74,7 @@ procedure initialize; var @<Local variables for initialization@>@/ begin @<Set initial values@>@/ @y -@<Define |parse_arguments|@> +@<Define \(|parse_arguments|@> procedure initialize; var @<Local variables for initialization@>@/ begin @@ -986,7 +989,7 @@ used to provide basic formatting. @d argument_is (#) == (strcmp (long_options[option_index].name, #) = 0) -@<Define |parse_arguments|@> = +@<Define \(|parse_arguments|@> = procedure parse_arguments; const n_options = 5; {Pascal won't count array lengths for us.} var @!long_options: array[0..n_options] of getopt_struct; |