X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchar-db-util.el;h=a989d1c08bba42a5fa8fde5b011f0438192025bc;hb=d727b9f74a0d5c5edab248c44743567dba58432c;hp=457d5f4606f6a13ac456587e4c2ca660b2845493;hpb=efc16c542f7a12524e561d2a0ef0662fbea9bcb1;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 457d5f4..a989d1c 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -447,6 +447,14 @@
 		      line-breaking))
       (setq attributes (delq 'script attributes))
       )
+    ;; (when (and (memq '<-denotational attributes)
+    ;;            (setq value (get-char-attribute char '<-denotational))
+    ;;            (null (cdr value))
+    ;;            (setq value (encode-char (car value) 'ucs 'defined-only)))
+    ;;   (insert (format "(%-18s . #x%04X)\t; %c%s"
+    ;;                   '=>ucs value (decode-char 'ucs value)
+    ;;                   line-breaking))
+    ;;   (setq attributes (delq '<-denotational attributes)))
     (dolist (name '(=>ucs =>ucs*))
       (when (and (memq name attributes)
 		 (setq value (get-char-attribute char name)))
@@ -828,7 +836,9 @@
       )
     (unless readable
       (dolist (ignored '(composition
-			 ->denotational <-subsumptive ->ucs-unified))
+			 ->denotational <-subsumptive ->ucs-unified
+			 ->ideographic-component-forms
+			 <-same))
 	(setq attributes (delq ignored attributes))))
     ;; (setq rest ccs-attributes)
     ;; (while (and rest
@@ -896,7 +906,8 @@
 				 line-breaking))
 		 )
 		((and (not readable)
-		      (string-match "^->simplified" (symbol-name name)))
+		      (or (eq name '<-identical)
+			  (string-match "^->simplified" (symbol-name name))))
 		 )
 		((or (eq name 'ideographic-structure)
 		     (eq name 'ideographic-)