From 0518ed3a2aa6fa9e3f90e7857c9a2b94ec6e27bb Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 10 Nov 2003 16:24:48 +0000 Subject: [PATCH] (char-attribute-name<): Use new sorting method. --- lisp/utf-2000/char-db-util.el | 23 ++--------------------- 1 file changed, 2 insertions(+), 21 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index df81a7a..c0f42b8 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -82,28 +82,9 @@ (cond ((= (charset-dimension ka) (charset-dimension kb)) - (cond ((= (charset-chars ka)(charset-chars kb)) - (if (charset-iso-final-char ka) - (cond - ((>= (charset-iso-final-char ka) ?@) - (if (and (charset-iso-final-char kb) - (>= (charset-iso-final-char kb) ?@)) - (< (charset-iso-final-char ka) - (charset-iso-final-char kb)) - t)) - (t - (if (charset-iso-final-char kb) - (if (>= (charset-iso-final-char kb) ?@) - nil - (< (charset-iso-final-char ka) - (charset-iso-final-char kb))) - t))) - (if (charset-iso-final-char kb) - nil - (< (charset-id ka)(charset-id kb))))) - ((<= (charset-chars ka)(charset-chars kb))))) + (< (charset-id ka)(charset-id kb))) (t - (< (charset-dimension ka) + (> (charset-dimension ka) (charset-dimension kb)) ))) ((symbolp kb) -- 1.7.10.4