[file head]:
>> TeX macros to handle texinfo files

> Copyright (C) 1985, 1986, 1988, 1990, 1991 Free Software Foundation, Inc.

>This texinfo.tex file is free software; you can redistribute it and/or
>modify it under the terms of the GNU General Public License as
>published by the Free Software Foundation; either version 2, or (at
>your option) any later version.

>This texinfo.tex file is distributed in the hope that it will be
>useful, but WITHOUT ANY WARRANTY; without even the implied warranty
>of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
>General Public License for more details.

>You should have received a copy of the GNU General Public License
>along with this texinfo.tex file; see the file COPYING. If not, write
>to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
>USA.


>In other words, you are welcome to use, share and improve this program.
>You are forbidden to forbid anyone else to use, share and improve
>what you give th
... ...

[file tail]:
... ...
ashxx}}

> Say @foo, not \foo, in error messages.
\escapechar=`\@

> \catcode 17=0 > Define control-q
\catcode`\\=\active

> If a .fmt file is being used, we don't want the `\input texinfo' to show up.
> That is what \eatinput is for; after that, the `\' should revert to printing
> a backslash.
>
@gdef@eatinput input texinfo{@fixbackslash}
@global@let\ = @eatinput

> On the other hand, perhaps the file did not have a `\input texinfo'. Then
> the first `\{ in the file would cause an error. This macro tries to fix
> that, assuming it is called before the first `\' could plausibly occur.
>
@gdef@fixbackslash{@ifx\@eatinput @let\ = @normalbackslash @fi}

>> These look ok in all fonts, so just make them not special. The @rm below
>> makes sure that the current font starts out as the newly loaded cmr10
@catcode`@$=@other @catcode`@>=@other @catcode`@&amt;=@other @catcode`@#=@other

@textfonts
@rm

@c Local variables:
@c page-delimiter: "^\\\\message"
@c End: