Formerly make.texinfo.~81~

This commit is contained in:
mycroft 1993-01-29 02:57:54 +00:00
parent 85da8b0b54
commit 50d1798203

View File

@ -23,23 +23,23 @@
\gdef\singleindexerfoo#1, #2\par{% \gdef\singleindexerfoo#1, #2\par{%
% Use a box register to test if #2 is empty. % Use a box register to test if #2 is empty.
\setbox0=\hbox{#2}% \setbox0=\hbox{#2}%
\ifvoid0{ % A one-level entry. \ifvoid0{% % A one-level entry.
\doind{\indexname}{#1}}\else{ % A two-level entry. \doind{\indexname}{#1}}\else{% % A two-level entry.
\dosubind{\indexname}{#1}{#2} \dosubind{\indexname}{#1}{#2}%
}\fi}% }\fi}
\gdef\singleindexer#1{\singleindexerfoo#1, \par}% \gdef\singleindexer#1{\singleindexerfoo#1, \par}
% This version writes two sort strings. % This version writes two sort strings.
\gdef\dosubind #1#2#3{% \gdef\dosubind #1#2#3{%
{\count10=\lastpenalty % {\count10=\lastpenalty%
{\indexdummies % Must do this here, since \bf, etc expand at this stage {\indexdummies% Must do this here, since \bf, etc expand at this stage
\escapechar=`\\% \escapechar=`\\%
{\let\folio=0% {\let\folio=0%
\def\rawbackslashxx{\indexbackslash}% \def\rawbackslashxx{\indexbackslash}%
% %
% Now process the index-string once, with all font commands turned off, % Now process the index-string once, with all font commands turned off,
% to get the string to sort the index by. % to get the string to sort the index by.
{\indexnofonts {\indexnofonts%
\xdef\tempa{#2}% \xdef\tempa{#2}%
\xdef\tempb{#3}% \xdef\tempb{#3}%
}% }%