From 489d147a4ed4fce6461e40d1d4ae526cea195a90 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 21 Oct 2017 15:08:51 +0900 Subject: [PATCH] (A-compU+5382): New abstract component. (U+5382): Add A-compU+5382 as a target of `<-denotational@component'. (): Copied from u02E00-CJK-Radical-Supplement.el; add `<-denotational' for U+5382. (A-IWDSU+5384): Use A-compU+5382 instead of U+5382 in `ideographic-structure'. --- lisp/utf-2000/Ideograph-R027-Cliff.el | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el index 13b2cf4..3412e22 100644 --- a/lisp/utf-2000/Ideograph-R027-Cliff.el +++ b/lisp/utf-2000/Ideograph-R027-Cliff.el @@ -1,9 +1,17 @@ ;; -*- coding: utf-8-mcs-er -*- (define-char + '((ideographic-radical . 27) ; ⼚ + (ideographic-strokes . 0) + (total-strokes . 2) + (=>ucs@component . #x5382) ; &A-compU+5382; + )) +(define-char '((<-denotational@component ((=>ucs@component . #x4E06) ; &A-compU+4E06; (=>iwds-1 . 0150) ; &A-compU+4E06; ) + ((=>ucs@component . #x5382) ; &A-compU+5382; + ) ((=>ucs@component . #x20087) ; &A-compU+20087; )) (ideographic-radical . 27) ; ⼚ @@ -51,6 +59,19 @@ )) )) (define-char + '((<-denotational + ((=ucs . #x5382) ; 厂 + )) + (name . "CJK RADICAL CLIFF") + (general-category symbol other) ; Informative Category + (bidi-category . "ON") + (mirrored . nil) + (=ucs . #x2E81) ; ⺁ + (<-formed@component + ((=ucs . #x5382) ; 厂 + )) + )) +(define-char '((ideographic-radical . 27) ; ⼚ (ideographic-strokes . 2) (total-strokes . 4) @@ -103,7 +124,7 @@ ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT") (=ucs . #x2FF8) ; ⿸ ) - ((=ucs . #x5382) ; 厂 + ((=>ucs@component . #x5382) ; &A-compU+5382; ) ((=>ucs@component . #x353E) ; &A-compU+353E; (=>iwds-1 . 0123) ; &A-compU+353E; -- 1.7.10.4