From 53eded213ea11bfcd90aabdbfb686e74a8385a60 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 7 Sep 2010 06:58:01 +0000
Subject: [PATCH] (char-db-coded-charset-priority-list): Add `=>ucs@cns'.
 (insert-char-attributes): Treat `=>ucs@cns' as a
 coded-charset.

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

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 6114197..56291b6 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -172,6 +172,7 @@
     ==>ucs@bucs
     =>ucs@iso
     =>ucs@unicode
+    =>ucs@cns
     =>>ucs@unicode
     =>>ucs@jis
     =>>ucs@cns
@@ -642,7 +643,7 @@
 			name value (decode-char '=ucs value)
 			line-breaking))
 	(setq attributes (delq name attributes))))
-    (dolist (name '(=>ucs@gb =>ucs@cns =>ucs@jis =>ucs@ks =>ucs@big5))
+    (dolist (name '(=>ucs@gb =>ucs@jis =>ucs@ks =>ucs@big5))
       (when (and (memq name attributes)
 		 (setq value (get-char-attribute char name)))
 	(insert (format "(%-18s . #x%04X)\t; %c%s"
-- 
1.7.10.4