Subject: bug#13041: 24.2; diacritic-fold-search

From: Eli Zaretskii <[email-masked]>
Date: Sun, 02 Dec 2012 20:02:59 +0200

> Date: Sun, 02 Dec 2012 18:45:38 +0100
> From: martin rudalics <[email-masked]>
> CC: Eli Zaretskii <[email-masked]>, [email-masked], [email-masked], 
>  [email-masked]
> 
> 	(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.