(insert-char-attributes): Use #xHHHH for 2 bytes sets.
authortomo <tomo>
Wed, 25 Dec 2002 14:49:37 +0000 (14:49 +0000)
committertomo <tomo>
Wed, 25 Dec 2002 14:49:37 +0000 (14:49 +0000)
lisp/utf-2000/char-db-util.el

index edfe9f5..d963227 100644 (file)
                   (if has-long-ccs-name
                       "(%-26s . %06d)\t; %c%s"
                     "(%-18s . %06d)\t; %c%s"))
-                 ((eq name 'ucs)
+                 ((>= (charset-dimension name) 2) ; (eq name 'ucs)
                   (if has-long-ccs-name
                       "(%-26s . #x%04X)\t; %c%s"
                     "(%-18s . #x%04X)\t; %c%s"))