stable 2006.01.27 13:58

1 files changed, 12 insertions, 0 deletions

diff --git a/tex/context/base/core-sys.tex b/tex/context/base/core-sys.tex
index c65ef64c2..f606b1ad7 100644
--- a/tex/context/base/core-sys.tex
+++ b/tex/context/base/core-sys.tex
@@ -303,6 +303,8 @@
 \installexpander\v!yes    {\convertmeaning }
 \installexpander\v!yes    {\convertmeaning } % something lost ?
 \installexpander\v!strict {\reduceargument }
+\installexpander {utf}    {\reducetoutf}
+%installexpander {xml}    {see xtag-ext}
 
 \def\convertmeaning#1\to % watch the double expansion !
   {\bgroup
@@ -318,6 +320,16 @@
    \reducetocoding[raw]%
    \edef\ascii{#1}%
    \expandafter\endgroup\expandafter\edef\expandafter#2\expandafter{\ascii}}
+
+% \setupindex[expansion=utf]\index{\eacute}
+
+\def\reducetoutf#1\to#2%
+  {\begingroup
+   \reducetocoding[uc]%
+   \let\uchar\uchartoutf
+   \let\unicodechar\numbertoutf
+   \edef\ascii{#1}%
+   \expandafter\endgroup\expandafter\edef\expandafter#2\expandafter{\ascii}}
 
 % \setvalue{statevalue\v!stop   }{0}
 % \setvalue{statevalue\v!start  }{1}