manyind (30jan19)

git-svn-id: svn://tug.org/texlive/trunk@49874 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 16 insertions, 14 deletions

diff --git a/Master/texmf-dist/tex/latex/manyind/manyind.sty b/Master/texmf-dist/tex/latex/manyind/manyind.sty
index 8394d7008bb..21975b85f24 100644
--- a/Master/texmf-dist/tex/latex/manyind/manyind.sty
+++ b/Master/texmf-dist/tex/latex/manyind/manyind.sty
@@ -14,13 +14,13 @@
 
 
 \ProvidesPackage{manyind}
-  [2019/01/09
+  [2019/01/28
   many indexes]
 
 \RequirePackage{makeidx}
 
 
-\AtBeginDocument{\def\ind@nr#1{\string\indnr\mindchoice d\gr@bltr#1-\relax b #1}%
+\AtBeginDocument{\def\ind@nr#1{\string\indnr\mindchoice d\gr@bltr#1-\relax b{} #1}%
 \ifx\@@wrindex\undefined
 \def\@wrindex#1{\@bsphack 
 \protected@write
@@ -101,7 +101,11 @@ recently?}%
 
 \newcommand{\gr@bltr}{\relax}%
 
-\def\gr@bltr#1#2\relax{\ifcat A#1\the\uccode`#1\else 60\fi}% to keep "a" and "A" together.
+\def\gr@bltr#1#2\relax{\ifcat A#10\the\uccode`#1\else 060\fi}%
+% to keep "a" and "A" together.
+
+\newcommand{\altsort}% to place some entries after the alphabet
+{\def\gr@bltr##1##2\relax{\ifcat A##10\the\uccode`##1\else##1\fi}}
 
 % But first some code for embellishing an index. Our hacking brakes the insertion of 
 % \indexspace at appropriate places. We have to work hard to restore that. While we
@@ -117,11 +121,14 @@ recently?}%
 \newcommand{\mindc@pitalhead}[1]{% Preparing for a heading; not printed.
   \protected@write
     \@indexfile {}{\string \indexentry
-    {\string\indnr \mindchoice d\gr@bltr#1\relax a #1@\protect\nxtletre
+    {\string\indnr \mindchoice d\gr@bltr#1\relax a @\protect\nxtletre
     \protect\def\protect\nwletre{#1}\string\jmptonine}{9}}%          
 }%
 
+\newcommand{\extraheaders}{\relax}
+
 \newcommand{\capitals@inindex}[1]{% Will be called by \mnew@index with full alphabet.
+\extraheaders
 \mfind@capitals#1\relax}%
 
 \newcommand{\mfind@capitals}{\relax}%
@@ -138,14 +145,11 @@ recently?}%
 
 \newcommand{\proc@letter}{\relax}% 
 
-\def\proc@letter#1{\long\def\item{\m@olditem}\ifx#1\relax\else\indexcapstyle{\nwletre}\fi
-\ifx#1\indnr\expandafter\ja@\else #1\fi}%
+\def\proc@letter#1#2{\long\def\item{\m@olditem}%
+\ifx#1\relax\else\indexcapstyle{\nwletre}\fi\fi#1}%
 
 \newcommand{\m@olditem}{\relax}%
 
-\newcommand{\ja@}{\relax}
-
-\def\ja@#1 {\fi}% Mysterious. Seems necessary. 
 
 % All this just to embellish an index. Now more support for multiple indexes.
 
@@ -188,8 +192,7 @@ Package needs \string\make index in preamble. Detected}\fi
 \ifnum\c@multindctr=999%
   \protected@write
     \@indexfile {}{\string \indexentry
-    {\string\indnr 999b @\string\nxtletre
-    \string\mindcutpoint\string\jmptonine}{9}}%                              
+    {\string\indnr 999b @\string\mindcutpoint\string\jmptonine}{9}}%                              
   \@esphack
 \fi
 \addtocounter{multindctr}{-1}%
@@ -200,8 +203,8 @@ Package needs \string\make index in preamble. Detected}\fi
 \@esphack 
 \protected@write
     \@indexfile {}{\string \indexentry
-    {\string\indnr\the\c@multindctr d91a @\protect\nxtletre\protect\def
-    \protect\nwletre{\relax}\string\jmptonine
+    {\string\indnr\the\c@multindctr d091 @\string
+    \relax\string\jmptonine% restores \item
 }{9}}% 
 \protected@write
     \@indexfile {}{\string \indexentry
@@ -216,4 +219,3 @@ Package needs \string\make index in preamble. Detected}\fi
 }%
 
 \endinput
-