From: tomo Date: Thu, 3 Jun 2004 04:18:46 +0000 (+0000) Subject: Sync up with r21-4-14-chise-0_21-25-si-ideographic-component-forms. X-Git-Tag: r21-4-14-u2km-0_21-25-si-ideographic-component-forms X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8939a610ea2259a1b9c80099908abc6b2d0caa72;p=chise%2Fxemacs-chise.git Sync up with r21-4-14-chise-0_21-25-si-ideographic-component-forms. --- diff --git a/etc/char-data/ChangeLog b/etc/char-data/ChangeLog index fb8444e..3ff955c 100644 --- a/etc/char-data/ChangeLog +++ b/etc/char-data/ChangeLog @@ -1,3 +1,8 @@ +2004-03-09 MORIOKA Tomohiko + + * 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 * JC3-to-UCS.txt (JC3-81F6): Map to U+6EE8 instead of U+6EEB. diff --git a/etc/char-data/JC3-to-UCS.txt b/etc/char-data/JC3-to-UCS.txt index 7942a51..571cbad 100644 --- a/etc/char-data/JC3-to-UCS.txt +++ b/etc/char-data/JC3-to-UCS.txt @@ -3088,7 +3088,7 @@ JC3-66F7 U+8F44 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 @@ -3868,7 +3868,7 @@ JC3-70FC U+8FE9 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 diff --git a/lisp/utf-2000/ChangeLog b/lisp/utf-2000/ChangeLog index 9b21cbc..58c8a15 100644 --- a/lisp/utf-2000/ChangeLog +++ b/lisp/utf-2000/ChangeLog @@ -1,3 +1,63 @@ +2004-03-09 MORIOKA Tomohiko + + * Ideograph-R140-Grass.el (GT-39643): Unify 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 . + (U+FA5E): Separate all; add `->identical' for . + (GT-39639): Unify instead of U+8279; add + `<-denotational' for U+8279; add UU+8279. + (GT-39645): Unify 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 (): + Unify G0-5C33, JX2-7576, GT-39639, GT-K00279 and JC3-72FA; add + `<-denotational' for U+8279. + (): Unify C4-2153, JX2-7575, BC-8AFE, + GT-39643, GT-K00671 and M-30639; add `<-denotational' for U+8279. + (): Unify JX2-7574, GT-39645 and + GT-K00569; add `<-denotational' for U+8279. + (): Unify G0-6541, JX2-7969, BC-8966 + and JC3-67A3; add `<-denotational' for U+8FB6; add + `<-simplified@component' for . + (): Add `<-denotational' for U+8FB6. + (): Add `<-denotational' for U+8FB6; add + `<-simplified@component' for . + + * Ideograph-R162-Walk.el (): Add + `<-denotational' for U+8FB6. + (U+8FB6): Add `<-ideographic-component-forms' for U+8FB5; delete + `->identical' for U+FA66. + (BC-8966): Unify instead of U+FA66; + add `<-denotational' for U+8FB6; add `<-simplified@component' for + U+2ECD; add JU+FA66. + (): Add `<-denotational' for U+8FB6; add + `<-simplified@component' for U+2ECD. + (U+FA66): Separate all; add `->identical' for . + +2004-03-08 MORIOKA Tomohiko + + * char-db-util.el (insert-char-attributes): Don't display + `->ideographic-component-forms' when running with non-readable + mode. + +2004-03-07 MORIOKA Tomohiko + + * Ideograph-R138-Stopping.el (J0-4E49): Moved into U+826F. + (U+826F): Use `->subsumptive'. + +2004-03-06 MORIOKA Tomohiko + + * Ideograph-R093-Cow.el (BC-8BA9): Moved into U+725C. + (U+725C): Use `->subsumptive'. + 2004-03-05 MORIOKA Tomohiko * Ideograph-R168-Long.el, Ideograph-R167-Gold.el: Add missing diff --git a/lisp/utf-2000/Ideograph-R093-Cow.el b/lisp/utf-2000/Ideograph-R093-Cow.el index 311b841..61d9ca5 100644 --- a/lisp/utf-2000/Ideograph-R093-Cow.el +++ b/lisp/utf-2000/Ideograph-R093-Cow.el @@ -16,18 +16,7 @@ (=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) @@ -35,7 +24,13 @@ ((=ucs . #x725B) ; 牛 )) (=ucs . #x725C) ; 牜 - (=jis-x0212 . #x4A58) ; ø»‹¡• + (->subsumptive + ((=big5-cdp . #x8BA9) ; ý¢€ˆ®© + (=daikanwa . 19923) ; ø¸„·“ + ) + ((=jis-x0212 . #x4A58) ; ø»‹¡• + (=ucs@unicode . #x725C) ; ø»‹¡• + )) )) (define-char '((ideographic-radical . 93) ; ⽜ diff --git a/lisp/utf-2000/Ideograph-R138-Stopping.el b/lisp/utf-2000/Ideograph-R138-Stopping.el index dc6f107..9b7a48a 100644 --- a/lisp/utf-2000/Ideograph-R138-Stopping.el +++ b/lisp/utf-2000/Ideograph-R138-Stopping.el @@ -15,34 +15,34 @@ (=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) ; ø½Š¸ª diff --git a/lisp/utf-2000/Ideograph-R140-Grass.el b/lisp/utf-2000/Ideograph-R140-Grass.el index 7aa6dfd..3c12ae8 100644 --- a/lisp/utf-2000/Ideograph-R140-Grass.el +++ b/lisp/utf-2000/Ideograph-R140-Grass.el @@ -15,15 +15,17 @@ (=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) ; ý¢€ˆ«¾ @@ -31,61 +33,92 @@ (=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) ; 𦫳 diff --git a/lisp/utf-2000/Ideograph-R162-Walk.el b/lisp/utf-2000/Ideograph-R162-Walk.el index b9b6942..d87cd96 100644 --- a/lisp/utf-2000/Ideograph-R162-Walk.el +++ b/lisp/utf-2000/Ideograph-R162-Walk.el @@ -19,13 +19,15 @@ )) (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) ; ø»¦Ÿ™ @@ -36,15 +38,52 @@ (=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) ; ý¢€ˆ«· @@ -52,30 +91,11 @@ )) (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) ; ⾡ diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index a15b587..20bd5c4 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -447,6 +447,14 @@ 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))) @@ -828,7 +836,8 @@ ) (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 diff --git a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el index bc450ea..1a2d0b4 100644 --- a/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el +++ b/lisp/utf-2000/u02E00-CJK-Radical-Supplement.el @@ -694,33 +694,65 @@ )) (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") @@ -837,20 +869,35 @@ (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) ; ø»¦Ÿ™ @@ -862,14 +909,19 @@ )) (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) ; ý¢€ˆ«· diff --git a/src/ChangeLog b/src/ChangeLog index 1be0e0e..f18a788 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,13 @@ +2004-03-07 MORIOKA Tomohiko + + * 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 * chartab.c (Q_identical): New variable. diff --git a/src/chartab.c b/src/chartab.c index 2ec5694..82b3f21 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -1142,6 +1142,8 @@ Lisp_Object Q_denotational; 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; @@ -3491,6 +3493,8 @@ Store CHARACTER's ATTRIBUTE with VALUE. 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)) ) @@ -3513,6 +3517,10 @@ Store CHARACTER's ATTRIBUTE with VALUE. 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)); @@ -4576,6 +4584,8 @@ syms_of_chartab (void) 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");