From fe737536ad4a328e2781c2b2b74793d3d3e7d1f8 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 9 Jul 2001 10:39:43 +0000 Subject: [PATCH] (char-attribute-name<): Fix problem when comparing two private coded-charsets. --- lisp/utf-2000/char-db-util.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 133fdfe..4266da8 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -93,7 +93,10 @@ ((>= (charset-iso-final-char kb) ?0) (< (charset-iso-final-char ka) (charset-iso-final-char kb))) - (t))))) + (t))) + (t (if (>= (charset-iso-final-char kb) ?0) + nil + (> (charset-id ka)(charset-id kb)))))) ((<= (charset-chars ka)(charset-chars kb))))) (t (< (charset-dimension ka) -- 1.7.10.4