+2004-03-09 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * JC3-to-UCS.txt (JC3-67A3): Map to U+2ECC instead of U+8FB6.
+ (JC3-72FA): Map to U+2EBE instead of U+8279.
+
2004-02-22 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
* JC3-to-UCS.txt (JC3-81F6): Map to U+6EE8 instead of U+6EEB.
JC3-66F9 U+8F54
JC3-66FA U+8F58
JC3-67A1 U+8FA1
-JC3-67A3 U+8FB6
+JC3-67A3 U+2ECC
JC3-67A4 U+8FB5
JC3-67A5 U+8FBB
JC3-67A6 U+8FBC
JC3-71F7 U+353E
JC3-71FB U+4EBB
JC3-71FC U-00020089
-JC3-72FA U+8279
+JC3-72FA U+2EBE
JC3-72FC U+8002
JC3-72FE U+793B
JC3-76B0 U+21E9
+2004-03-09 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * Ideograph-R140-Grass.el (GT-39643): Unify <CJK RADICAL GRASS
+ TWO> instead of U+FA5E; add `<-denotational' for U+8279; add
+ JU+FA5E.
+ (U+8279): Separate all; changed to an abstraction character; add
+ `<-ideographic-component-forms' for U+8278.
+ (U+FA5D): Separate all; add `->identical' for <CJK RADICAL GRASS
+ THREE>.
+ (U+FA5E): Separate all; add `->identical' for <CJK RADICAL GRASS
+ TWO>.
+ (GT-39639): Unify <CJK RADICAL GRASS ONE> instead of U+8279; add
+ `<-denotational' for U+8279; add UU+8279.
+ (GT-39645): Unify <CJK RADICAL GRASS THREE> instead of U+FA5D; add
+ `<-denotational' for U+8279; add JU+FA5D.
+ (BC-8B4B): Moved into U+4491.
+ (U+4491): Use `->subsumptive'.
+
+ * u02E00-CJK-Radical-Supplement.el (<CJK RADICAL GRASS ONE>):
+ Unify G0-5C33, JX2-7576, GT-39639, GT-K00279 and JC3-72FA; add
+ `<-denotational' for U+8279.
+ (<CJK RADICAL GRASS TWO>): Unify C4-2153, JX2-7575, BC-8AFE,
+ GT-39643, GT-K00671 and M-30639; add `<-denotational' for U+8279.
+ (<CJK RADICAL GRASS THREE>): Unify JX2-7574, GT-39645 and
+ GT-K00569; add `<-denotational' for U+8279.
+ (<CJK RADICAL SIMPLIFIED WALK>): Unify G0-6541, JX2-7969, BC-8966
+ and JC3-67A3; add `<-denotational' for U+8FB6; add
+ `<-simplified@component' for <CJK RADICAL WALK ONE>.
+ (<CJK RADICAL WALK ONE>): Add `<-denotational' for U+8FB6.
+ (<CJK RADICAL WALK TWO>): Add `<-denotational' for U+8FB6; add
+ `<-simplified@component' for <CJK RADICAL WALK ONE>.
+
+ * Ideograph-R162-Walk.el (<CJK RADICAL WALK ONE>): Add
+ `<-denotational' for U+8FB6.
+ (U+8FB6): Add `<-ideographic-component-forms' for U+8FB5; delete
+ `->identical' for U+FA66.
+ (BC-8966): Unify <CJK RADICAL SIMPLIFIED WALK> instead of U+FA66;
+ add `<-denotational' for U+8FB6; add `<-simplified@component' for
+ U+2ECD; add JU+FA66.
+ (<CJK RADICAL WALK TWO>): Add `<-denotational' for U+8FB6; add
+ `<-simplified@component' for U+2ECD.
+ (U+FA66): Separate all; add `->identical' for <CJK RADICAL
+ SIMPLIFIED WALK>.
+
+2004-03-08 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * char-db-util.el (insert-char-attributes): Don't display
+ `->ideographic-component-forms' when running with non-readable
+ mode.
+
+2004-03-07 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * Ideograph-R138-Stopping.el (J0-4E49): Moved into U+826F.
+ (U+826F): Use `->subsumptive'.
+
+2004-03-06 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * Ideograph-R093-Cow.el (BC-8BA9): Moved into U+725C.
+ (U+725C): Use `->subsumptive'.
+
2004-03-05 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
* Ideograph-R168-Long.el, Ideograph-R167-Gold.el: Add missing
(=daikanwa . 19922) ;
))
(define-char
- '((=>ucs . #x725C) ; 牜
- (ideographic-radical . 93) ; ⽜
- (ideographic-strokes . 0)
- (total-strokes . 4)
- (<-ideographic-component-forms
- ((=ucs . #x725B) ; 牛
- ))
- (=big5-cdp . #x8BA9) ;
- (=daikanwa . 19923) ;
- ))
-(define-char
- '((morohashi-daikanwa 19923 0 0)
+ '((=>daikanwa . 19923) ;
(ideographic-radical . 93) ; ⽜
(ideographic-strokes . 0)
(total-strokes . 4)
((=ucs . #x725B) ; 牛
))
(=ucs . #x725C) ; 牜
- (=jis-x0212 . #x4A58) ;
+ (->subsumptive
+ ((=big5-cdp . #x8BA9) ;
+ (=daikanwa . 19923) ;
+ )
+ ((=jis-x0212 . #x4A58) ;
+ (=ucs@unicode . #x725C) ;
+ ))
))
(define-char
'((ideographic-radical . 93) ; ⽜
(=daikanwa . 30596) ;
))
(define-char
- '((=>ucs . #x826F) ; 良
- (ideographic-radical . 138) ; ⾉
- (ideographic-strokes . 1)
- (total-strokes . 7)
- (shinjigen-2 . 6671)
- (=jis-x0208 . #x4E49) ;
- (=ks-x1001 . #x555E) ;
- (=gt . 39586) ;
- (=gt-k . 02672) ;
- (=gt-pj-1 . #x4E49) ;
- (=daikanwa . 30597) ;
- (=ucs@jis . #x826F) ;
- ))
-(define-char
- '((morohashi-daikanwa 30597 0 0)
+ '((=>daikanwa . 30597) ;
(ideographic-radical . 138) ; ⾉
(ideographic-strokes . 1)
(total-strokes . 7)
(=ucs . #x826F) ; 良
- (=gb2312 . #x413C) ;
- (=cns11643-1 . #x4B40) ;
+ (->subsumptive
+ ((shinjigen-2 . 6671)
+ (=jis-x0208 . #x4E49) ;
+ (=ks-x1001 . #x555E) ;
+ (=gt . 39586) ;
+ (=gt-k . 02672) ;
+ (=gt-pj-1 . #x4E49) ;
+ (=daikanwa . 30597) ;
+ (=ucs@jis . #x826F) ;
+ )
+ ((=gb2312 . #x413C) ;
+ (=cns11643-1 . #x4B40) ;
+ (=ucs@unicode . #x826F) ;
+ ))
))
(define-char
'((ideographic-radical . 138) ; ⾉
(ideographic-strokes . 1)
(total-strokes . 6)
(<-ideographic-component-forms
- ((=daikanwa . 30597) ;
+ ((=jis-x0208 . #x4E49) ;
+ (=ks-x1001 . #x555E) ;
+ (=daikanwa . 30597) ;
))
(<-simplified
((=jis-x0208 . #x4E49) ;
(=daikanwa . 30638) ;
))
(define-char
- '((=>ucs* . #x8279) ; 艹
+ '((name . "CJK RADICAL GRASS TWO")
+ (general-category symbol other) ; Informative Category
+ (bidi-category . "ON")
+ (mirrored . nil)
(ideographic-radical . 140) ; ⾋
(ideographic-strokes . 0)
(total-strokes . 4)
- (->ideographic-component-forms
- ((name . "CJK RADICAL GRASS TWO")
- (=ucs . #x2EBF) ; ⺿
+ (<-denotational
+ ((=ucs . #x8279) ; 艹
))
- (=ucs . #xFA5E) ; 艹
+ (=ucs . #x2EBF) ; ⺿
(=cns11643-4 . #x2153) ;
(=jis-x0213-2-2000 . #x7575) ;
(=big5-cdp . #x8AFE) ;
(=gt-k . 00671) ;
(=gt-pj-6 . #x4664) ;
(=daikanwa . 30639) ;
- (=ucs@cns . #x8279) ; 艹
+ (=ucs@cns . #x8279) ; ⺿
+ (=ucs@jis . #xFA5E) ; ⺿
))
(define-char
- '((morohashi-daikanwa 30639 0 1)
+ '((=>daikanwa . 30639) ; ⺿
(ideographic-radical . 140) ; ⾋
(ideographic-strokes . 0)
- (total-strokes . 3)
- (->ideographic-component-forms
- ((name . "CJK RADICAL GRASS ONE")
- (=ucs . #x2EBE) ; ⺾
+ (<-ideographic-component-forms
+ ((=ucs . #x8278) ; 艸
))
(=ucs . #x8279) ; 艹
+ ))
+(define-char
+ '((=>ucs* . #x8279) ; 艹
+ (->identical
+ ((name . "CJK RADICAL GRASS THREE")
+ (=ucs . #x2EC0) ; ⻀
+ ))
+ (=ucs . #xFA5D) ; 艹
+ ))
+(define-char
+ '((=>ucs* . #x8279) ; 艹
+ (->identical
+ ((name . "CJK RADICAL GRASS TWO")
+ (=ucs . #x2EBF) ; ⺿
+ ))
+ (=ucs . #xFA5E) ; 艹
+ ))
+(define-char
+ '((name . "CJK RADICAL GRASS ONE")
+ (=>daikanwa . 30639) ; ⺿
+ (general-category symbol other) ; Informative Category
+ (bidi-category . "ON")
+ (mirrored . nil)
+ (ideographic-radical . 140) ; ⾋
+ (ideographic-strokes . 0)
+ (total-strokes . 3)
+ (<-denotational
+ ((=ucs . #x8279) ; 艹
+ ))
+ (=ucs . #x2EBE) ; ⺾
(=gb2312 . #x5C33) ;
(=jis-x0213-2-2000 . #x7576) ;
(=gt . 39639) ;
(=gt-k . 00279) ;
(=gt-pj-9 . #x4F47) ;
(=jef-china3 . #x72FA) ;
+ (=ucs@unicode . #x8279) ; ⺾
))
(define-char
- '((=>ucs* . #x8279) ; 艹
- (morohashi-daikanwa 30639 0 2)
+ '((name . "CJK RADICAL GRASS THREE")
+ (=>daikanwa . 30639) ; ⺿
+ (general-category symbol other) ; Informative Category
+ (bidi-category . "ON")
+ (mirrored . nil)
(ideographic-radical . 140) ; ⾋
(ideographic-strokes . 0)
- (total-strokes . 3)
- (->ideographic-component-forms
- ((name . "CJK RADICAL GRASS THREE")
- (=ucs . #x2EC0) ; ⻀
+ (total-strokes . 4)
+ (<-denotational
+ ((=ucs . #x8279) ; 艹
))
- (=ucs . #xFA5D) ; 艹
+ (=ucs . #x2EC0) ; ⻀
(=jis-x0213-2-2000 . #x7574) ;
(=gt . 39645) ;
(=gt-k . 00569) ;
(=gt-pj-9 . #x4E5A) ;
+ (=ucs@jis . #xFA5D) ; ⻀
))
(define-char
- '((=>ucs . #x4491) ; 䒑
- (ideographic-radical . 140) ; ⾋
- (ideographic-strokes . 0)
- (total-strokes . 3)
- (=big5-cdp . #x8B4B) ;
- (=gt . 39640) ;
- (=gt-pj-6 . #x4665) ;
- (=daikanwa . 30640) ;
- ))
-(define-char
- '((morohashi-daikanwa 30640 0 0)
+ '((=>daikanwa . 30640) ;
(ideographic-radical . 140) ; ⾋
(ideographic-strokes . 0)
(total-strokes . 3)
(=ucs . #x4491) ; 䒑
- (=jis-x0213-2-2000 . #x7577) ;
- (=gt . 39641) ;
- (=gt-pj-9 . #x4E59) ;
- (=jef-china3 . #x61BA) ;
+ (->subsumptive
+ ((=big5-cdp . #x8B4B) ;
+ (=gt . 39640) ;
+ (=gt-pj-6 . #x4665) ;
+ (=daikanwa . 30640) ;
+ )
+ ((=jis-x0213-2-2000 . #x7577) ;
+ (=gt . 39641) ;
+ (=gt-pj-9 . #x4E59) ;
+ (=jef-china3 . #x61BA) ;
+ (=ucs@unicode . #x4491) ;
+ ))
))
(define-char
'((=>ucs . #x26AF3) ; 𦫳
))
(define-char
'((name . "CJK RADICAL WALK ONE")
- (=>ucs . #x8FB6) ; 辶
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
(ideographic-radical . 162) ; ⾡
(ideographic-strokes . 0)
(total-strokes . 4)
+ (<-denotational
+ ((=ucs . #x8FB6) ; 辶
+ ))
(=ucs . #x2ECD) ; ⻍
(=jis-x0212 . #x6134) ;
(=jis-x0213-2-2000 . #x796A) ;
(=ucs@jis . #x8FB6) ; ⻍
))
(define-char
+ '((=>daikanwa . 38702) ; ⻍
+ (ideographic-radical . 162) ; ⾡
+ (ideographic-strokes . 0)
+ (<-ideographic-component-forms
+ ((=ucs . #x8FB5) ; 辵
+ ))
+ (=ucs . #x8FB6) ; 辶
+ ))
+(define-char
+ '((name . "CJK RADICAL SIMPLIFIED WALK")
+ (general-category symbol other) ; Informative Category
+ (bidi-category . "ON")
+ (mirrored . nil)
+ (ideographic-radical . 162) ; ⾡
+ (ideographic-strokes . 0)
+ (total-strokes . 3)
+ (<-denotational
+ ((=ucs . #x8FB6) ; 辶
+ ))
+ (<-simplified@component
+ ((name . "CJK RADICAL WALK ONE")
+ (=ucs . #x2ECD) ; ⻍
+ ))
+ (=ucs . #x2ECC) ; ⻌
+ (=gb2312 . #x6541) ;
+ (=jis-x0213-2-2000 . #x7969) ;
+ (=big5-cdp . #x8966) ;
+ (=jef-china3 . #x67A3) ;
+ (=ucs@gb . #x8FB6) ; ⻌
+ (=ucs@jis . #xFA66) ; ⻌
+ ))
+(define-char
'((name . "CJK RADICAL WALK TWO")
- (=>ucs . #x8FB6) ; 辶
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
- (morohashi-daikanwa 38702 0 2)
(ideographic-radical . 162) ; ⾡
(ideographic-strokes . 0)
(total-strokes . 4)
+ (<-denotational
+ ((=ucs . #x8FB6) ; 辶
+ ))
+ (<-simplified@component
+ ((name . "CJK RADICAL WALK ONE")
+ (=ucs . #x2ECD) ; ⻍
+ ))
(=ucs . #x2ECE) ; ⻎
(=cns11643-4 . #x2154) ;
(=big5-cdp . #x8AF7) ;
))
(define-char
'((=>ucs* . #x8FB6) ; 辶
- (morohashi-daikanwa 38702 0 3)
- (ideographic-radical . 162) ; ⾡
- (ideographic-strokes . 0)
- (total-strokes . 3)
- (->ideographic-component-forms
+ (->identical
((name . "CJK RADICAL SIMPLIFIED WALK")
(=ucs . #x2ECC) ; ⻌
))
(=ucs . #xFA66) ; 辶
- (=gb2312 . #x6541) ;
- (=jis-x0213-2-2000 . #x7969) ;
- (=big5-cdp . #x8966) ;
- (=ucs@gb . #x8FB6) ; 辶
- ))
-(define-char
- '((=>ucs@jis . #xFA66) ; 辶
- (morohashi-daikanwa 38702 0 4)
- (ideographic-radical . 162) ; ⾡
- (ideographic-strokes . 0)
- (total-strokes . 3)
- (->identical
- ((=ucs . #xFA66) ; 辶
- ))
- (=ucs . #x8FB6) ; 辶
))
(define-char
'((ideographic-radical . 162) ; ⾡
line-breaking))
(setq attributes (delq 'script attributes))
)
+ ;; (when (and (memq '<-denotational attributes)
+ ;; (setq value (get-char-attribute char '<-denotational))
+ ;; (null (cdr value))
+ ;; (setq value (encode-char (car value) 'ucs 'defined-only)))
+ ;; (insert (format "(%-18s . #x%04X)\t; %c%s"
+ ;; '=>ucs value (decode-char 'ucs value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '<-denotational attributes)))
(dolist (name '(=>ucs =>ucs*))
(when (and (memq name attributes)
(setq value (get-char-attribute char name)))
)
(unless readable
(dolist (ignored '(composition
- ->denotational <-subsumptive ->ucs-unified))
+ ->denotational <-subsumptive ->ucs-unified
+ ->ideographic-component-forms))
(setq attributes (delq ignored attributes))))
;; (setq rest ccs-attributes)
;; (while (and rest
))
(define-char
'((name . "CJK RADICAL GRASS ONE")
+ (=>daikanwa . 30639) ; ⺿
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
- (<-radical
+ (ideographic-radical . 140) ; ⾋
+ (ideographic-strokes . 0)
+ (total-strokes . 3)
+ (<-denotational
((=ucs . #x8279) ; 艹
))
(=ucs . #x2EBE) ; ⺾
+ (=gb2312 . #x5C33) ;
+ (=jis-x0213-2-2000 . #x7576) ;
+ (=gt . 39639) ;
+ (=gt-k . 00279) ;
+ (=gt-pj-9 . #x4F47) ;
+ (=jef-china3 . #x72FA) ;
+ (=ucs@unicode . #x8279) ; ⺾
))
(define-char
'((name . "CJK RADICAL GRASS TWO")
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
- (<-radical
- ((=ucs . #xFA5E) ; 艹
+ (ideographic-radical . 140) ; ⾋
+ (ideographic-strokes . 0)
+ (total-strokes . 4)
+ (<-denotational
+ ((=ucs . #x8279) ; 艹
))
(=ucs . #x2EBF) ; ⺿
+ (=cns11643-4 . #x2153) ;
+ (=jis-x0213-2-2000 . #x7575) ;
+ (=big5-cdp . #x8AFE) ;
+ (=gt . 39643) ;
+ (=gt-k . 00671) ;
+ (=gt-pj-6 . #x4664) ;
+ (=daikanwa . 30639) ;
+ (=ucs@cns . #x8279) ; ⺿
+ (=ucs@jis . #xFA5E) ; ⺿
))
(define-char
'((name . "CJK RADICAL GRASS THREE")
+ (=>daikanwa . 30639) ; ⺿
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
- (<-radical
- ((=ucs . #xFA5D) ; 艹
+ (ideographic-radical . 140) ; ⾋
+ (ideographic-strokes . 0)
+ (total-strokes . 4)
+ (<-denotational
+ ((=ucs . #x8279) ; 艹
))
(=ucs . #x2EC0) ; ⻀
+ (=jis-x0213-2-2000 . #x7574) ;
+ (=gt . 39645) ;
+ (=gt-k . 00569) ;
+ (=gt-pj-9 . #x4E5A) ;
+ (=ucs@jis . #xFA5D) ; ⻀
))
(define-char
'((name . "CJK RADICAL TIGER")
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
- (<-radical
- ((=ucs . #xFA66) ; 辶
+ (ideographic-radical . 162) ; ⾡
+ (ideographic-strokes . 0)
+ (total-strokes . 3)
+ (<-denotational
+ ((=ucs . #x8FB6) ; 辶
+ ))
+ (<-simplified@component
+ ((name . "CJK RADICAL WALK ONE")
+ (=ucs . #x2ECD) ; ⻍
))
(=ucs . #x2ECC) ; ⻌
+ (=gb2312 . #x6541) ;
+ (=jis-x0213-2-2000 . #x7969) ;
+ (=big5-cdp . #x8966) ;
+ (=jef-china3 . #x67A3) ;
+ (=ucs@gb . #x8FB6) ; ⻌
+ (=ucs@jis . #xFA66) ; ⻌
))
(define-char
'((name . "CJK RADICAL WALK ONE")
- (=>ucs . #x8FB6) ; 辶
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
(ideographic-radical . 162) ; ⾡
(ideographic-strokes . 0)
(total-strokes . 4)
+ (<-denotational
+ ((=ucs . #x8FB6) ; 辶
+ ))
(=ucs . #x2ECD) ; ⻍
(=jis-x0212 . #x6134) ;
(=jis-x0213-2-2000 . #x796A) ;
))
(define-char
'((name . "CJK RADICAL WALK TWO")
- (=>ucs . #x8FB6) ; 辶
(general-category symbol other) ; Informative Category
(bidi-category . "ON")
(mirrored . nil)
- (morohashi-daikanwa 38702 0 2)
(ideographic-radical . 162) ; ⾡
(ideographic-strokes . 0)
(total-strokes . 4)
+ (<-denotational
+ ((=ucs . #x8FB6) ; 辶
+ ))
+ (<-simplified@component
+ ((name . "CJK RADICAL WALK ONE")
+ (=ucs . #x2ECD) ; ⻍
+ ))
(=ucs . #x2ECE) ; ⻎
(=cns11643-4 . #x2154) ;
(=big5-cdp . #x8AF7) ;
+2004-03-07 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * chartab.c (Q_component): New variable.
+ (Q_component_of): Likewise.
+ (Fput_char_attribute): Convert char-refs in value of
+ `{->|<-}ideographic-component-forms' to characters and put reverse
+ links.
+ (syms_of_chartab): Add new symbols
+ `{->|<-}ideographic-component-forms'.
+
2004-02-24 MORIOKA Tomohiko <tomo@m17n.org>
* chartab.c (Q_identical): New variable.
Lisp_Object Q_denotational_from;
Lisp_Object Q_subsumptive;
Lisp_Object Q_subsumptive_from;
+Lisp_Object Q_component;
+Lisp_Object Q_component_of;
Lisp_Object Qto_ucs;
Lisp_Object Q_ucs_unified;
Lisp_Object Qcompat;
EQ (attribute, Q_denotational_from) ||
EQ (attribute, Q_identical) ||
EQ (attribute, Q_identical_from) ||
+ EQ (attribute, Q_component) ||
+ EQ (attribute, Q_component_of) ||
!NILP (Fstring_match (build_string ("^<-simplified[^*]*$"),
Fsymbol_name (attribute),
Qnil, Qnil)) )
rev_feature = Q_denotational_from;
else if (EQ (attribute, Q_denotational_from))
rev_feature = Q_denotational;
+ else if (EQ (attribute, Q_component))
+ rev_feature = Q_component_of;
+ else if (EQ (attribute, Q_component_of))
+ rev_feature = Q_component;
else
{
Lisp_String* name = symbol_name (XSYMBOL (attribute));
defsymbol (&Q_denotational_from, "<-denotational");
defsymbol (&Q_identical, "->identical");
defsymbol (&Q_identical_from, "<-identical");
+ defsymbol (&Q_component, "->ideographic-component-forms");
+ defsymbol (&Q_component_of, "<-ideographic-component-forms");
defsymbol (&Qcomposition, "composition");
defsymbol (&Q_decomposition, "->decomposition");
defsymbol (&Qcompat, "compat");
projects / chise / xemacs-chise.git- / commitdiff