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

(\codeunder): Use \_ and \ifusingtt to avoid dotaccent from _ in roman

Browse source 
fonts, e.g., @deftypefn.
(\tex): Remove spurious spaces at the end of subdefinitions.
From: "John W. Eaton" <jwe@bevo.che.wisc.edu>.
(\url, \email): \let to \code; no quotes or angle brackets.
This commit is contained in:
Karl Berry 1997-05-19 21:34:38 +00:00
parent 5e91041347
commit 922730c406
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
texinfo.tex
View file

@ -1271,8 +1271,6 @@ where each line of input produces a line of output.}
\def\ctrl #1{{\tt \rawbackslash \hat}#1} \def\ctrl #1{{\tt \rawbackslash \hat}#1}
\let\file=\samp \let\file=\samp
\let\url=\samp % perhaps include a hypertex \special eventually
\def\email#1{$\langle${\tt #1}$\rangle$}
% @code is a modification of @t, % @code is a modification of @t,
% which makes spaces the same size as normal in the surrounding text. % which makes spaces the same size as normal in the surrounding text.
@ -1325,7 +1323,7 @@ where each line of input produces a line of output.}
\def\realdash{-} \def\realdash{-}
\def\codedash{-\discretionary{}{}{}} \def\codedash{-\discretionary{}{}{}}
\def\codeunder{\normalunderscore\discretionary{}{}{}} \def\codeunder{\ifusingtt{\normalunderscore\discretionary{}{}{}}{\_}}
\def\codex #1{\tclose{#1}\endgroup} \def\codex #1{\tclose{#1}\endgroup}
%\let\exp=\tclose %Was temporary %\let\exp=\tclose %Was temporary
@ -1339,6 +1337,12 @@ where each line of input produces a line of output.}
\else{\tclose{\ttsl\look}}\fi \else{\tclose{\ttsl\look}}\fi
\else{\tclose{\ttsl\look}}\fi} \else{\tclose{\ttsl\look}}\fi}
% @url, @email. Quotes do not seem necessary.
\let\url=\code % perhaps include a hypertex \special eventually
% rms does not like the angle brackets --karl, 17may97.
%\def\email#1{$\langle${\tt #1}$\rangle$}
\let\email=\code
% 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
@ -3417,8 +3421,8 @@ width0pt\relax} \fi
\let\.=\ptexdot \let\.=\ptexdot
\let\*=\ptexstar \let\*=\ptexstar
\let\dots=\ptexdots \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\@{@}% \def\@{@}%
\let\bullet=\ptexbullet \let\bullet=\ptexbullet
\let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext \let\b=\ptexb \let\c=\ptexc \let\i=\ptexi \let\t=\ptext