From 9c6ccd03905a400586be367407d62f40bf8c27ea Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 12 Feb 2009 13:09:33 +0000 Subject: [PATCH] (char-db-make-char-spec): Use `ideographic-combination' if any CCS features are not found. --- lisp/utf-2000/char-db-util.el | 6 ++++++ 1 file changed, 6 insertions(+) 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) -- 1.7.10.4