(char-db-coded-charset-priority-list): Add `=>ucs@cns'.
authortomo <tomo>
Tue, 7 Sep 2010 06:58:01 +0000 (06:58 +0000)
committertomo <tomo>
Tue, 7 Sep 2010 06:58:01 +0000 (06:58 +0000)
(insert-char-attributes): Treat `=>ucs@cns' as a coded-charset.

lisp/utf-2000/char-db-util.el

index 6114197..56291b6 100644 (file)
     ==>ucs@bucs
     =>ucs@iso
     =>ucs@unicode
+    =>ucs@cns
     =>>ucs@unicode
     =>>ucs@jis
     =>>ucs@cns
                        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"