From 03091002ee6d0871e515854a6bd41f4f8d198ea2 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Mon, 8 Sep 2008 15:00:36 +0000
Subject: [PATCH] (char-attribute-name<): Treat non-private final byte.

---
 lisp/utf-2000/char-db-util.el |   13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 56da7a9..9a7e22b 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -168,7 +168,18 @@
 	      t)
 	  (if (<= (charset-id kb) 1)
 	      nil
-	    (< (charset-id ka)(charset-id kb))))
+	    (cond
+	     ((and (charset-final ka)
+		   (>= (charset-final ka) ?@))
+	      (if (and (charset-final kb)
+		       (>= (charset-final kb) ?@))
+		  (< (charset-final ka)(charset-final kb))
+		t))
+	     ((and (charset-final kb)
+		   (>= (charset-final kb) ?@))
+	      nil)
+	     (t
+	      (< (charset-id ka)(charset-id kb))))))
       nil))
    ((find-charset kb)
     t)
-- 
1.7.10.4