From: tomo <tomo>
Date: Wed, 14 Sep 2005 11:43:46 +0000 (+0000)
Subject: (char-db-coded-charset-priority-list): Add `=ruimoku-v6'.
X-Git-Tag: r21-4-17-chise-0_22-4^20~134
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d08569b591742bc91c6384a1b66089cd747971b3;p=chise%2Fxemacs-chise.git

(char-db-coded-charset-priority-list): Add `=ruimoku-v6'.
(insert-char-attributes): Don't display `->FOO' (except
`->subsumptive', `->bopomofo', `->mistakable',
`->ideographic-variants' and `->canonical') which is not attended
`->FOO*sources' when running with non-readable mode.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 17049aa..09eb84e 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -192,6 +192,7 @@
     =big5-eten
     =jis-x0208@1997
     =zinbun-oracle
+    =ruimoku-v6
     =jef-china3))
 
 (defun char-db-make-char-spec (char)
@@ -1016,35 +1017,32 @@
 				 name value
 				 line-breaking))
 		 )
-		((and (not readable)
-		      (null (get-char-attribute
-			     char
-			     (intern (format "%s*sources" name))))
-		      (not (string-match "\\*sources$" (symbol-name name)))
-		      (or (eq name '<-identical)
-			  (eq name '<-canonical)
-			  (eq name '->superscript)
-			  (eq name '->subscript)
-			  (eq name '->circled)
-			  (string-match "^->font" (symbol-name name))
-			  (string-match "^->compat" (symbol-name name))
-			  (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))
-			  (string-match "^->same" (symbol-name name))
-			  (string-match "^->formed" (symbol-name name))
-			  (string-match "^->original" (symbol-name name))
-			  (string-match "^->ancient" (symbol-name name))
-			  (string-match "^->Oracle-Bones" (symbol-name name))
-			  ))
+		((and
+		  (not readable)
+		  (not (eq name '->subsumptive))
+		  (not (eq name '->bopomofo))
+		  (not (eq name '->mistakable))
+		  (not (eq name '->ideographic-variants))
+		  (not (eq name '->canonical))
+		  (null (get-char-attribute
+			 char (intern (format "%s*sources" name))))
+		  (not (string-match "\\*sources$" (symbol-name name)))
+		  (or (eq name '<-identical)
+		      (eq name '<-canonical)
+		      (eq name '<-ideographic-variants)
+                      ;; (eq name '<-synonyms)
+		      (string-match "^<-synonyms" (symbol-name name))
+		      (eq name '<-mistakable)
+		      (when (string-match "^->" (symbol-name name))
+			(cond
+			 ((string-match "^->fullwidth" (symbol-name name))
+			  (not (and (consp value)
+				    (characterp (car value))
+				    (encode-char
+				     (car value) '=ucs 'defined-only)))
+			  )
+			 (t)))
+		      ))
 		 )
 		((or (eq name 'ideographic-structure)
 		     (eq name 'ideographic-combination)