Re: Case mapping of sharp s

[Juri Linkov]

>    (let ((eqv-list '("aAàÀáÁâÂãÃäÄåÅ"
>                    "cCçÇ"
>                    "eEèÈéÉêÊëË"
>                    "iIìÌíÍîÎïÏ"
>                    "nNñÑ"
>                    "oOòÒóÓôÔõÕöÖøØ"
>                    "uUùÙúÚûÛüÜ"
>                    "yYýÝÿ"))
>        (table (standard-case-table))
>        canon)
>      (setq canon (copy-sequence table))
>      (mapcar (lambda (s)
>              (mapcar (lambda (c) (aset canon c (aref s 0))) s))
>            eqv-list)
>      (set-char-table-extra-slot table 1 canon)
>      (set-char-table-extra-slot table 2 nil)
>      (set-standard-case-table table))

I tried this out, but it has no effect.  Maybe this used to work
in some older versions, but doesn't work in 23.1.

In addition to equivalent groups above, it would be nice also
to ignore combining accents.

-- 
Juri Linkov
http://www.jurta.org/emacs/