From b74c095b1b8555c7f85c1880a6038bea9a0a0f54 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 30 Jan 2019 23:07:36 +0000 Subject: manyind (30jan19) git-svn-id: svn://tug.org/texlive/trunk@49874 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/manyind/manyind.sty | 30 +++++++++++++------------ 1 file changed, 16 insertions(+), 14 deletions(-) (limited to 'Master/texmf-dist/tex') 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 - -- cgit v1.2.3