bug#13041: 24.2; diacritic-fold-search

[Eli Zaretskii]

> Date: Sun, 02 Dec 2012 18:45:38 +0100
> From: martin rudalics <rudalics@gmx.at>
> CC: Eli Zaretskii <eliz@gnu.org>, perin@panix.com, 13041@debbugs.gnu.org, 
>  perin@acm.org
> 
>       (setq type1 (car (get-char-code-property
>                         (elt string1 index) 'decomposition)))
>       (setq type2 (car (get-char-code-property
>                         (elt string2 index) 'decomposition)))
>       (cond
>        ((< type1 type2)
>         (throw 'found t))
>        ((> type1 type2)
>         (throw 'found nil)))
>       ;; Continue.
>       (setq index (1+ index)))
>        ;; Shorter is less.
>        (< length1 length2))))
> 
> but am not sure whether I'm missing something wrt the return value of
> `get-char-code-property'.

Maybe only the fact that it can return a list whose car is 'compat',
see the examples I posted.