[Emacs-diffs] Changes to emacs/lispintro/texinfo.tex

[Juanma Barranquero]

Index: emacs/lispintro/texinfo.tex
diff -c emacs/lispintro/texinfo.tex:1.2 emacs/lispintro/texinfo.tex:1.3
*** emacs/lispintro/texinfo.tex:1.2     Fri Aug 23 15:47:41 2002
--- emacs/lispintro/texinfo.tex Tue Feb  4 09:44:45 2003
***************
*** 35,44 ****
  %   ftp://tug.org/tex/texinfo.tex
  %     (and all CTAN mirrors, see http://www.ctan.org),
  %   and /home/gd/gnu/doc/texinfo.tex on the GNU machines.
! % 
  % The texinfo.tex in any given Texinfo distribution could well be out
  % of date, so if that's what you're using, please check.
! % 
  % Texinfo has a small home page at http://texinfo.org/ and also
  % http://www.gnu.org/software/texinfo.
  %
--- 35,44 ----
  %   ftp://tug.org/tex/texinfo.tex
  %     (and all CTAN mirrors, see http://www.ctan.org),
  %   and /home/gd/gnu/doc/texinfo.tex on the GNU machines.
! %
  % The texinfo.tex in any given Texinfo distribution could well be out
  % of date, so if that's what you're using, please check.
! %
  % Texinfo has a small home page at http://texinfo.org/ and also
  % http://www.gnu.org/software/texinfo.
  %
***************
*** 175,181 ****
  
  % add check for \lastpenalty to plain's definitions.  If the last thing
  % we did was a \nobreak, we don't want to insert more space.
! % 
  \def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount
    \removelastskip\penalty-50\smallskip\fi\fi}
  \def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount
--- 175,181 ----
  
  % add check for \lastpenalty to plain's definitions.  If the last thing
  % we did was a \nobreak, we don't want to insert more space.
! %
  \def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount
    \removelastskip\penalty-50\smallskip\fi\fi}
  \def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount
***************
*** 730,739 ****
  % @inmargin{TEXT [, RIGHT-TEXT]}
  % (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right;
  % else use TEXT for both).
! % 
  \def\inmargin#1{\parseinmargin #1,,\finish}
  \def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing.
