esindex 1.4 (28sep08)

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

1 files changed, 18 insertions, 5 deletions

diff --git a/Master/texmf-dist/tex/latex/bezos/esindex.sty b/Master/texmf-dist/tex/latex/bezos/esindex.sty
index 29c6d584b2b..3b2d61e02c0 100644
--- a/Master/texmf-dist/tex/latex/bezos/esindex.sty
+++ b/Master/texmf-dist/tex/latex/bezos/esindex.sty
@@ -22,13 +22,15 @@
 
 % Changes
 %
-% 2006/05/12. Bug fixed. Missing accents in multilevel entries.
-% 2008/09/17. Made compatible with latest LaTeX versions (\IeC).
+% 2006-05-12. Bug fixed. Missing accents in multilevel entries.
+% 2008-09-17. Made compatible with latest LaTeX versions (\IeC).
 %             Added \'\i.
 %             Package option ignorespaces.
 %             Macro \ignorewords.
+% 2008-09-28. Added \everyesindex.
+%             Macro \esindexsort.
 
-\ProvidesPackage{esindex}[2008/09/17 v1.3 Spanish indexes]
+\ProvidesPackage{esindex}[2008/09/28 v1.4 Spanish indexes]
 
 \def\esx@level{`\!}
 \def\esx@actual{`\@}
@@ -124,7 +126,12 @@
   \ifnum\catcode`\"=\active
     \let"\"%
   \fi
-  \@temptokena{#1}%
+  \def\esx@a{#1}%
+  \@ifundefined{esx@sort@\expandafter\strip@prefix\meaning\esx@a}%
+    {\@temptokena{#1}}%
+    {\@temptokena\expandafter\expandafter\expandafter{%
+       \csname esx@sort@\expandafter\strip@prefix\meaning\esx@a\endcsname}}%
+  \the\everyesindex
   % Particles
   \@for\esx@a:=\esx@ignorewords\do{%
      \expandafter\esx@remwords\expandafter{\esx@a}}%
@@ -175,6 +182,12 @@
   \protected@xdef\esx@b{\expandafter\esx@a\space#1 #2 \esx@a}%
   \@temptokena\expandafter{\esx@b}}
 
+\def\esindexsort#1{%
+  \def\esx@a{#1}%
+  \@namedef{esx@sort@\expandafter\strip@prefix\meaning\esx@a}}
+
+\newtoks\everyesindex
+
 \def\esx@index@q@n{n\string^^ff}
 \def\esx@index@q@N{N\string^^ff}
 \@namedef{esx@index@q@\string\i}{i}
@@ -184,7 +197,7 @@
 \def\esx@index@qq@a{.a}
 \def\esx@index@qq@A{.A}
 \def\esx@index@qq@u{u}
-\def\esx@index@qq@A{U}
+\def\esx@index@qq@U{U}
 \def\esx@index@qq@c{c}
 \def\esx@index@qq@C{C}