octave-lyh: doc/texinfo.tex comparison

comparison doc/texinfo.tex @ 2992:53b38bf1d443

[project @ 1997-05-20 19:48:00 by jwe]

author	jwe
date	Tue, 20 May 1997 19:48:00 +0000
parents	62dc317d97b9
children	6929a31e7624

comparison

equal deleted inserted replaced

-:fc751d2a99fd
+:53b38bf1d443
 %% TeX macros to handle Texinfo files.
-%% $Id: texinfo.tex,v 1.6 1997-03-01 02:54:43 jwe Exp $
+%% $Id: texinfo.tex,v 1.7 1997-05-20 19:48:00 jwe Exp $
 %  Copyright (C) 1985, 86, 88, 90, 91, 92, 93,
 %                94, 95, 96, 97 Free Software Foundation, Inc.
 %This texinfo.tex file is free software; you can redistribute it and/or
 % Added by gildea November 1993.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 % This automatically updates the version number based on RCS.
 \def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}
-\deftexinfoversion$Revision: 1.6 $
+\deftexinfoversion$Revision: 1.7 $
 \message{Loading texinfo package [Version \texinfoversion]:}
 % If in a .fmt file, print the version number
 % and turn on active characters that we couldn't do earlier because
 % they might have appeared in the input file name.
 \tracingpages1 \tracingoutput1 \tracinglostchars1
 \tracingmacros2 \tracingparagraphs1 \tracingrestores1
 \showboxbreadth\maxdimen\showboxdepth\maxdimen
 }%
-%---------------------Begin change-----------------------
+% For @cropmarks command.
-%
+% Do @cropmarks to get crop marks.
-%%%% For @cropmarks command.
+%
-% Dimensions to add cropmarks at corners Added by P. A. MacKay, 12 Nov. 1986
+\newif\ifcropmarks
+\let\cropmarks = \cropmarkstrue
+%
+% Dimensions to add cropmarks at corners.
+% Added by P. A. MacKay, 12 Nov. 1986
 %
 \newdimen\cornerlong \newdimen\cornerthick
-\newdimen \topandbottommargin
+\newdimen\topandbottommargin
-\newdimen \outerhsize \newdimen \outervsize
+\newdimen\outerhsize \newdimen\outervsize
 \cornerlong=1pc\cornerthick=.3pt        % These set size of cropmarks
 \outerhsize=7in
 %\outervsize=9.5in
 % Alternative @smallbook page size is 9.25in
 \outervsize=9.25in
 \topandbottommargin=.75in
-%
-%---------------------End change-----------------------
 % Main output routine.
 \chardef\PAGE = 255
 \output = {\onepageout{\pagecontents\PAGE}}
-\newbox\headlinebox  \newbox\footlinebox
+\newbox\headlinebox
+\newbox\footlinebox
 % \onepageout takes a vbox as an argument.  Note that \pagecontents
 % does insertions, but you have to call it yourself.
 \def\onepageout#1{%
