mirrors/make-dfsg
1
0
Fork 0
mirror of https://salsa.debian.org/srivasta/make-dfsg.git synced 2025-02-04 19:12:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

(\angleleft, \angleright): New macros.

Browse source 
(\refx, \email, \key): Use them.
From: Stephen Gildea <gildea@intouchsys.com>
Date: Fri, 26 Dec 1997 11:43:32 EST
This commit is contained in:
Karl Berry 1998-02-24 22:48:24 +00:00
parent 8de0e41662
commit 04c488df1c
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
texinfo.tex
View file

@ -1278,6 +1278,10 @@ where each line of input produces a line of output.}
% %
\textfonts \textfonts
% Define these so they can be easily changed for other fonts.
\def\angleleft{$\langle$}
\def\angleright{$\rangle$}
% Count depth in font-changes, for error checks % Count depth in font-changes, for error checks
\newcount\fontdepth \fontdepth=0 \newcount\fontdepth \fontdepth=0
@ -1315,15 +1319,15 @@ where each line of input produces a line of output.}
\null \null
} }
\let\ttfont=\t \let\ttfont=\t
\def\samp #1{`\tclose{#1}'\null} \def\samp#1{`\tclose{#1}'\null}
\setfont\smallrm\rmshape{8}{1000} \setfont\smallrm\rmshape{8}{1000}
\font\smallsy=cmsy9 \font\smallsy=cmsy9
\def\key#1{{\smallrm\textfont2=\smallsy \leavevmode\hbox{% \def\key#1{{\smallrm\textfont2=\smallsy \leavevmode\hbox{%
\raise0.4pt\hbox{$\langle$}\kern-.08em\vtop{% \raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{%
\vbox{\hrule\kern-0.4pt \vbox{\hrule\kern-0.4pt
\hbox{\raise0.4pt\hbox{\vphantom{$\langle$}}#1}}% \hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}%
\kern-0.4pt\hrule}% \kern-0.4pt\hrule}%
\kern-.06em\raise0.4pt\hbox{$\rangle$}}}} \kern-.06em\raise0.4pt\hbox{\angleright}}}}
% The old definition, with no lozenge: % The old definition, with no lozenge:
%\def\key #1{{\ttsl \nohyphenation \uppercase{#1}}\null} %\def\key #1{{\ttsl \nohyphenation \uppercase{#1}}\null}
\def\ctrl #1{{\tt \rawbackslash \hat}#1} \def\ctrl #1{{\tt \rawbackslash \hat}#1}
@ -1436,7 +1440,7 @@ where each line of input produces a line of output.}
% rms does not like the angle brackets --karl, 17may97. % rms does not like the angle brackets --karl, 17may97.
% So now @email is just like @uref. % So now @email is just like @uref.
%\def\email#1{$\langle${\tt #1}$\rangle$} %\def\email#1{\angleleft{\tt #1}\angleright}
\let\email=\uref \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
@ -4389,7 +4393,7 @@ width0pt\relax} \fi
\def\refx#1#2{% \def\refx#1#2{%
\expandafter\ifx\csname X#1\endcsname\relax \expandafter\ifx\csname X#1\endcsname\relax
% If not defined, say something at least. % If not defined, say something at least.
$\langle$un\-de\-fined$\rangle$% \angleleft un\-de\-fined\angleright
\ifhavexrefs \ifhavexrefs
\message{\linenumber Undefined cross reference `#1'.}% \message{\linenumber Undefined cross reference `#1'.}%
\else \else