Re: Case mapping of sharp s

[Juri Linkov]

> I'm not sure if it's exactly what you need, but I use the following to
> search for characters while ignoring any accents:
>
>    (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 don't know if there is a simpler way to achieve this.

This is exactly what I need - to ignore accents while searching.
I wonder why there is no mode like `search-ignore-accents-mode'
that does this.

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