(insert-char-attributes): Don't display `->fullwidth' for non UCS

[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 7ed7c62..45d4fa1 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -879,6 +879,13 @@
                      (not (string-match "\\*sources$" (symbol-name name)))
                      (or (eq name '<-identical)
                          (string-match "^->halfwidth" (symbol-name name))
+                         (and
+                          (string-match "^->fullwidth" (symbol-name name))
+                          (not
+                           (and (consp value)
+                                (characterp (car value))
+                                (encode-char
+                                 (car value) '=ucs 'defined-only))))
                          (string-match "^->simplified" (symbol-name name))
                          (string-match "^->vulgar" (symbol-name name))
                          (string-match "^->wrong" (symbol-name name))