mirrors/make-dfsg
1
0
Fork 0
mirror of https://salsa.debian.org/srivasta/make-dfsg.git synced 2024-10-24 13:13:05 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

(\opnr, \clnr): Increment/decrement \parencount, for

Browse source 
* texinfo.tex (\opnr, \clnr): Increment/decrement \parencount, for
   	  @defun lines with nested parens.  From Bill Schelter
 	  <wfs@fireant.ma.utexas.edu>.
	(\itemizeitem): Correct \errmessage.
This commit is contained in:
Karl Berry 1997-05-23 17:02:00 +00:00
parent 922730c406
commit 7827f1bde8
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
texinfo.tex
View file

@ -1890,7 +1890,7 @@ July\or August\or September\or October\or November\or December\fi
\def\itemizeitem{% \def\itemizeitem{%
\advance\itemno by 1 \advance\itemno by 1
{\let\par=\endgraf \smallbreak}% {\let\par=\endgraf \smallbreak}%
\ifhmode \errmessage{\in hmode at itemizeitem}\fi \ifhmode \errmessage{In hmode at itemizeitem}\fi
{\parskip=0in \hskip 0pt {\parskip=0in \hskip 0pt
\hbox to 0pt{\hss \itemcontents\hskip \itemmargin}% \hbox to 0pt{\hss \itemcontents\hskip \itemmargin}%
\vadjust{\penalty 1200}}% \vadjust{\penalty 1200}}%
@ -3685,8 +3685,9 @@ width0pt\relax} \fi
% Definitions of (, ) and & used in args for functions. % Definitions of (, ) and & used in args for functions.
% This is the definition of ( outside of all parentheses. % This is the definition of ( outside of all parentheses.
\gdef\oprm#1 {{\rm\char`\(}#1 \bf \let(=\opnested % \gdef\oprm#1 {{\rm\char`\(}#1 \bf \let(=\opnested
\global\advance\parencount by 1 } \global\advance\parencount by 1
}
% %
% This is the definition of ( when already inside a level of parens. % This is the definition of ( when already inside a level of parens.
\gdef\opnested{\char`\(\global\advance\parencount by 1 } \gdef\opnested{\char`\(\global\advance\parencount by 1 }
@ -3702,8 +3703,11 @@ width0pt\relax} \fi
} % End of definition inside \activeparens } % End of definition inside \activeparens
%% These parens (in \boldbrax) actually are a little bolder than the %% These parens (in \boldbrax) actually are a little bolder than the
%% contained text. This is especially needed for [ and ] %% contained text. This is especially needed for [ and ]
\def\opnr{{\sf\char`\(}} \def\clnr{{\sf\char`\)}} \def\ampnr{\&} \def\opnr{{\sf\char`\(}\global\advance\parencount by 1 }
\def\lbrb{{\bf\char`\[}} \def\rbrb{{\bf\char`\]}} \def\clnr{{\sf\char`\)}\global\advance\parencount by -1 }
\def\ampnr{\&}
\def\lbrb{{\bf\char`\[}}
\def\rbrb{{\bf\char`\]}}
% First, defname, which formats the header line itself. % First, defname, which formats the header line itself.
% #1 should be the function name. % #1 should be the function name.
@ -3880,7 +3884,7 @@ width0pt\relax} \fi
\hyphenchar\tensl=0 \hyphenchar\tensl=0
#1% #1%
\hyphenchar\tensl=45 \hyphenchar\tensl=45
\ifnum\parencount=0 \else \errmessage{unbalanced parens in @def arguments}\fi% \ifnum\parencount=0 \else \errmessage{Unbalanced parentheses in @def}\fi%
\interlinepenalty=10000 \interlinepenalty=10000
\advance\rightskip by 0pt plus 1fil \advance\rightskip by 0pt plus 1fil
\endgraf\penalty 10000\vskip -\parskip\penalty 10000% \endgraf\penalty 10000\vskip -\parskip\penalty 10000%