Mercurial > hg > xemacs-beta

comparison man/texinfo.tex @ 181:bfd6434d15b3 r20-3b17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b17
author cvs
date Mon, 13 Aug 2007 09:53:19 +0200
parents 2d532a89d707
children c9fe270a4101
comparison
equal deleted inserted replaced
180:add28d59e586 181:bfd6434d15b3
1 %% TeX macros to handle Texinfo files. 1 %% TeX macros to handle Texinfo files.
2 %% $Id: texinfo.tex,v 1.3 1997/07/19 22:11:48 steve Exp $ 2 %% $Id: texinfo.tex,v 1.4 1997/08/10 04:40:34 steve Exp $
3 3
4 % Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 4 % Copyright (C) 1985, 86, 88, 90, 91, 92, 93,
5 % 94, 95, 96, 97 Free Software Foundation, Inc. 5 % 94, 95, 96, 97 Free Software Foundation, Inc.
6 6
7 %This texinfo.tex file is free software; you can redistribute it and/or 7 %This texinfo.tex file is free software; you can redistribute it and/or
34 % Added by gildea November 1993. 34 % Added by gildea November 1993.
35 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi 35 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
36 36
37 % This automatically updates the version number based on RCS. 37 % This automatically updates the version number based on RCS.
38 \def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}} 38 \def\deftexinfoversion$#1: #2 ${\def\texinfoversion{#2}}
39 \deftexinfoversion$Revision: 1.3 $ 39 \deftexinfoversion$Revision: 1.4 $
40 \message{Loading texinfo package [Version \texinfoversion]:} 40 \message{Loading texinfo package [Version \texinfoversion]:}
41 41
42 % If in a .fmt file, print the version number 42 % If in a .fmt file, print the version number
43 % and turn on active characters that we couldn't do earlier because 43 % and turn on active characters that we couldn't do earlier because
44 % they might have appeared in the input file name. 44 % they might have appeared in the input file name.
1400 \def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}% 1400 \def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}%
1401 \ifx\one\xkey\ifx\threex\three \key{#2}% 1401 \ifx\one\xkey\ifx\threex\three \key{#2}%
1402 \else{\tclose{\kbdfont\look}}\fi 1402 \else{\tclose{\kbdfont\look}}\fi
1403 \else{\tclose{\kbdfont\look}}\fi} 1403 \else{\tclose{\kbdfont\look}}\fi}
1404 1404
1405 % @url, @email. Quotes do not seem necessary. 1405 % @url. Quotes do not seem necessary, so use \code.
1406 \let\url=\code % perhaps include a hypertex \special eventually 1406 \let\url=\code
1407 % rms does not like the angle brackets --karl, 17may97.
1408 %\def\email#1{$\langle${\tt #1}$\rangle$}
1409 \let\email=\code
1410 1407
1411 % @uref (abbreviation for `urlref') takes an optional second argument 1408 % @uref (abbreviation for `urlref') takes an optional second argument
1412 % specifying the text to display. First (mandatory) arg is the url. 1409 % specifying the text to display. First (mandatory) arg is the url.
1410 % Perhaps eventually put in a hypertex \special here.
1413 % 1411 %
1414 \def\uref#1{\urefxxx #1,,\finish} 1412 \def\uref#1{\urefxxx #1,,\finish}
1415 \def\urefxxx#1,#2,#3\finish{% 1413 \def\urefxxx#1,#2,#3\finish{%
1416 \setbox0 = \hbox{\ignorespaces #2}% 1414 \setbox0 = \hbox{\ignorespaces #2}%
1417 \ifdim\wd0 > 0pt 1415 \ifdim\wd0 > 0pt
1418 \unhbox0\ (\code{#1})% 1416 \unhbox0\ (\code{#1})%
1419 \else 1417 \else
1420 \code{#1}% 1418 \code{#1}%
1421 \fi 1419 \fi
1422 } 1420 }
1421
1422 % rms does not like the angle brackets --karl, 17may97.
1423 % So now @email is just like @uref.
1424 %\def\email#1{$\langle${\tt #1}$\rangle$}
1425 \let\email=\uref
1423 1426
1424 % Check if we are currently using a typewriter font. Since all the 1427 % Check if we are currently using a typewriter font. Since all the
1425 % Computer Modern typewriter fonts have zero interword stretch (and 1428 % Computer Modern typewriter fonts have zero interword stretch (and
1426 % shrink), and it is reasonable to expect all typewriter fonts to have 1429 % shrink), and it is reasonable to expect all typewriter fonts to have
1427 % this property, we can check that font parameter. 1430 % this property, we can check that font parameter.