From b0a8c63bf22c767a7c36f2aaa6e369d409e3fa48 Mon Sep 17 00:00:00 2001
From: Roland McGrath <roland@redhat.com>
Date: Tue, 22 Dec 1992 20:14:36 +0000
Subject: Formerly make.texinfo.~65~

---
 make.texinfo | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/make.texinfo b/make.texinfo
index 658a24c..7f4e43c 100644
--- a/make.texinfo
+++ b/make.texinfo
@@ -31,8 +31,27 @@
 }\fi}%
 \gdef\singleindexer#1{\singleindexerfoo#1, \par}%
 
-
-%\def\singleindexer #1{\doind{\indexname}{#1}}
+% This version writes two sort strings.
+\gdef\dosubind #1#2#3{%
+{\count10=\lastpenalty %
+{\indexdummies % Must do this here, since \bf, etc expand at this stage
+\escapechar=`\\%
+{\let\folio=0%
+\def\rawbackslashxx{\indexbackslash}%
+%
+% Now process the index-string once, with all font commands turned off,
+% to get the string to sort the index by.
+{\indexnofonts
+\xdef\tempa{#2}%
+\xdef\tempb{#3}%
+}%
+% Now produce the complete index entry.  We process the index-string again,
+% this time with font commands expanded, to get what to print in the index.
+\edef\temp{%
+\write \csname#1indfile\endcsname{%
+\realbackslash entry {\tempa}{\folio}{#2}{#3}{\tempb}}}%
+\temp}%
+}\penalty\count10}}
 @end tex
 
 @ifinfo
-- 
cgit v1.2.3