From 326654de239de102e12792e0ffa1e4f46ecc97b2 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 7 Jul 2001 09:22:21 +0000 Subject: [PATCH] (insert-char-attributes): Print builtin-character of `ideograph-gt' for `ideograph-gt-pj-{1..11}'. --- lisp/utf-2000/char-db-util.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 3f5d118..133fdfe 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -623,7 +623,21 @@ #x808080) (t 0))) value) - (decode-builtin-char name value) + (if (and (memq name '(ideograph-gt-pj-1 + ideograph-gt-pj-2 + ideograph-gt-pj-3 + ideograph-gt-pj-4 + ideograph-gt-pj-5 + ideograph-gt-pj-6 + ideograph-gt-pj-7 + ideograph-gt-pj-8 + ideograph-gt-pj-9 + ideograph-gt-pj-10 + ideograph-gt-pj-11)) + (setq ret (decode-char name value)) + (setq ret (get-char-attribute ret 'ideograph-gt))) + (decode-builtin-char 'ideograph-gt ret) + (decode-builtin-char name value)) line-breaking))) (setq ccs-attributes (cdr ccs-attributes))) (insert ")"))) -- 1.7.10.4