(\email): Let to \uref instead of \code, as a second optional argument

makes sense for this, too.
This commit is contained in:
Karl Berry 1997-07-26 19:12:35 +00:00
parent 806c7aa46c
commit 2d29a55137

View file

@ -1402,14 +1402,12 @@ where each line of input produces a line of output.}
\else{\tclose{\kbdfont\look}}\fi \else{\tclose{\kbdfont\look}}\fi
\else{\tclose{\kbdfont\look}}\fi} \else{\tclose{\kbdfont\look}}\fi}
% @url, @email. Quotes do not seem necessary. % @url. Quotes do not seem necessary, so use \code.
\let\url=\code % perhaps include a hypertex \special eventually \let\url=\code
% rms does not like the angle brackets --karl, 17may97.
%\def\email#1{$\langle${\tt #1}$\rangle$}
\let\email=\code
% @uref (abbreviation for `urlref') takes an optional second argument % @uref (abbreviation for `urlref') takes an optional second argument
% specifying the text to display. First (mandatory) arg is the url. % specifying the text to display. First (mandatory) arg is the url.
% Perhaps eventually put in a hypertex \special here.
% %
\def\uref#1{\urefxxx #1,,\finish} \def\uref#1{\urefxxx #1,,\finish}
\def\urefxxx#1,#2,#3\finish{% \def\urefxxx#1,#2,#3\finish{%
@ -1421,6 +1419,11 @@ where each line of input produces a line of output.}
\fi \fi
} }
% rms does not like the angle brackets --karl, 17may97.
% So now @email is just like @uref.
%\def\email#1{$\langle${\tt #1}$\rangle$}
\let\email=\uref
% Check if we are currently using a typewriter font. Since all the % Check if we are currently using a typewriter font. Since all the
% Computer Modern typewriter fonts have zero interword stretch (and % Computer Modern typewriter fonts have zero interword stretch (and
% shrink), and it is reasonable to expect all typewriter fonts to have % shrink), and it is reasonable to expect all typewriter fonts to have