!   \setbox0 = \hbox{\ignorespaces #2}% 
    \ifdim\wd0 > 0pt
      \def\lefttext{#1}%  have both texts
      \def\righttext{#2}%
--- 730,739 ----
  % @inmargin{TEXT [, RIGHT-TEXT]}
  % (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right;
  % else use TEXT for both).
! %
  \def\inmargin#1{\parseinmargin #1,,\finish}
  \def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing.
!   \setbox0 = \hbox{\ignorespaces #2}%
    \ifdim\wd0 > 0pt
      \def\lefttext{#1}%  have both texts
      \def\righttext{#2}%
***************
*** 797,803 ****
  % @paragraphindent NCHARS
  % We'll use ems for NCHARS, close enough.
  % We cannot implement @paragraphindent asis, though.
! % 
  \def\asisword{asis} % no translation, these are keywords
  \def\noneword{none}
  %
--- 797,803 ----
  % @paragraphindent NCHARS
  % We'll use ems for NCHARS, close enough.
  % We cannot implement @paragraphindent asis, though.
! %
  \def\asisword{asis} % no translation, these are keywords
  \def\noneword{none}
  %
***************
*** 840,846 ****
  % We don't use $'s directly in the definition of \math because we need
  % to set catcodes according to plain TeX first, to allow for subscripts,
  % superscripts, special math chars, etc.
! % 
  % @math does not do math typesetting in section titles, index
  % entries, and other such contexts where the catcodes are set before
  % @math gets a chance to work.  This could perhaps be fixed, but for now
--- 840,846 ----
  % We don't use $'s directly in the definition of \math because we need
  % to set catcodes according to plain TeX first, to allow for subscripts,
  % superscripts, special math chars, etc.
! %
  % @math does not do math typesetting in section titles, index
  % entries, and other such contexts where the catcodes are set before
  % @math gets a chance to work.  This could perhaps be fixed, but for now
***************
*** 852,858 ****
  % an actual _ character, as in @address@hidden + 1}.  So make
  % _ within @math be active (mathcode "8000), and distinguish by seeing
  % if the current family is \slfam, which is what @var uses.
! % 
  {\catcode95 = \active  % 95 = _
  \gdef\mathunderscore{%
    \catcode95=\active
--- 852,858 ----
  % an actual _ character, as in @address@hidden + 1}.  So make
  % _ within @math be active (mathcode "8000), and distinguish by seeing
  % if the current family is \slfam, which is what @var uses.
! %
  {\catcode95 = \active  % 95 = _
  \gdef\mathunderscore{%
    \catcode95=\active
***************
*** 863,869 ****
  % FYI, plain.tex uses \\ as a temporary control sequence (why?), but
  % this is not advertised and we don't care.  Texinfo does not
  % otherwise define @\.
! % 
  % The \mathchar is class=0=ordinary, family=7=ttfam, position=5C=\.
  \def\mathbackslash{\ifnum\fam=\ttfam \mathchar"075C \else\backslash \fi}
  %
--- 863,869 ----
  % FYI, plain.tex uses \\ as a temporary control sequence (why?), but
  % this is not advertised and we don't care.  Texinfo does not
  % otherwise define @\.
! %
  % The \mathchar is class=0=ordinary, family=7=ttfam, position=5C=\.
  \def\mathbackslash{\ifnum\fam=\ttfam \mathchar"075C \else\backslash \fi}
  %
***************
*** 986,996 ****
    \def\pdfmakeoutlines{{%
      \openin 1 \jobname.toc
      \ifeof 1\else\begingroup
!       \closein 1 
        \indexnofonts
        \def\tt{}
        \let\_ = \normalunderscore
!       % Thanh's hack / proper braces in bookmarks  
        \edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace
        \edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace
        %
--- 986,996 ----
    \def\pdfmakeoutlines{{%
      \openin 1 \jobname.toc
      \ifeof 1\else\begingroup
!       \closein 1
        \indexnofonts
        \def\tt{}
        \let\_ = \normalunderscore
!       % Thanh's hack / proper braces in bookmarks
        \edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace
        \edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace
        %
***************
*** 1032,1038 ****
        \let\nextmakelinks=\makelinks
        \ifnum\lnkcount>0,\fi
        \picknum{#1}%
!       \startlink attr{/Border [0 0 0]} 
          goto name{\pdfmkpgn{\the\pgn}}%
        \linkcolor #1%
        \advance\lnkcount by 1%
--- 1032,1038 ----
        \let\nextmakelinks=\makelinks
        \ifnum\lnkcount>0,\fi
        \picknum{#1}%
!       \startlink attr{/Border [0 0 0]}
          goto name{\pdfmkpgn{\the\pgn}}%
        \linkcolor #1%
        \advance\lnkcount by 1%
***************
*** 1087,1093 ****
      \ifx\first0\adn0
      \else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3
      \else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6
!     \else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9 
      \else
        \ifnum0=\countA\else\makelink\fi
        \ifx\first.\let\next=\done\else
--- 1087,1093 ----
      \ifx\first0\adn0
      \else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3
      \else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6
!     \else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9
      \else
        \ifnum0=\countA\else\makelink\fi
        \ifx\first.\let\next=\done\else
***************
*** 1522,1528 ****
  
  % rms does not like angle brackets --karl, 17may97.
  % So now @email is just like @uref, unless we are pdf.
! % 
  %\def\email#1{\angleleft{\tt #1}\angleright}
  \ifpdf
    \def\email#1{\doemail#1,,\finish}
--- 1522,1528 ----
  
  % rms does not like angle brackets --karl, 17may97.
  % So now @email is just like @uref, unless we are pdf.
! %
  %\def\email#1{\angleleft{\tt #1}\angleright}
  \ifpdf
    \def\email#1{\doemail#1,,\finish}
***************
*** 2743,2752 ****
  
  % @synindex foo bar    makes index foo feed into index bar.
  % Do this instead of @defindex foo if you don't want it as a separate index.
! % 
  % @syncodeindex foo bar   similar, but put all entries made for index foo
  % inside @code.
! % 
  \def\synindex#1 #2 {\dosynindex\doindex{#1}{#2}}
  \def\syncodeindex#1 #2 {\dosynindex\docodeindex{#1}{#2}}
  
--- 2743,2752 ----
  
  % @synindex foo bar    makes index foo feed into index bar.
  % Do this instead of @defindex foo if you don't want it as a separate index.
! %
  % @syncodeindex foo bar   similar, but put all entries made for index foo
  % inside @code.
! %
  \def\synindex#1 #2 {\dosynindex\doindex{#1}{#2}}
  \def\syncodeindex#1 #2 {\dosynindex\docodeindex{#1}{#2}}
  
***************
*** 2788,2800 ****
  % Take care of texinfo commands likely to appear in an index entry.
  % (Must be a way to avoid doing expansion at all, and thus not have to
  % laboriously list every single command here.)
! % 
  \def\indexdummies{%
  \def\ { }%
  address@hidden@}% change to @@ when we switch to @ as escape char in aux 
files.
  % Need these in case \tex is in effect and \{ is a \delimiter again.
  % But can't use \lbracecmd and \rbracecmd because texindex assumes
! % braces and backslashes are used only as delimiters.  
  \let\{ = \mylbrace
  \let\} = \myrbrace
  \def\_{{\realbackslash _}}%
--- 2788,2800 ----
  % Take care of texinfo commands likely to appear in an index entry.
  % (Must be a way to avoid doing expansion at all, and thus not have to
  % laboriously list every single command here.)
! %
  \def\indexdummies{%
  \def\ { }%
  address@hidden@}% change to @@ when we switch to @ as escape char in aux 
files.
  % Need these in case \tex is in effect and \{ is a \delimiter again.
  % But can't use \lbracecmd and \rbracecmd because texindex assumes
! % braces and backslashes are used only as delimiters.
  \let\{ = \mylbrace
  \let\} = \myrbrace
  \def\_{{\realbackslash _}}%
***************
*** 3349,3355 ****
    \wd0=\hsize \wd2=\hsize
    \hbox to\pagewidth{\box0\hfil\box2}%
  }
! % 
  % All done with double columns.
  \def\enddoublecolumns{%
    \output = {%
--- 3349,3355 ----
    \wd0=\hsize \wd2=\hsize
    \hbox to\pagewidth{\box0\hfil\box2}%
  }
! %
  % All done with double columns.
  \def\enddoublecolumns{%
    \output = {%
***************
*** 4150,4156 ****
  % @foo ... @end foo.
  
  % @point{}, @result{}, @expansion{}, @print{}, @equiv{}.
! % 
  % Since these characters are used in examples, it should be an even number of
  % \tt widths. Each \tt character is 1en, so two makes it 1em.
  %
--- 4150,4156 ----
  % @foo ... @end foo.
  
  % @point{}, @result{}, @expansion{}, @print{}, @equiv{}.
! %
  % Since these characters are used in examples, it should be an even number of
  % \tt widths. Each \tt character is 1en, so two makes it 1em.
  %
***************
*** 4162,4168 ****
  
  % The @error{} command.
  % Adapted from the TeXbook's \boxit.
! % 
  \newbox\errorbox
  %
  {\tentt \global\dimen0 = 3em}% Width of the box.
--- 4162,4168 ----
  
  % The @error{} command.
  % Adapted from the TeXbook's \boxit.
! %
  \newbox\errorbox
  %
  {\tentt \global\dimen0 = 3em}% Width of the box.
***************
*** 4470,4476 ****
  
  
  % LaTeX-like @address@hidden verbatim and @verb{<char>...<char>}
! % If we want to allow any <char> as delimiter, 
  % we need the curly braces so that makeinfo sees the @verb command, eg:
  % address@hidden' would look like the '@verbx' command.  address@hidden
  %
--- 4470,4476 ----
  
  
  % LaTeX-like @address@hidden verbatim and @verb{<char>...<char>}
! % If we want to allow any <char> as delimiter,
  % we need the curly braces so that makeinfo sees the @verb command, eg:
  % address@hidden' would look like the '@verbx' command.  address@hidden
  %
***************
*** 4544,4551 ****
    \everypar{\starttabbox}%
  }
  
! % Do the @verb magic: verbatim text is quoted by unique 
! % delimiter characters.  Before first delimiter expect a 
  % right brace, after last delimiter expect closing brace:
  %
  %    \def\doverb'{'<char>#1<char>'}'{#1}
--- 4544,4551 ----
    \everypar{\starttabbox}%
  }
  
! % Do the @verb magic: verbatim text is quoted by unique
! % delimiter characters.  Before first delimiter expect a
  % right brace, after last delimiter expect closing brace:
  %
  %    \def\doverb'{'<char>#1<char>'}'{#1}
***************
*** 4564,4570 ****
  %
  %     address@hidden verbatim{#1}
  %
! % For Texinfo it's a lot easier than for LaTeX, 
  % because texinfo's \verbatim doesn't stop at '\end{verbatim}':
  % we need not redefine '\', '{' and '}'
  %
--- 4564,4570 ----
  %
  %     address@hidden verbatim{#1}
  %
! % For Texinfo it's a lot easier than for LaTeX,
  % because texinfo's \verbatim doesn't stop at '\end{verbatim}':
  % we need not redefine '\', '{' and '}'
  %
***************
*** 4622,4628 ****
  
  % @copying ... @end copying.
  % Save the text away for @insertcopying later.
! % 
  \newbox\copyingbox
  %
  \def\copying{\begingroup
--- 4622,4628 ----
  
  % @copying ... @end copying.
  % Save the text away for @insertcopying later.
! %
  \newbox\copyingbox
  %
  \def\copying{\begingroup
***************
*** 4632,4638 ****
  }
  
  % @insertcopying.
! % 
  \def\insertcopying{\unvcopy\copyingbox}
  
  
--- 4632,4638 ----
  }
  
  % @insertcopying.
! %
  \def\insertcopying{\unvcopy\copyingbox}
  
  
***************
*** 4788,4794 ****
  % to account for this both in the \...x definition and in parsing the
  % input at hand.  Thus also need a control sequence (passed as #5) for
  % the \E... definition to assign the category name to.
! % 
  \def\deftypeopparsebody#1#2#3#4#5 #6 {\begingroup\inENV
    \medbreak
    \def#1{\endgraf\endgroup\medbreak}%
--- 4788,4794 ----
  % to account for this both in the \...x definition and in parsing the
  % input at hand.  Thus also need a control sequence (passed as #5) for
  % the \E... definition to assign the category name to.
! %
  \def\deftypeopparsebody#1#2#3#4#5 #6 {\begingroup\inENV
    \medbreak
    \def#1{\endgraf\endgroup\medbreak}%
***************
*** 5172,5178 ****
  
  % These definitions are used if you use @defunx (etc.)
  % anywhere other than immediately after a @defun or @defunx.
! % 
  \def\defcvx#1 address@hidden in invalid context}}
  \def\deffnx#1 address@hidden in invalid context}}
  \def\defivarx#1 address@hidden in invalid context}}
--- 5172,5178 ----
  
  % These definitions are used if you use @defunx (etc.)
  % anywhere other than immediately after a @defun or @defunx.
! %
  \def\defcvx#1 address@hidden in invalid context}}
  \def\deffnx#1 address@hidden in invalid context}}
  \def\defivarx#1 address@hidden in invalid context}}
***************
*** 5973,5979 ****
      \nobreak\bigskip
      % Usually we'll have text after the image which will insert
      % \parskip glue, so insert it here too to equalize the space
!     % above and below. 
      \nobreak\vskip\parskip
      \nobreak
      \line\bgroup\hss
--- 5973,5979 ----
      \nobreak\bigskip
      % Usually we'll have text after the image which will insert
      % \parskip glue, so insert it here too to equalize the space
!     % above and below.
      \nobreak\vskip\parskip
      \nobreak
      \line\bgroup\hss
***************
*** 6089,6095 ****
  }
  
  % Use `small' versions.
! % 
  \def\smallenvironments{%
    \let\smalldisplay = \smalldisplayx
    \let\smallexample = \smalllispx
--- 6089,6095 ----
  }
  
  % Use `small' versions.
! %
  \def\smallenvironments{%
    \let\smalldisplay = \smalldisplayx
    \let\smallexample = \smalllispx
***************
*** 6346,6352 ****
  % Say @foo, not \foo, in error messages.
  @escapechar = `@@
  
! % These look ok in all fonts, so just make them not special.  
  @catcode`@& = @other
  @address@hidden = @other
  @address@hidden = @other
--- 6346,6352 ----
  % Say @foo, not \foo, in error messages.
  @escapechar = `@@
  
! % These look ok in all fonts, so just make them not special.
  @catcode`@& = @other
  @address@hidden = @other
  @address@hidden = @other