From: tomo <tomo>
Date: Thu, 12 Feb 2009 13:09:33 +0000 (+0000)
Subject: (char-db-make-char-spec): Use `ideographic-combination' if any CCS
X-Git-Tag: r21-4-21-chise-0_24-8^20~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c6ccd03905a400586be367407d62f40bf8c27ea;p=chise%2Fxemacs-chise.git

(char-db-make-char-spec): Use `ideographic-combination' if any CCS
features are not found.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index b50c2ff..ad804fb 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -325,6 +325,12 @@
 			((setq ret (get-char-attribute char 'name*))
 			 (setq char-spec (cons (cons 'name* ret) char-spec))
 			 ))
+		  )
+		 ((setq ret (get-char-attribute
+			     char 'ideographic-combination))
+		  (setq char-spec
+			(cons (cons 'ideographic-combination ret)
+			      char-spec))
 		  ))
 	   char-spec)
 	  ((consp char)