-\hoffset=\normaloffset
+\ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi
+%
 \ifodd\pageno  \advance\hoffset by \bindingoffset
 \else \advance\hoffset by -\bindingoffset\fi
 %
 % Do this outside of the \shipout so @code etc. will be expanded in
 % the headline as they should be, not taken literally (outputting ''code).
 \escapechar = `\\     % use backslash in output files.
 \indexdummies         % don't expand commands in the output.
 \normalturnoffactive  % \ in index entries must not stay \, e.g., if
 % the page break happens to be in the middle of an example.
 \shipout\vbox{%
+\ifcropmarks \vbox to \outervsize\bgroup
+\hsize = \outerhsize
+\line{\ewtop\hfil\ewtop}%
+\nointerlineskip
+\line{%
+\vbox{\moveleft\cornerthick\nstop}%
+\hfill
+\vbox{\moveright\cornerthick\nstop}%
+}%
+\vskip\topandbottommargin
+\line\bgroup
+\hfil % center the page within the outer (page) hsize.
+\ifodd\pageno\hskip\bindingoffset\fi
+\vbox\bgroup
+\fi
+%
 \unvbox\headlinebox
 \pagebody{#1}%
 \unvbox\footlinebox
-}%
+%
-}%
+\ifcropmarks
+\egroup % end of \vbox\bgroup
+\hfil\egroup % end of (centering) \line\bgroup
+\vskip\topandbottommargin plus1fill minus1fill
+\boxmaxdepth = \cornerthick
+\line{%
+\vbox{\moveleft\cornerthick\nsbot}%
+\hfill
+\vbox{\moveright\cornerthick\nsbot}%
+}%
+\nointerlineskip
+\line{\ewbot\hfil\ewbot}%
+\egroup % \vbox from first cropmarks clause
+\fi
+}% end of \shipout\vbox
+}% end of group with \turnoffactive
 \advancepageno
 \ifnum\outputpenalty>-20000 \else\dosupereject\fi
 }
-%%%% For @cropmarks command %%%%
-% Here is a modification of the main output routine for Near East Publications
-% This provides right-angle cropmarks at all four corners.
-% The contents of the page are centerlined into the cropmarks,
-% and any desired binding offset is added as an \hskip on either
-% site of the centerlined box.  (P. A. MacKay, 12 November, 1986)
-%
-\def\croppageout#1{\hoffset=0pt % make sure this doesn't mess things up
-{\escapechar=`\\\relax % makes sure backslash is used in output files.
-\shipout
-\vbox to \outervsize{\hsize=\outerhsize
-\vbox{\line{\ewtop\hfill\ewtop}}
-\nointerlineskip
-\line{\vbox{\moveleft\cornerthick\nstop}
-\hfill
-\vbox{\moveright\cornerthick\nstop}}
-\vskip \topandbottommargin
-\centerline{\ifodd\pageno\hskip\bindingoffset\fi
-\vbox{
-{\let\hsize=\pagewidth \makeheadline}
-\pagebody{#1}
-{\let\hsize=\pagewidth \makefootline}}
-\ifodd\pageno\else\hskip\bindingoffset\fi}
-\vskip \topandbottommargin plus1fill minus1fill
-\boxmaxdepth\cornerthick
-\line{\vbox{\moveleft\cornerthick\nsbot}
-\hfill
-\vbox{\moveright\cornerthick\nsbot}}
-\nointerlineskip
-\vbox{\line{\ewbot\hfill\ewbot}}
-}}
-\advancepageno
-\ifnum\outputpenalty>-20000 \else\dosupereject\fi}
-%
-% Do @cropmarks to get crop marks
-\def\cropmarks{\let\onepageout=\croppageout }
 \newinsert\margin \dimen\margin=\maxdimen
 \def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}}
 {\catcode`\@ =11
 \dimen@=\dp#1 \unvbox#1
 \ifvoid\footins\else\vskip\skip\footins\footnoterule \unvbox\footins\fi
 \ifr@ggedbottom \kern-\dimen@ \vfil \fi}
 }
-%
 % Here are the rules for the cropmarks.  Note that they are
 % offset so that the space between them is truly \outerhsize or \outervsize
 % (P. A. MacKay, 12 November, 1986)
 %
 \def\ewtop{\vrule height\cornerthick depth0pt width\cornerlong}
 \def\,##1{\realbackslash ,{##1}}%
 \def\t##1{\realbackslash t {##1}}%
 \def\r##1{\realbackslash r {##1}}%
 \def\i##1{\realbackslash i {##1}}%
 \def\b##1{\realbackslash b {##1}}%
+\def\sc##1{\realbackslash sc {##1}}%
 \def\cite##1{\realbackslash cite {##1}}%
 \def\key##1{\realbackslash key {##1}}%
 \def\file##1{\realbackslash file {##1}}%
 \def\var##1{\realbackslash var {##1}}%
 \def\kbd##1{\realbackslash kbd {##1}}%
 \gdef\cindexsub "#1" #2^^M{\endgroup %
 \dosubind{cp}{#2}{#1}}}
 % Define the macros used in formatting output of the sorted index material.
-% This is what you call to cause a particular index to get printed.
+% @printindex causes a particular index (the ??s file) to get printed.
-% Write
+% It does not print any chapter heading (usually an @unnumbered).
-% @unnumbered Function Index
+%
-% @printindex fn
 \def\printindex{\parsearg\doprintindex}
 \def\doprintindex#1{\begingroup
 \dobreak \chapheadingskip{10000}%
 %
 \indexfonts \rm
 \tolerance = 9500
 \indexbreaks
-\def\indexbackslash{\rawbackslashxx}%
-% Index files are almost Texinfo source, but we use \ as the escape
-% character.  It would be better to use @, but that's too big a change
-% to make right now.
-\catcode`\\ = 0
-\catcode`\@ = 11
-\escapechar = `\\
-\begindoublecolumns
 %
 % See if the index file exists and is nonempty.
 \openin 1 \jobname.#1s
 \ifeof 1
 % \enddoublecolumns gets confused if there is no text in the index,
 % it can discover if there is anything in it.
 \read 1 to \temp
 \ifeof 1
 (Index is empty)
 \else
+% Index files are almost Texinfo source, but we use \ as the escape
+% character.  It would be better to use @, but that's too big a change
+% to make right now.
+\def\indexbackslash{\rawbackslashxx}%
+\catcode`\\ = 0
+\catcode`\@ = 11
+\escapechar = `\\
+\begindoublecolumns
 \input \jobname.#1s
+\enddoublecolumns
 \fi
 \fi
 \closein 1
-\enddoublecolumns
 \endgroup}
 % These macros are used by the sorted index file itself.
 % Change them to control the appearance of the index.
 \newbox\partialpage
 \newdimen\doublecolumnhsize
 \def\begindoublecolumns{\begingroup % ended by \enddoublecolumns
 % Grab any single-column material above us.
-\output = {\global\setbox\partialpage
+\output = {\global\setbox\partialpage = \vbox{%
-=\vbox{\unvbox255\kern -\topskip \kern \baselineskip}}%
+%
+% Here is a possibility not foreseen in manmac: if we accumulate a
+% whole lot of material, we might end up calling this \output
+% routine twice in a row (see the doublecol-lose test, which is
+% essentially a couple of indexes with @setchapternewpage off).  In
+% that case, we must prevent the second \partialpage from
+% simply overwriting the first, causing us to lose the page.
+% This will preserve it until a real output routine can ship it
+% out.  Generally, \partialpage will be empty when this runs and
+% this will be a no-op.
+\unvbox\partialpage
+%
+% Unvbox the main output page.
+\unvbox255
+\kern-\topskip \kern\baselineskip
+}}%
 \eject
 %
-% Now switch to the double-column output routine.
+% Use the double-column output routine for subsequent pages.
-\output={\doublecolumnout}%
+\output = {\doublecolumnout}%
 %
 % Change the page size parameters.  We could do this once outside this
 % routine, in each of @smallbook, @afourpaper, and the default 8.5x11
 % format, but then we repeat the same computation.  Repeating a couple
 % of assignments once per index is clearly meaningless for the
-% execution time, so we may as well do it once.
+% execution time, so we may as well do it in one place.
 %
 % First we halve the line length, less a little for the gutter between
 % the columns.  We compute the gutter based on the line length, so it
 % changes automatically with the paper format.  The magic constant
-% below is chosen so that the gutter has the same value (well, +- <
+% below is chosen so that the gutter has the same value (well, +-<1pt)
-% 1pt) as it did when we hard-coded it.
+% as it did when we hard-coded it.
 %
 % We put the result in a separate register, \doublecolumhsize, so we
 % can restore it in \pagesofar, after \hsize itself has (potentially)
 % been clobbered.
 %
 \splittopskip=\topskip \splitmaxdepth=\maxdepth
 % Get the available space for the double columns -- the normal
 % (undoubled) page height minus any material left over from the
 % previous page.
 \dimen@=\pageheight \advance\dimen@ by-\ht\partialpage
-% box0 will be the left-hand column, box1 the right.
+% box0 will be the left-hand column, box2 the right.
 \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@
 \onepageout\pagesofar
-\unvbox255 \penalty\outputpenalty
+\unvbox255
+\penalty\outputpenalty
 }
 \def\pagesofar{%
-% The contents of the output page -- any previous material,
+% Re-output the contents of the output page -- any previous material,
 % followed by the two boxes we just split.
 \unvbox\partialpage
 \hsize = \doublecolumnhsize
 \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}%
 }
 \def\enddoublecolumns{%
-\output={\balancecolumns}\eject % split what we have
+\output = {\balancecolumns}\eject % split what we have
-\endgroup
+\endgroup % started in \begindoublecolumns
+%
 % Back to normal single-column typesetting, but take account of the
 % fact that we just accumulated some stuff on the output page.
-\pagegoal=\vsize
+\pagegoal = \vsize
 }
 \def\balancecolumns{%
-% Called on the last page of the double column material.
+% Called at the end of the double column material.
-\setbox0=\vbox{\unvbox255}%
+\setbox0 = \vbox{\unvbox255}%
 \dimen@ = \ht0
 \advance\dimen@ by \topskip
 \advance\dimen@ by-\baselineskip
 \divide\dimen@ by 2
 \splittopskip = \topskip
 % Loop until we get a decent breakpoint.
-{\vbadness=10000 \loop \global\setbox3=\copy0
+{\vbadness=10000 \loop
+\global\setbox3=\copy0
 \global\setbox1=\vsplit3 to\dimen@
-\ifdim\ht3>\dimen@ \global\advance\dimen@ by1pt \repeat}%
+\ifdim\ht3>\dimen@ \global\advance\dimen@ by1pt
+\repeat}%
 \setbox0=\vbox to\dimen@{\unvbox1}%
 \setbox2=\vbox to\dimen@{\unvbox3}%
 \pagesofar
 }
-\catcode `\@=\other
+\catcode`\@ = \other
 \message{sectioning,}
 % Define chapters, sections, etc.
-\newcount \chapno
+\newcount\chapno
-\newcount \secno        \secno=0
+\newcount\secno        \secno=0
-\newcount \subsecno     \subsecno=0
+\newcount\subsecno     \subsecno=0
-\newcount \subsubsecno  \subsubsecno=0
+\newcount\subsubsecno  \subsubsecno=0
 % This counter is funny since it counts through charcodes of letters A, B, ...
-\newcount \appendixno  \appendixno = `\@
+\newcount\appendixno  \appendixno = `\@
 \def\appendixletter{\char\the\appendixno}
-\newwrite \contentsfile
+\newwrite\contentsfile
 % This is called from \setfilename.
-\def\opencontents{\openout \contentsfile = \jobname.toc}
+\def\opencontents{\openout\contentsfile = \jobname.toc }
 % Each @chapter defines this as the name of the chapter.
 % page headings and footings can use it.  @section does likewise
 \def\thischapter{} \def\thissection{}
-\def\seccheck#1{\if \pageno<0 %
+\def\seccheck#1{\ifnum \pageno<0
-\errmessage{@#1 not allowed after generating table of contents}\fi
+\errmessage{@#1 not allowed after generating table of contents}%
-%
+\fi}
-}
 \def\chapternofonts{%
 \let\rawbackslash=\relax%
 \let\frenchspacing=\relax%
-\def\result{\realbackslash result}
+\def\result{\realbackslash result}%
-\def\equiv{\realbackslash equiv}
+\def\equiv{\realbackslash equiv}%
-\def\expansion{\realbackslash expansion}
+\def\expansion{\realbackslash expansion}%
-\def\print{\realbackslash print}
+\def\print{\realbackslash print}%
-\def\TeX{\realbackslash TeX}
+\def\TeX{\realbackslash TeX}%
-\def\dots{\realbackslash dots}
+\def\dots{\realbackslash dots}%
-\def\copyright{\realbackslash copyright}
+\def\copyright{\realbackslash copyright}%
-\def\tt{\realbackslash tt}
+\def\tt{\realbackslash tt}%
-\def\bf{\realbackslash bf }
+\def\bf{\realbackslash bf}%
-\def\w{\realbackslash w}
+\def\w{\realbackslash w}%
-\def\less{\realbackslash less}
+\def\less{\realbackslash less}%
-\def\gtr{\realbackslash gtr}
+\def\gtr{\realbackslash gtr}%
-\def\hat{\realbackslash hat}
+\def\hat{\realbackslash hat}%
-\def\char{\realbackslash char}
+\def\char{\realbackslash char}%
-\def\tclose##1{\realbackslash tclose {##1}}
+\def\tclose##1{\realbackslash tclose{##1}}%
-\def\code##1{\realbackslash code {##1}}
+\def\code##1{\realbackslash code{##1}}%
-\def\samp##1{\realbackslash samp {##1}}
+\def\samp##1{\realbackslash samp{##1}}%
-\def\r##1{\realbackslash r {##1}}
+\def\r##1{\realbackslash r{##1}}%
-\def\b##1{\realbackslash b {##1}}
+\def\b##1{\realbackslash b{##1}}%
-\def\key##1{\realbackslash key {##1}}
+\def\key##1{\realbackslash key{##1}}%
-\def\file##1{\realbackslash file {##1}}
+\def\file##1{\realbackslash file{##1}}%
-\def\kbd##1{\realbackslash kbd {##1}}
+\def\kbd##1{\realbackslash kbd{##1}}%
 % These are redefined because @smartitalic wouldn't work inside xdef.
-\def\i##1{\realbackslash i {##1}}
+\def\i##1{\realbackslash i{##1}}%
-\def\cite##1{\realbackslash cite {##1}}
+\def\cite##1{\realbackslash cite{##1}}%
-\def\var##1{\realbackslash var {##1}}
+\def\var##1{\realbackslash var{##1}}%
-\def\emph##1{\realbackslash emph {##1}}
+\def\emph##1{\realbackslash emph{##1}}%
-\def\dfn##1{\realbackslash dfn {##1}}
+\def\dfn##1{\realbackslash dfn{##1}}%
 }
 \newcount\absseclevel % used to calculate proper heading level
 \newcount\secbase\secbase=0 % @raise/lowersections modify this count
 \gdef\thischaptername{#1}%
 % We don't substitute the actual chapter name into \thischapter
 % because we don't want its macros evaluated now.
 \xdef\thischapter{\putwordChapter{} \the\chapno: \noexpand\thischaptername}%
 {\chapternofonts%
-\edef\temp{{\realbackslash chapentry {#1}{\the\chapno}{\noexpand\folio}}}%
+\toks0 = {#1}%
+\edef\temp{{\realbackslash chapentry{\the\toks0}{\the\chapno}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp  %
 \donoderef %
 \global\let\section = \numberedsec
 \global\let\subsection = \numberedsubsec
 \chapmacro {#1}{\putwordAppendix{} \appendixletter}%
 \gdef\thissection{#1}%
 \gdef\thischaptername{#1}%
 \xdef\thischapter{\putwordAppendix{} \appendixletter: \noexpand\thischaptername}%
 {\chapternofonts%
-\edef\temp{{\realbackslash chapentry
+\toks0 = {#1}%
-{#1}{\putwordAppendix{} \appendixletter}{\noexpand\folio}}}%
+\edef\temp{{\realbackslash chapentry{\the\toks0}%
+{\putwordAppendix{} \appendixletter}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp  %
 \appendixnoderef %
 \global\let\section = \appendixsec
 \global\let\subsection = \appendixsubsec
 \toks0 = {#1}\message{(\the\toks0)}%
 %
 \unnumbchapmacro {#1}%
 \gdef\thischapter{#1}\gdef\thissection{#1}%
 {\chapternofonts%
-\edef\temp{{\realbackslash unnumbchapentry {#1}{\noexpand\folio}}}%
+\toks0 = {#1}%
+\edef\temp{{\realbackslash unnumbchapentry{\the\toks0}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp  %
 \unnumbnoderef %
 \global\let\section = \unnumberedsec
 \global\let\subsection = \unnumberedsubsec
 \def\secyyy #1{\numhead1{#1}} % normally calls seczzz
 \def\seczzz #1{\seccheck{section}%
 \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
 \gdef\thissection{#1}\secheading {#1}{\the\chapno}{\the\secno}%
 {\chapternofonts%
+\toks0 = {#1}%
 \edef\temp{{\realbackslash secentry %
-{#1}{\the\chapno}{\the\secno}{\noexpand\folio}}}%
+{\the\toks0}{\the\chapno}{\the\secno}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \donoderef %
 \penalty 10000 %
 }}
 \def\appendixsecyyy #1{\apphead1{#1}} % normally calls appendixsectionzzz
 \def\appendixsectionzzz #1{\seccheck{appendixsection}%
 \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 %
 \gdef\thissection{#1}\secheading {#1}{\appendixletter}{\the\secno}%
 {\chapternofonts%
+\toks0 = {#1}%
 \edef\temp{{\realbackslash secentry %
-{#1}{\appendixletter}{\the\secno}{\noexpand\folio}}}%
+{\the\toks0}{\appendixletter}{\the\secno}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \appendixnoderef %
 \penalty 10000 %
 }}
 \outer\def\unnumberedsec{\parsearg\unnumberedsecyyy}
 \def\unnumberedsecyyy #1{\unnmhead1{#1}} % normally calls unnumberedseczzz
 \def\unnumberedseczzz #1{\seccheck{unnumberedsec}%
 \plainsecheading {#1}\gdef\thissection{#1}%
 {\chapternofonts%
-\edef\temp{{\realbackslash unnumbsecentry{#1}{\noexpand\folio}}}%
+\toks0 = {#1}%
+\edef\temp{{\realbackslash unnumbsecentry{\the\toks0}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \unnumbnoderef %
 \penalty 10000 %
 }}
 \def\numberedsubsecyyy #1{\numhead2{#1}} % normally calls numberedsubseczzz
 \def\numberedsubseczzz #1{\seccheck{subsection}%
 \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
 \subsecheading {#1}{\the\chapno}{\the\secno}{\the\subsecno}%
 {\chapternofonts%
+\toks0 = {#1}%
 \edef\temp{{\realbackslash subsecentry %
-{#1}{\the\chapno}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
+{\the\toks0}{\the\chapno}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \donoderef %
 \penalty 10000 %
 }}
 \def\appendixsubsecyyy #1{\apphead2{#1}} % normally calls appendixsubseczzz
 \def\appendixsubseczzz #1{\seccheck{appendixsubsec}%
 \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 %
 \subsecheading {#1}{\appendixletter}{\the\secno}{\the\subsecno}%
 {\chapternofonts%
+\toks0 = {#1}%
 \edef\temp{{\realbackslash subsecentry %
-{#1}{\appendixletter}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
+{\the\toks0}{\appendixletter}{\the\secno}{\the\subsecno}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \appendixnoderef %
 \penalty 10000 %
 }}
 \outer\def\unnumberedsubsec{\parsearg\unnumberedsubsecyyy}
 \def\unnumberedsubsecyyy #1{\unnmhead2{#1}} %normally calls unnumberedsubseczzz
 \def\unnumberedsubseczzz #1{\seccheck{unnumberedsubsec}%
 \plainsubsecheading {#1}\gdef\thissection{#1}%
 {\chapternofonts%
-\edef\temp{{\realbackslash unnumbsubsecentry{#1}{\noexpand\folio}}}%
+\toks0 = {#1}%
+\edef\temp{{\realbackslash unnumbsubsecentry{\the\toks0}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \unnumbnoderef %
 \penalty 10000 %
 }}
 \def\numberedsubsubseczzz #1{\seccheck{subsubsection}%
 \gdef\thissection{#1}\global\advance \subsubsecno by 1 %
 \subsubsecheading {#1}
 {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
 {\chapternofonts%
-\edef\temp{{\realbackslash subsubsecentry %
+\toks0 = {#1}%
-{#1}
+\edef\temp{{\realbackslash subsubsecentry{\the\toks0}
 {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}
 {\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \donoderef %
 \def\appendixsubsubseczzz #1{\seccheck{appendixsubsubsec}%
 \gdef\thissection{#1}\global\advance \subsubsecno by 1 %
 \subsubsecheading {#1}
 {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}%
 {\chapternofonts%
-\edef\temp{{\realbackslash subsubsecentry{#1}%
+\toks0 = {#1}%
+\edef\temp{{\realbackslash subsubsecentry{\the\toks0}%
 {\appendixletter}
 {\the\secno}{\the\subsecno}{\the\subsubsecno}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \appendixnoderef %
 \outer\def\unnumberedsubsubsec{\parsearg\unnumberedsubsubsecyyy}
 \def\unnumberedsubsubsecyyy #1{\unnmhead3{#1}} %normally unnumberedsubsubseczzz
 \def\unnumberedsubsubseczzz #1{\seccheck{unnumberedsubsubsec}%
 \plainsubsubsecheading {#1}\gdef\thissection{#1}%
 {\chapternofonts%
-\edef\temp{{\realbackslash unnumbsubsubsecentry{#1}{\noexpand\folio}}}%
+\toks0 = {#1}%
+\edef\temp{{\realbackslash unnumbsubsubsecentry{\the\toks0}{\noexpand\folio}}}%
 \escapechar=`\\%
 \write \contentsfile \temp %
 \unnumbnoderef %
 \penalty 10000 %
 }}
 \let\{=\ptexlbrace
 \let\}=\ptexrbrace
 \let\.=\ptexdot
 \let\*=\ptexstar
 \let\dots=\ptexdots
-\def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}
+\def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}%
-\def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}
+\def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}%
 \def\@{@}%
 \let\bullet=\ptexbullet
 \let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext
 %
 \let\Etex=\endgroup}

Mercurial > hg > octave-lyh

comparison doc/texinfo.tex @ 2992:53b38bf1d443