(\onepageout): Back up to 2\baselineskip per Stephen.

(\kbdinputstyle): New command.
This commit is contained in:
Karl Berry 1997-07-05 21:16:39 +00:00
parent 35f1bbbe23
commit ccfe89b829

View file

@ -189,7 +189,7 @@
% Only leave this space if the footline is nonempty. % Only leave this space if the footline is nonempty.
% (We lessened \vsize for it in \oddfootingxxx.) % (We lessened \vsize for it in \oddfootingxxx.)
% The \baselineskip=24pt in plain's \makefootline has no effect. % The \baselineskip=24pt in plain's \makefootline has no effect.
\vskip\baselineskip \vskip 2\baselineskip
\unvbox\footlinebox \unvbox\footlinebox
\fi \fi
% %
@ -1357,18 +1357,27 @@ where each line of input produces a line of output.}
% @kbd is like @code, except that if the argument is just one @key command, % @kbd is like @code, except that if the argument is just one @key command,
% then @kbd has no effect. % then @kbd has no effect.
% Font to use for @kbd, ordinarily. % @kbdinputstyle -- arg is `distinct' (@kbd uses slanted tty font always),
\let\kbdfont\t % `example' (@kbd uses ttsl only inside of @example and friends),
% Font to use for @kbd, when inside @example. % or `code' (@kbd uses normal tty font always).
\let\kbdexamplefont\t \def\kbdinputstyle{\parsearg\kbdinputstylexxx}
\def\kbdinputstylexxx#1{%
\def\arg{#1}%
\ifx\arg\worddistinct
\gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}%
\else\ifx\arg\wordexample
\gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\tt}%
\else\ifx\arg\wordcode
\gdef\kbdexamplefont{\tt}\gdef\kbdfont{\tt}%
\fi\fi\fi
}
\def\worddistinct{distinct}
\def\wordexample{example}
\def\wordcode{code}
% If you use @setkbdinputdistinct, then @kbd produces slanted tty font. % Default is kbdinputdistinct. (Too much of a hassle to call the macro,
\def\setkbdinputdistinct{\let\kbdfont\ttsl % the catcodes are wrong for parsearg to work.)
\let\kbdexamplefont\ttsl} \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}
% If you use @setkbdinputexample, then @kbd produces slanted tty font
% only inside of @example and friends.
\def\setkbdinputexample{\gdef\kbdexamplefont\ttsl}
\def\xkey{\key} \def\xkey{\key}
\def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}% \def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}%
@ -4368,29 +4377,27 @@ width0pt\relax} \fi
% Read the last existing aux file, if any. No error if none exists. % Read the last existing aux file, if any. No error if none exists.
\def\readauxfile{\begingroup \def\readauxfile{\begingroup
\catcode`\^^@=\other \catcode`\^^@=\other
\catcode`\=\other \catcode`\^^A=\other
\catcode`\=\other \catcode`\^^B=\other
\catcode`\^^C=\other \catcode`\^^C=\other
\catcode`\^^D=\other \catcode`\^^D=\other
\catcode`\^^E=\other \catcode`\^^E=\other
\catcode`\^^F=\other \catcode`\^^F=\other
\catcode`\^^G=\other \catcode`\^^G=\other
\catcode`\^^H=\other \catcode`\^^H=\other
\catcode`\ =\other \catcode`\^^K=\other
\catcode`\^^L=\other \catcode`\^^L=\other
\catcode`\=\other \catcode`\^^N=\other
\catcode`\=\other \catcode`\^^P=\other
\catcode`\=\other \catcode`\^^Q=\other
\catcode`\=\other \catcode`\^^R=\other
\catcode`\=\other \catcode`\^^S=\other
\catcode`\=\other \catcode`\^^T=\other
\catcode`\=\other \catcode`\^^U=\other
\catcode`\=\other \catcode`\^^V=\other
\catcode`\=\other \catcode`\^^W=\other
\catcode`\=\other \catcode`\^^X=\other
\catcode`\=\other \catcode`\^^Z=\other
\catcode`\=\other
\catcode26=\other
\catcode`\^^[=\other \catcode`\^^[=\other
\catcode`\^^\=\other \catcode`\^^\=\other
\catcode`\^^]=\other \catcode`\^^]=\other
@ -4468,7 +4475,7 @@ width0pt\relax} \fi
% space to prevent strange expansion errors.) % space to prevent strange expansion errors.)
\def\supereject{\par\penalty -20000\footnoteno =0 } \def\supereject{\par\penalty -20000\footnoteno =0 }
% @footnotestyle is meaningful for info output only.. % @footnotestyle is meaningful for info output only.
\let\footnotestyle=\comment \let\footnotestyle=\comment
\let\ptexfootnote=\footnote \let\ptexfootnote=\footnote