From 6d61a05e38668736af2ad53d0b46343f03e09f28 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 18 Mar 2019 12:35:26 +0900 Subject: [PATCH] (char-db-insert-ccs-feature): Format `==>daijiten' as decimal. (insert-char-attributes): Add code for `<-denotational@usage'; delete code for `->ideographic-component-forms' because it has been abolished. --- lisp/utf-2000/char-db-util.el | 40 +++++++++------------------------------- 1 file changed, 9 insertions(+), 31 deletions(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 22403f0..e7eb92b 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -734,7 +734,7 @@ =>>adobe-japan1-6 =+>adobe-japan1-6 =>cbeta =cbeta =>>cbeta ==cbeta ===cbeta =zinbun-oracle =>zinbun-oracle - =daijiten ==daijiten ===daijiten + =daijiten ==daijiten ===daijiten ==>daijiten ===hng-jou ===hng-keg ===hng-dng ===hng-mam ===hng-drt ===hng-kgk ===hng-myz ===hng-kda ===hng-khi ===hng-khm ===hng-hok ===hng-kyd ===hng-sok @@ -942,6 +942,12 @@ line-breaking ccss readable) (setq attributes (delq '<-denotational@component attributes))) + (when (and (memq '<-denotational@usage attributes) + (setq value (get-char-attribute char '<-denotational@usage))) + (char-db-insert-relation-feature char '<-denotational@usage value + line-breaking + ccss readable) + (setq attributes (delq '<-denotational@usage attributes))) (when (and (memq 'name attributes) (setq value (get-char-attribute char 'name))) (insert (format @@ -1230,17 +1236,6 @@ (setq strokes value))) (setq attributes (delq 'cns-strokes attributes)) ) - ;; (when (and (memq 'shinjigen-1-radical attributes) - ;; (setq value (get-char-attribute char 'shinjigen-1-radical))) - ;; (unless (eq value radical) - ;; (insert (format "(shinjigen-1-radical . %S)\t; %c%s" - ;; value - ;; (ideographic-radical value) - ;; line-breaking)) - ;; (or radical - ;; (setq radical value))) - ;; (setq attributes (delq 'shinjigen-1-radical attributes)) - ;; ) ;; (when (and (memq 'ideographic- attributes) ;; (setq value (get-char-attribute char 'ideographic-))) ;; (insert "(ideographic- ") @@ -1325,28 +1320,11 @@ line-breaking)) (setq attributes (delq '->mojikyo attributes)) ) - ;; (when (and (memq 'hanyu-dazidian-vol attributes) - ;; (setq value (get-char-attribute char 'hanyu-dazidian-vol))) - ;; (insert (format "(hanyu-dazidian-vol . %d)%s" - ;; value line-breaking)) - ;; (setq attributes (delq 'hanyu-dazidian-vol attributes)) - ;; ) - ;; (when (and (memq 'hanyu-dazidian-page attributes) - ;; (setq value (get-char-attribute char 'hanyu-dazidian-page))) - ;; (insert (format "(hanyu-dazidian-page . %d)%s" - ;; value line-breaking)) - ;; (setq attributes (delq 'hanyu-dazidian-page attributes)) - ;; ) - ;; (when (and (memq 'hanyu-dazidian-char attributes) - ;; (setq value (get-char-attribute char 'hanyu-dazidian-char))) - ;; (insert (format "(hanyu-dazidian-char . %d)%s" - ;; value line-breaking)) - ;; (setq attributes (delq 'hanyu-dazidian-char attributes)) - ;; ) (unless readable (dolist (ignored '(composition ->denotational <-subsumptive ->ucs-unified - ->ideographic-component-forms)) + ;; ->ideographic-component-forms + )) (setq attributes (delq ignored attributes)))) (while attributes (setq name (car attributes)) -- 1.7.10.4