Merge branch 'master' into single-inheritance.

[chise/xemacs-chise.git-] / lisp / utf-2000 / char-db-util.el

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 8b0b5c8..ced86bf 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -348,13 +348,16 @@
     =>ucs-itaiji-001
     =>ucs-itaiji-002
     =>ucs-itaiji-005
-    =>big5-cdp-itaiji-001
-    =big5-cdp-itaiji-001
-    =big5-cdp-itaiji-002
-    =big5-cdp-itaiji-003
+    =>ucs-itaiji-006
+    =big5-cdp-var-001
+    =big5-cdp-var-002
     =big5-cdp-var-003
     =big5-cdp-var-004
     =big5-cdp-var-005
+    =big5-cdp-itaiji-001
+    =big5-cdp-itaiji-002
+    =big5-cdp-itaiji-003
+    =>big5-cdp-itaiji-001
     =>ucs@iwds-1
     =>ucs@component
     ==ucs@gb
@@ -772,6 +775,8 @@
   (let ((lbs (concat "\n" (make-string (current-column) ?\ )))
        separator cell sources required-features
        ret)
+    (if (characterp value)
+       (setq value (list value)))
     (while (consp value)
       (setq cell (car value))
       (if (integerp cell)