From 1b12d8beaea055d9469a11e04ee763828e7a000d Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 6 Nov 2004 16:39:29 +0000 Subject: [PATCH] (insert-char-attributes): Print `ideographic-radical@DOMAIN', `ideographic-strokes@DOMAIN' and `total-strokes@DOMAIN' as `ideographic-radical', `ideographic-strokes' and `total-strokes' even if DOMAIN is not found in `char-db-feature-domains'. --- lisp/utf-2000/char-db-util.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 45d4fa1..f427369 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -620,7 +620,20 @@ (setq attributes (delq 'ideographic-radical attributes)) ) (let (key) - (dolist (domain char-db-feature-domains) + (dolist (domain + ;; char-db-feature-domains + (let* ((dest char-db-feature-domains) + (dlast (last dest)) + domain) + (dolist (feature (char-attribute-list)) + (setq feature (symbol-name feature)) + (when (string-match + "\\(radical\\|strokes\\)@\\([^@*]+\\)\\(\\*\\|$\\)" + feature) + (setq domain (intern (match-string 2 feature))) + (unless (memq domain dest) + (setcdr dlast (setq dlast (list domain)))))) + dest)) (setq key (intern (format "%s@%s" 'ideographic-radical domain))) (when (and (memq key attributes) (setq value (get-char-attribute char key))) -- 1.7.10.4