From 17e8accfcaffbdd2b8d73244c161495411bbc435 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 27 Jul 2005 23:41:43 +0000 Subject: [PATCH] - Use `->canonical' instead of `->decomposition' for canonical mapping to single character. - Add some auto-generated `<-canonical' features. - Use `=>decomposition@compat' instead of `=decomposition' for compatibility decomposition mapping. - Use `=decomposition' instead of `->decomposition' for canonical decomposition mapping. --- lisp/utf-2000/u00370-Greek.el | 1028 +++++++++++++++++++++++++++-------------- 1 file changed, 675 insertions(+), 353 deletions(-) diff --git a/lisp/utf-2000/u00370-Greek.el b/lisp/utf-2000/u00370-Greek.el index 25929fc..3bd21ca 100644 --- a/lisp/utf-2000/u00370-Greek.el +++ b/lisp/utf-2000/u00370-Greek.el @@ -5,7 +5,10 @@ (bidi-category . "ON") (mirrored . nil) (iso-10646-comment . "Dexia keraia") - (->decomposition #x02B9) + (->canonical + ((name . "MODIFIER LETTER PRIME") + (=ucs . #x02B9) ; ʹ + )) (=ucs . #x0374) ; ʹ )) (define-char @@ -21,7 +24,13 @@ (general-category letter modifier) ; Informative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x0020 #x0345) + (=>decomposition@compat + ((name . "SPACE") + (=ucs . #x0020) ; + ) + ((name . "COMBINING GREEK YPOGEGRAMMENI") + (=ucs . #x0345) ; ͅ + )) (=ucs . #x037A) ; ͺ )) (define-char @@ -30,7 +39,10 @@ (bidi-category . "ON") (mirrored . nil) (iso-10646-comment . "Erotimatiko") - (->decomposition #x003B) + (->canonical + ((name . "SEMICOLON") + (=ucs . #x003B) ; ; + )) (=ucs . #x037E) ; ; )) (define-char @@ -38,7 +50,13 @@ (general-category symbol modifier) ; Informative Category (bidi-category . "ON") (mirrored . nil) - (->decomposition compat #x0020 #x0301) + (=>decomposition@compat + ((name . "SPACE") + (=ucs . #x0020) ; + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x0384) ; ΄ (greek-iso8859-7 . #xB4) ; &I-GREEK-34; )) @@ -59,7 +77,17 @@ (general-category symbol modifier) ; Informative Category (bidi-category . "ON") (mirrored . nil) - (->decomposition #x00A8 #x0301) + (<-canonical + ((name . "GREEK DIALYTIKA AND OXIA") + (=ucs . #x1FEE) ; ΅ + )) + (=decomposition + ((name . "DIAERESIS") + (=ucs . #x00A8) ; ¨ + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x0385) ; ΅ (greek-iso8859-7 . #xB5) ; &I-GREEK-35; )) @@ -80,26 +108,45 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x0391 #x0301) (->lowercase ((name . "GREEK SMALL LETTER ALPHA WITH TONOS") (=ucs . #x03AC) ; ά )) + (<-canonical + ((name . "GREEK CAPITAL LETTER ALPHA WITH OXIA") + (=ucs . #x1FBB) ; Ά + )) + (=decomposition + ((name . "GREEK CAPITAL LETTER ALPHA") + (=ucs . #x0391) ; Α + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x0386) ; Ά (greek-iso8859-7 . #xB6) ; &I-GREEK-36; )) (define-char - '((->lowercase - ((=jis-x0212 . #x2671) ; &JSP-2671; [06-81] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER ALPHA WITH TONOS") (=ucs . #x0386) ; Ά )) + (->lowercase + ((=jis-x0212 . #x2671) ; &JSP-2671; [06-81] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER ALPHA WITH TONOS") (=ucs . #x0386) ; Ά )) + (=decomposition + ((=jis-x0208 . #x2621) ; &J90-2621; [06-01] + (=gb2312 . #x2621) ; &I-G0-2621; [06-01] + (=ks-x1001 . #x2541) ; &I-K0-2541; [05-33] + (=cns11643-1 . #x2475) ; &I-C1-2475; [04-85] + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=jis-x0212 . #x2661) ; &JSP-2661; [06-65] (=ucs@jis/fw . #x0386) ; &JSP-2661; )) @@ -108,7 +155,10 @@ (general-category punctuation other) ; Informative Category (bidi-category . "ON") (mirrored . nil) - (->decomposition #x00B7) + (->canonical + ((name . "MIDDLE DOT") + (=ucs . #x00B7) ; · + )) (=ucs . #x0387) ; · )) (define-char @@ -116,26 +166,45 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x0395 #x0301) (->lowercase ((name . "GREEK SMALL LETTER EPSILON WITH TONOS") (=ucs . #x03AD) ; έ )) + (<-canonical + ((name . "GREEK CAPITAL LETTER EPSILON WITH OXIA") + (=ucs . #x1FC9) ; Έ + )) + (=decomposition + ((name . "GREEK CAPITAL LETTER EPSILON") + (=ucs . #x0395) ; Ε + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x0388) ; Έ (greek-iso8859-7 . #xB8) ; &I-GREEK-38; )) (define-char - '((->lowercase - ((=jis-x0212 . #x2672) ; &JSP-2672; [06-82] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER EPSILON WITH TONOS") (=ucs . #x0388) ; Έ )) + (->lowercase + ((=jis-x0212 . #x2672) ; &JSP-2672; [06-82] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER EPSILON WITH TONOS") (=ucs . #x0388) ; Έ )) + (=decomposition + ((=jis-x0208 . #x2625) ; &J90-2625; [06-05] + (=gb2312 . #x2625) ; &I-G0-2625; [06-05] + (=ks-x1001 . #x2545) ; &I-K0-2545; [05-37] + (=cns11643-1 . #x2479) ; &I-C1-2479; [04-89] + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=jis-x0212 . #x2662) ; &JSP-2662; [06-66] (=ucs@jis/fw . #x0388) ; &JSP-2662; )) @@ -144,26 +213,45 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x0397 #x0301) (->lowercase ((name . "GREEK SMALL LETTER ETA WITH TONOS") (=ucs . #x03AE) ; ή )) + (<-canonical + ((name . "GREEK CAPITAL LETTER ETA WITH OXIA") + (=ucs . #x1FCB) ; Ή + )) + (=decomposition + ((name . "GREEK CAPITAL LETTER ETA") + (=ucs . #x0397) ; Η + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x0389) ; Ή (greek-iso8859-7 . #xB9) ; &I-GREEK-39; )) (define-char - '((->lowercase - ((=jis-x0212 . #x2673) ; &JSP-2673; [06-83] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER ETA WITH TONOS") (=ucs . #x0389) ; Ή )) + (->lowercase + ((=jis-x0212 . #x2673) ; &JSP-2673; [06-83] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER ETA WITH TONOS") (=ucs . #x0389) ; Ή )) + (=decomposition + ((=jis-x0208 . #x2627) ; &J90-2627; [06-07] + (=gb2312 . #x2627) ; &I-G0-2627; [06-07] + (=ks-x1001 . #x2547) ; &I-K0-2547; [05-39] + (=cns11643-1 . #x247B) ; &I-C1-247B; [04-91] + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=jis-x0212 . #x2663) ; &JSP-2663; [06-67] (=ucs@jis/fw . #x0389) ; &JSP-2663; )) @@ -172,26 +260,45 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x0399 #x0301) (->lowercase ((name . "GREEK SMALL LETTER IOTA WITH TONOS") (=ucs . #x03AF) ; ί )) + (<-canonical + ((name . "GREEK CAPITAL LETTER IOTA WITH OXIA") + (=ucs . #x1FDB) ; Ί + )) + (=decomposition + ((name . "GREEK CAPITAL LETTER IOTA") + (=ucs . #x0399) ; Ι + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x038A) ; Ί (greek-iso8859-7 . #xBA) ; &I-GREEK-3A; )) (define-char - '((->lowercase - ((=jis-x0212 . #x2674) ; &JSP-2674; [06-84] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER IOTA WITH TONOS") (=ucs . #x038A) ; Ί )) + (->lowercase + ((=jis-x0212 . #x2674) ; &JSP-2674; [06-84] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER IOTA WITH TONOS") (=ucs . #x038A) ; Ί )) + (=decomposition + ((=jis-x0208 . #x2629) ; &J90-2629; [06-09] + (=gb2312 . #x2629) ; &I-G0-2629; [06-09] + (=ks-x1001 . #x2549) ; &I-K0-2549; [05-41] + (=cns11643-1 . #x247D) ; &I-C1-247D; [04-93] + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=jis-x0212 . #x2664) ; &JSP-2664; [06-68] (=ucs@jis/fw . #x038A) ; &JSP-2664; )) @@ -200,26 +307,45 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x039F #x0301) (->lowercase ((name . "GREEK SMALL LETTER OMICRON WITH TONOS") (=ucs . #x03CC) ; ό )) + (<-canonical + ((name . "GREEK CAPITAL LETTER OMICRON WITH OXIA") + (=ucs . #x1FF9) ; Ό + )) + (=decomposition + ((name . "GREEK CAPITAL LETTER OMICRON") + (=ucs . #x039F) ; Ο + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x038C) ; Ό (greek-iso8859-7 . #xBC) ; &I-GREEK-3C; )) (define-char - '((->lowercase - ((=jis-x0212 . #x2677) ; &JSP-2677; [06-87] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER OMICRON WITH TONOS") (=ucs . #x038C) ; Ό )) + (->lowercase + ((=jis-x0212 . #x2677) ; &JSP-2677; [06-87] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER OMICRON WITH TONOS") (=ucs . #x038C) ; Ό )) + (=decomposition + ((=jis-x0208 . #x262F) ; &J90-262F; [06-15] + (=gb2312 . #x262F) ; &I-G0-262F; [06-15] + (=ks-x1001 . #x254F) ; &I-K0-254F; [05-47] + (=cns11643-1 . #x2525) ; &I-C1-2525; [05-05] + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=jis-x0212 . #x2667) ; &JSP-2667; [06-71] (=ucs@jis/fw . #x038C) ; &JSP-2667; )) @@ -228,26 +354,45 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03A5 #x0301) (->lowercase ((name . "GREEK SMALL LETTER UPSILON WITH TONOS") (=ucs . #x03CD) ; ύ )) + (<-canonical + ((name . "GREEK CAPITAL LETTER UPSILON WITH OXIA") + (=ucs . #x1FEB) ; Ύ + )) + (=decomposition + ((name . "GREEK CAPITAL LETTER UPSILON") + (=ucs . #x03A5) ; Υ + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x038E) ; Ύ (greek-iso8859-7 . #xBE) ; &I-GREEK-3E; )) (define-char - '((->lowercase - ((=jis-x0212 . #x2679) ; &JSP-2679; [06-89] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER UPSILON WITH TONOS") (=ucs . #x038E) ; Ύ )) + (->lowercase + ((=jis-x0212 . #x2679) ; &JSP-2679; [06-89] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER UPSILON WITH TONOS") (=ucs . #x038E) ; Ύ )) + (=decomposition + ((=jis-x0208 . #x2634) ; &J90-2634; [06-20] + (=gb2312 . #x2634) ; &I-G0-2634; [06-20] + (=ks-x1001 . #x2554) ; &I-K0-2554; [05-52] + (=cns11643-1 . #x252A) ; &I-C1-252A; [05-10] + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=jis-x0212 . #x2669) ; &JSP-2669; [06-73] (=ucs@jis/fw . #x038E) ; &JSP-2669; )) @@ -256,26 +401,45 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03A9 #x0301) (->lowercase ((name . "GREEK SMALL LETTER OMEGA WITH TONOS") (=ucs . #x03CE) ; ώ )) + (<-canonical + ((name . "GREEK CAPITAL LETTER OMEGA WITH OXIA") + (=ucs . #x1FFB) ; Ώ + )) + (=decomposition + ((name . "GREEK CAPITAL LETTER OMEGA") + (=ucs . #x03A9) ; Ω + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x038F) ; Ώ (greek-iso8859-7 . #xBF) ; &I-GREEK-3F; )) (define-char - '((->lowercase - ((=jis-x0212 . #x267C) ; &JSP-267C; [06-92] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER OMEGA WITH TONOS") (=ucs . #x038F) ; Ώ )) + (->lowercase + ((=jis-x0212 . #x267C) ; &JSP-267C; [06-92] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER OMEGA WITH TONOS") (=ucs . #x038F) ; Ώ )) + (=decomposition + ((=jis-x0208 . #x2638) ; &J90-2638; [06-24] + (=gb2312 . #x2638) ; &I-G0-2638; [06-24] + (=ks-x1001 . #x2558) ; &I-K0-2558; [05-56] + (=cns11643-1 . #x252E) ; &I-C1-252E; [05-14] + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=jis-x0212 . #x266C) ; &JSP-266C; [06-76] (=ucs@jis/fw . #x038F) ; &JSP-266C; )) @@ -284,7 +448,17 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03CA #x0301) + (<-canonical + ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA") + (=ucs . #x1FD3) ; ΐ + )) + (=decomposition + ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA") + (=ucs . #x03CA) ; ϊ + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x0390) ; ΐ (greek-iso8859-7 . #xC0) ; &I-GREEK-40; )) @@ -313,16 +487,16 @@ (greek-iso8859-7 . #xC1) ; &I-GREEK-41; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER ALPHA") + (=ucs . #x0391) ; Α + )) + (->lowercase ((=jis-x0208 . #x2641) ; &J90-2641; [06-33] (=gb2312 . #x2641) ; &I-G0-2641; [06-33] (=ks-x1001 . #x2561) ; &I-K0-2561; [05-65] (=cns11643-1 . #x252F) ; &I-C1-252F; [05-15] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER ALPHA") - (=ucs . #x0391) ; Α - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER ALPHA") (=ucs . #x0391) ; Α @@ -348,16 +522,16 @@ (greek-iso8859-7 . #xC2) ; &I-GREEK-42; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER BETA") + (=ucs . #x0392) ; Β + )) + (->lowercase ((=jis-x0208 . #x2642) ; &J90-2642; [06-34] (=gb2312 . #x2642) ; &I-G0-2642; [06-34] (=ks-x1001 . #x2562) ; &I-K0-2562; [05-66] (=cns11643-1 . #x2530) ; &I-C1-2530; [05-16] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER BETA") - (=ucs . #x0392) ; Β - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER BETA") (=ucs . #x0392) ; Β @@ -383,16 +557,16 @@ (greek-iso8859-7 . #xC3) ; &I-GREEK-43; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER GAMMA") + (=ucs . #x0393) ; Γ + )) + (->lowercase ((=jis-x0208 . #x2643) ; &J90-2643; [06-35] (=gb2312 . #x2643) ; &I-G0-2643; [06-35] (=ks-x1001 . #x2563) ; &I-K0-2563; [05-67] (=cns11643-1 . #x2531) ; &I-C1-2531; [05-17] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER GAMMA") - (=ucs . #x0393) ; Γ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER GAMMA") (=ucs . #x0393) ; Γ @@ -418,16 +592,16 @@ (greek-iso8859-7 . #xC4) ; &I-GREEK-44; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER DELTA") + (=ucs . #x0394) ; Δ + )) + (->lowercase ((=jis-x0208 . #x2644) ; &J90-2644; [06-36] (=gb2312 . #x2644) ; &I-G0-2644; [06-36] (=ks-x1001 . #x2564) ; &I-K0-2564; [05-68] (=cns11643-1 . #x2532) ; &I-C1-2532; [05-18] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER DELTA") - (=ucs . #x0394) ; Δ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER DELTA") (=ucs . #x0394) ; Δ @@ -453,16 +627,16 @@ (greek-iso8859-7 . #xC5) ; &I-GREEK-45; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER EPSILON") + (=ucs . #x0395) ; Ε + )) + (->lowercase ((=jis-x0208 . #x2645) ; &J90-2645; [06-37] (=gb2312 . #x2645) ; &I-G0-2645; [06-37] (=ks-x1001 . #x2565) ; &I-K0-2565; [05-69] (=cns11643-1 . #x2533) ; &I-C1-2533; [05-19] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER EPSILON") - (=ucs . #x0395) ; Ε - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER EPSILON") (=ucs . #x0395) ; Ε @@ -488,16 +662,16 @@ (greek-iso8859-7 . #xC6) ; &I-GREEK-46; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER ZETA") + (=ucs . #x0396) ; Ζ + )) + (->lowercase ((=jis-x0208 . #x2646) ; &J90-2646; [06-38] (=gb2312 . #x2646) ; &I-G0-2646; [06-38] (=ks-x1001 . #x2566) ; &I-K0-2566; [05-70] (=cns11643-1 . #x2534) ; &I-C1-2534; [05-20] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER ZETA") - (=ucs . #x0396) ; Ζ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER ZETA") (=ucs . #x0396) ; Ζ @@ -523,16 +697,16 @@ (greek-iso8859-7 . #xC7) ; &I-GREEK-47; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER ETA") + (=ucs . #x0397) ; Η + )) + (->lowercase ((=jis-x0208 . #x2647) ; &J90-2647; [06-39] (=gb2312 . #x2647) ; &I-G0-2647; [06-39] (=ks-x1001 . #x2567) ; &I-K0-2567; [05-71] (=cns11643-1 . #x2535) ; &I-C1-2535; [05-21] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER ETA") - (=ucs . #x0397) ; Η - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER ETA") (=ucs . #x0397) ; Η @@ -558,16 +732,16 @@ (greek-iso8859-7 . #xC8) ; &I-GREEK-48; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER THETA") + (=ucs . #x0398) ; Θ + )) + (->lowercase ((=jis-x0208 . #x2648) ; &J90-2648; [06-40] (=gb2312 . #x2648) ; &I-G0-2648; [06-40] (=ks-x1001 . #x2568) ; &I-K0-2568; [05-72] (=cns11643-1 . #x2536) ; &I-C1-2536; [05-22] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER THETA") - (=ucs . #x0398) ; Θ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER THETA") (=ucs . #x0398) ; Θ @@ -593,16 +767,16 @@ (greek-iso8859-7 . #xC9) ; &I-GREEK-49; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER IOTA") + (=ucs . #x0399) ; Ι + )) + (->lowercase ((=jis-x0208 . #x2649) ; &J90-2649; [06-41] (=gb2312 . #x2649) ; &I-G0-2649; [06-41] (=ks-x1001 . #x2569) ; &I-K0-2569; [05-73] (=cns11643-1 . #x2537) ; &I-C1-2537; [05-23] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER IOTA") - (=ucs . #x0399) ; Ι - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER IOTA") (=ucs . #x0399) ; Ι @@ -628,16 +802,16 @@ (greek-iso8859-7 . #xCA) ; &I-GREEK-4A; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER KAPPA") + (=ucs . #x039A) ; Κ + )) + (->lowercase ((=jis-x0208 . #x264A) ; &J90-264A; [06-42] (=gb2312 . #x264A) ; &I-G0-264A; [06-42] (=ks-x1001 . #x256A) ; &I-K0-256A; [05-74] (=cns11643-1 . #x2538) ; &I-C1-2538; [05-24] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER KAPPA") - (=ucs . #x039A) ; Κ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER KAPPA") (=ucs . #x039A) ; Κ @@ -663,16 +837,16 @@ (greek-iso8859-7 . #xCB) ; &I-GREEK-4B; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER LAMDA") + (=ucs . #x039B) ; Λ + )) + (->lowercase ((=jis-x0208 . #x264B) ; &J90-264B; [06-43] (=gb2312 . #x264B) ; &I-G0-264B; [06-43] (=ks-x1001 . #x256B) ; &I-K0-256B; [05-75] (=cns11643-1 . #x2539) ; &I-C1-2539; [05-25] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER LAMDA") - (=ucs . #x039B) ; Λ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER LAMDA") (=ucs . #x039B) ; Λ @@ -698,16 +872,16 @@ (greek-iso8859-7 . #xCC) ; &I-GREEK-4C; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER MU") + (=ucs . #x039C) ; Μ + )) + (->lowercase ((=jis-x0208 . #x264C) ; &J90-264C; [06-44] (=gb2312 . #x264C) ; &I-G0-264C; [06-44] (=ks-x1001 . #x256C) ; &I-K0-256C; [05-76] (=cns11643-1 . #x253A) ; &I-C1-253A; [05-26] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER MU") - (=ucs . #x039C) ; Μ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER MU") (=ucs . #x039C) ; Μ @@ -733,16 +907,16 @@ (greek-iso8859-7 . #xCD) ; &I-GREEK-4D; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER NU") + (=ucs . #x039D) ; Ν + )) + (->lowercase ((=jis-x0208 . #x264D) ; &J90-264D; [06-45] (=gb2312 . #x264D) ; &I-G0-264D; [06-45] (=ks-x1001 . #x256D) ; &I-K0-256D; [05-77] (=cns11643-1 . #x253B) ; &I-C1-253B; [05-27] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER NU") - (=ucs . #x039D) ; Ν - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER NU") (=ucs . #x039D) ; Ν @@ -768,16 +942,16 @@ (greek-iso8859-7 . #xCE) ; &I-GREEK-4E; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER XI") + (=ucs . #x039E) ; Ξ + )) + (->lowercase ((=jis-x0208 . #x264E) ; &J90-264E; [06-46] (=gb2312 . #x264E) ; &I-G0-264E; [06-46] (=ks-x1001 . #x256E) ; &I-K0-256E; [05-78] (=cns11643-1 . #x253C) ; &I-C1-253C; [05-28] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER XI") - (=ucs . #x039E) ; Ξ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER XI") (=ucs . #x039E) ; Ξ @@ -803,16 +977,16 @@ (greek-iso8859-7 . #xCF) ; &I-GREEK-4F; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER OMICRON") + (=ucs . #x039F) ; Ο + )) + (->lowercase ((=jis-x0208 . #x264F) ; &J90-264F; [06-47] (=gb2312 . #x264F) ; &I-G0-264F; [06-47] (=ks-x1001 . #x256F) ; &I-K0-256F; [05-79] (=cns11643-1 . #x253D) ; &I-C1-253D; [05-29] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER OMICRON") - (=ucs . #x039F) ; Ο - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER OMICRON") (=ucs . #x039F) ; Ο @@ -838,16 +1012,16 @@ (greek-iso8859-7 . #xD0) ; &I-GREEK-50; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER PI") + (=ucs . #x03A0) ; Π + )) + (->lowercase ((=jis-x0208 . #x2650) ; &J90-2650; [06-48] (=gb2312 . #x2650) ; &I-G0-2650; [06-48] (=ks-x1001 . #x2570) ; &I-K0-2570; [05-80] (=cns11643-1 . #x253E) ; &I-C1-253E; [05-30] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER PI") - (=ucs . #x03A0) ; Π - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER PI") (=ucs . #x03A0) ; Π @@ -873,16 +1047,16 @@ (greek-iso8859-7 . #xD1) ; &I-GREEK-51; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER RHO") + (=ucs . #x03A1) ; Ρ + )) + (->lowercase ((=jis-x0208 . #x2651) ; &J90-2651; [06-49] (=gb2312 . #x2651) ; &I-G0-2651; [06-49] (=ks-x1001 . #x2571) ; &I-K0-2571; [05-81] (=cns11643-1 . #x253F) ; &I-C1-253F; [05-31] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER RHO") - (=ucs . #x03A1) ; Ρ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER RHO") (=ucs . #x03A1) ; Ρ @@ -908,16 +1082,16 @@ (greek-iso8859-7 . #xD3) ; &I-GREEK-53; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER SIGMA") + (=ucs . #x03A3) ; Σ + )) + (->lowercase ((=jis-x0208 . #x2652) ; &J90-2652; [06-50] (=gb2312 . #x2652) ; &I-G0-2652; [06-50] (=ks-x1001 . #x2572) ; &I-K0-2572; [05-82] (=cns11643-1 . #x2540) ; &I-C1-2540; [05-32] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER SIGMA") - (=ucs . #x03A3) ; Σ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER SIGMA") (=ucs . #x03A3) ; Σ @@ -943,16 +1117,16 @@ (greek-iso8859-7 . #xD4) ; &I-GREEK-54; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER TAU") + (=ucs . #x03A4) ; Τ + )) + (->lowercase ((=jis-x0208 . #x2653) ; &J90-2653; [06-51] (=gb2312 . #x2653) ; &I-G0-2653; [06-51] (=ks-x1001 . #x2573) ; &I-K0-2573; [05-83] (=cns11643-1 . #x2541) ; &I-C1-2541; [05-33] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER TAU") - (=ucs . #x03A4) ; Τ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER TAU") (=ucs . #x03A4) ; Τ @@ -978,16 +1152,16 @@ (greek-iso8859-7 . #xD5) ; &I-GREEK-55; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER UPSILON") + (=ucs . #x03A5) ; Υ + )) + (->lowercase ((=jis-x0208 . #x2654) ; &J90-2654; [06-52] (=gb2312 . #x2654) ; &I-G0-2654; [06-52] (=ks-x1001 . #x2574) ; &I-K0-2574; [05-84] (=cns11643-1 . #x2542) ; &I-C1-2542; [05-34] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER UPSILON") - (=ucs . #x03A5) ; Υ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER UPSILON") (=ucs . #x03A5) ; Υ @@ -1013,16 +1187,16 @@ (greek-iso8859-7 . #xD6) ; &I-GREEK-56; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER PHI") + (=ucs . #x03A6) ; Φ + )) + (->lowercase ((=jis-x0208 . #x2655) ; &J90-2655; [06-53] (=gb2312 . #x2655) ; &I-G0-2655; [06-53] (=ks-x1001 . #x2575) ; &I-K0-2575; [05-85] (=cns11643-1 . #x2543) ; &I-C1-2543; [05-35] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER PHI") - (=ucs . #x03A6) ; Φ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER PHI") (=ucs . #x03A6) ; Φ @@ -1048,16 +1222,16 @@ (greek-iso8859-7 . #xD7) ; &I-GREEK-57; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER CHI") + (=ucs . #x03A7) ; Χ + )) + (->lowercase ((=jis-x0208 . #x2656) ; &J90-2656; [06-54] (=gb2312 . #x2656) ; &I-G0-2656; [06-54] (=ks-x1001 . #x2576) ; &I-K0-2576; [05-86] (=cns11643-1 . #x2544) ; &I-C1-2544; [05-36] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER CHI") - (=ucs . #x03A7) ; Χ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER CHI") (=ucs . #x03A7) ; Χ @@ -1083,16 +1257,16 @@ (greek-iso8859-7 . #xD8) ; &I-GREEK-58; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER PSI") + (=ucs . #x03A8) ; Ψ + )) + (->lowercase ((=jis-x0208 . #x2657) ; &J90-2657; [06-55] (=gb2312 . #x2657) ; &I-G0-2657; [06-55] (=ks-x1001 . #x2577) ; &I-K0-2577; [05-87] (=cns11643-1 . #x2545) ; &I-C1-2545; [05-37] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER PSI") - (=ucs . #x03A8) ; Ψ - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER PSI") (=ucs . #x03A8) ; Ψ @@ -1114,20 +1288,24 @@ ((name . "GREEK SMALL LETTER OMEGA") (=ucs . #x03C9) ; ω )) + (<-canonical + ((name . "OHM SIGN") + (=ucs . #x2126) ; Ω + )) (=ucs . #x03A9) ; Ω (greek-iso8859-7 . #xD9) ; &I-GREEK-59; )) (define-char - '((->lowercase + '((<-denotational + ((name . "GREEK CAPITAL LETTER OMEGA") + (=ucs . #x03A9) ; Ω + )) + (->lowercase ((=jis-x0208 . #x2658) ; &J90-2658; [06-56] (=gb2312 . #x2658) ; &I-G0-2658; [06-56] (=ks-x1001 . #x2578) ; &I-K0-2578; [05-88] (=cns11643-1 . #x2546) ; &I-C1-2546; [05-38] )) - (<-denotational - ((name . "GREEK CAPITAL LETTER OMEGA") - (=ucs . #x03A9) ; Ω - )) (<-fullwidth ((name . "GREEK CAPITAL LETTER OMEGA") (=ucs . #x03A9) ; Ω @@ -1145,22 +1323,28 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x0399 #x0308) (->lowercase ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA") (=ucs . #x03CA) ; ϊ )) + (=decomposition + ((name . "GREEK CAPITAL LETTER IOTA") + (=ucs . #x0399) ; Ι + ) + ((name . "COMBINING DIAERESIS") + (=ucs . #x0308) ; ̈ + )) (=ucs . #x03AA) ; Ϊ (greek-iso8859-7 . #xDA) ; &I-GREEK-5A; )) (define-char - '((->lowercase - ((=jis-x0212 . #x2675) ; &JSP-2675; [06-85] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA") (=ucs . #x03AA) ; Ϊ )) + (->lowercase + ((=jis-x0212 . #x2675) ; &JSP-2675; [06-85] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA") (=ucs . #x03AA) ; Ϊ @@ -1173,22 +1357,28 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03A5 #x0308) (->lowercase ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA") (=ucs . #x03CB) ; ϋ )) + (=decomposition + ((name . "GREEK CAPITAL LETTER UPSILON") + (=ucs . #x03A5) ; Υ + ) + ((name . "COMBINING DIAERESIS") + (=ucs . #x0308) ; ̈ + )) (=ucs . #x03AB) ; Ϋ (greek-iso8859-7 . #xDB) ; &I-GREEK-5B; )) (define-char - '((->lowercase - ((=jis-x0212 . #x267A) ; &JSP-267A; [06-90] - )) - (<-denotational + '((<-denotational ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA") (=ucs . #x03AB) ; Ϋ )) + (->lowercase + ((=jis-x0212 . #x267A) ; &JSP-267A; [06-90] + )) (<-fullwidth ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA") (=ucs . #x03AB) ; Ϋ @@ -1201,22 +1391,32 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03B1 #x0301) (->uppercase ((name . "GREEK CAPITAL LETTER ALPHA WITH TONOS") (=ucs . #x0386) ; Ά )) + (<-canonical + ((name . "GREEK SMALL LETTER ALPHA WITH OXIA") + (=ucs . #x1F71) ; ά + )) + (=decomposition + ((name . "GREEK SMALL LETTER ALPHA") + (=ucs . #x03B1) ; α + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03AC) ; ά (greek-iso8859-7 . #xDC) ; &I-GREEK-5C; )) (define-char - '((->uppercase - ((=jis-x0212 . #x2661) ; &JSP-2661; [06-65] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER ALPHA WITH TONOS") (=ucs . #x03AC) ; ά )) + (->uppercase + ((=jis-x0212 . #x2661) ; &JSP-2661; [06-65] + )) (<-fullwidth ((name . "GREEK SMALL LETTER ALPHA WITH TONOS") (=ucs . #x03AC) ; ά @@ -1229,22 +1429,32 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03B5 #x0301) (->uppercase ((name . "GREEK CAPITAL LETTER EPSILON WITH TONOS") (=ucs . #x0388) ; Έ )) + (<-canonical + ((name . "GREEK SMALL LETTER EPSILON WITH OXIA") + (=ucs . #x1F73) ; έ + )) + (=decomposition + ((name . "GREEK SMALL LETTER EPSILON") + (=ucs . #x03B5) ; ε + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03AD) ; έ (greek-iso8859-7 . #xDD) ; &I-GREEK-5D; )) (define-char - '((->uppercase - ((=jis-x0212 . #x2662) ; &JSP-2662; [06-66] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER EPSILON WITH TONOS") (=ucs . #x03AD) ; έ )) + (->uppercase + ((=jis-x0212 . #x2662) ; &JSP-2662; [06-66] + )) (<-fullwidth ((name . "GREEK SMALL LETTER EPSILON WITH TONOS") (=ucs . #x03AD) ; έ @@ -1257,22 +1467,32 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03B7 #x0301) (->uppercase ((name . "GREEK CAPITAL LETTER ETA WITH TONOS") (=ucs . #x0389) ; Ή )) + (<-canonical + ((name . "GREEK SMALL LETTER ETA WITH OXIA") + (=ucs . #x1F75) ; ή + )) + (=decomposition + ((name . "GREEK SMALL LETTER ETA") + (=ucs . #x03B7) ; η + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03AE) ; ή (greek-iso8859-7 . #xDE) ; &I-GREEK-5E; )) (define-char - '((->uppercase - ((=jis-x0212 . #x2663) ; &JSP-2663; [06-67] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER ETA WITH TONOS") (=ucs . #x03AE) ; ή )) + (->uppercase + ((=jis-x0212 . #x2663) ; &JSP-2663; [06-67] + )) (<-fullwidth ((name . "GREEK SMALL LETTER ETA WITH TONOS") (=ucs . #x03AE) ; ή @@ -1285,22 +1505,32 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03B9 #x0301) (->uppercase ((name . "GREEK CAPITAL LETTER IOTA WITH TONOS") (=ucs . #x038A) ; Ί )) + (<-canonical + ((name . "GREEK SMALL LETTER IOTA WITH OXIA") + (=ucs . #x1F77) ; ί + )) + (=decomposition + ((name . "GREEK SMALL LETTER IOTA") + (=ucs . #x03B9) ; ι + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03AF) ; ί (greek-iso8859-7 . #xDF) ; &I-GREEK-5F; )) (define-char - '((->uppercase - ((=jis-x0212 . #x2664) ; &JSP-2664; [06-68] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER IOTA WITH TONOS") (=ucs . #x03AF) ; ί )) + (->uppercase + ((=jis-x0212 . #x2664) ; &JSP-2664; [06-68] + )) (<-fullwidth ((name . "GREEK SMALL LETTER IOTA WITH TONOS") (=ucs . #x03AF) ; ί @@ -1313,7 +1543,17 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03CB #x0301) + (<-canonical + ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA") + (=ucs . #x1FE3) ; ΰ + )) + (=decomposition + ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA") + (=ucs . #x03CB) ; ϋ + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03B0) ; ΰ (greek-iso8859-7 . #xE0) ; &I-GREEK-60; )) @@ -1342,16 +1582,16 @@ (greek-iso8859-7 . #xE1) ; &I-GREEK-61; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER ALPHA") + (=ucs . #x03B1) ; α + )) + (->uppercase ((=jis-x0208 . #x2621) ; &J90-2621; [06-01] (=gb2312 . #x2621) ; &I-G0-2621; [06-01] (=ks-x1001 . #x2541) ; &I-K0-2541; [05-33] (=cns11643-1 . #x2475) ; &I-C1-2475; [04-85] )) - (<-denotational - ((name . "GREEK SMALL LETTER ALPHA") - (=ucs . #x03B1) ; α - )) (<-fullwidth ((name . "GREEK SMALL LETTER ALPHA") (=ucs . #x03B1) ; α @@ -1377,16 +1617,16 @@ (greek-iso8859-7 . #xE2) ; &I-GREEK-62; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER BETA") + (=ucs . #x03B2) ; β + )) + (->uppercase ((=jis-x0208 . #x2622) ; &J90-2622; [06-02] (=gb2312 . #x2622) ; &I-G0-2622; [06-02] (=ks-x1001 . #x2542) ; &I-K0-2542; [05-34] (=cns11643-1 . #x2476) ; &I-C1-2476; [04-86] )) - (<-denotational - ((name . "GREEK SMALL LETTER BETA") - (=ucs . #x03B2) ; β - )) (<-fullwidth ((name . "GREEK SMALL LETTER BETA") (=ucs . #x03B2) ; β @@ -1412,16 +1652,16 @@ (greek-iso8859-7 . #xE3) ; &I-GREEK-63; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER GAMMA") + (=ucs . #x03B3) ; γ + )) + (->uppercase ((=jis-x0208 . #x2623) ; &J90-2623; [06-03] (=gb2312 . #x2623) ; &I-G0-2623; [06-03] (=ks-x1001 . #x2543) ; &I-K0-2543; [05-35] (=cns11643-1 . #x2477) ; &I-C1-2477; [04-87] )) - (<-denotational - ((name . "GREEK SMALL LETTER GAMMA") - (=ucs . #x03B3) ; γ - )) (<-fullwidth ((name . "GREEK SMALL LETTER GAMMA") (=ucs . #x03B3) ; γ @@ -1447,16 +1687,16 @@ (greek-iso8859-7 . #xE4) ; &I-GREEK-64; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER DELTA") + (=ucs . #x03B4) ; δ + )) + (->uppercase ((=jis-x0208 . #x2624) ; &J90-2624; [06-04] (=gb2312 . #x2624) ; &I-G0-2624; [06-04] (=ks-x1001 . #x2544) ; &I-K0-2544; [05-36] (=cns11643-1 . #x2478) ; &I-C1-2478; [04-88] )) - (<-denotational - ((name . "GREEK SMALL LETTER DELTA") - (=ucs . #x03B4) ; δ - )) (<-fullwidth ((name . "GREEK SMALL LETTER DELTA") (=ucs . #x03B4) ; δ @@ -1482,16 +1722,16 @@ (greek-iso8859-7 . #xE5) ; &I-GREEK-65; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER EPSILON") + (=ucs . #x03B5) ; ε + )) + (->uppercase ((=jis-x0208 . #x2625) ; &J90-2625; [06-05] (=gb2312 . #x2625) ; &I-G0-2625; [06-05] (=ks-x1001 . #x2545) ; &I-K0-2545; [05-37] (=cns11643-1 . #x2479) ; &I-C1-2479; [04-89] )) - (<-denotational - ((name . "GREEK SMALL LETTER EPSILON") - (=ucs . #x03B5) ; ε - )) (<-fullwidth ((name . "GREEK SMALL LETTER EPSILON") (=ucs . #x03B5) ; ε @@ -1517,16 +1757,16 @@ (greek-iso8859-7 . #xE6) ; &I-GREEK-66; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER ZETA") + (=ucs . #x03B6) ; ζ + )) + (->uppercase ((=jis-x0208 . #x2626) ; &J90-2626; [06-06] (=gb2312 . #x2626) ; &I-G0-2626; [06-06] (=ks-x1001 . #x2546) ; &I-K0-2546; [05-38] (=cns11643-1 . #x247A) ; &I-C1-247A; [04-90] )) - (<-denotational - ((name . "GREEK SMALL LETTER ZETA") - (=ucs . #x03B6) ; ζ - )) (<-fullwidth ((name . "GREEK SMALL LETTER ZETA") (=ucs . #x03B6) ; ζ @@ -1552,16 +1792,16 @@ (greek-iso8859-7 . #xE7) ; &I-GREEK-67; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER ETA") + (=ucs . #x03B7) ; η + )) + (->uppercase ((=jis-x0208 . #x2627) ; &J90-2627; [06-07] (=gb2312 . #x2627) ; &I-G0-2627; [06-07] (=ks-x1001 . #x2547) ; &I-K0-2547; [05-39] (=cns11643-1 . #x247B) ; &I-C1-247B; [04-91] )) - (<-denotational - ((name . "GREEK SMALL LETTER ETA") - (=ucs . #x03B7) ; η - )) (<-fullwidth ((name . "GREEK SMALL LETTER ETA") (=ucs . #x03B7) ; η @@ -1588,16 +1828,16 @@ (ipa . #xC8) ; &I-MULE-IPA-48; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER THETA") + (=ucs . #x03B8) ; θ + )) + (->uppercase ((=jis-x0208 . #x2628) ; &J90-2628; [06-08] (=gb2312 . #x2628) ; &I-G0-2628; [06-08] (=ks-x1001 . #x2548) ; &I-K0-2548; [05-40] (=cns11643-1 . #x247C) ; &I-C1-247C; [04-92] )) - (<-denotational - ((name . "GREEK SMALL LETTER THETA") - (=ucs . #x03B8) ; θ - )) (<-fullwidth ((name . "GREEK SMALL LETTER THETA") (=ucs . #x03B8) ; θ @@ -1619,20 +1859,24 @@ ((name . "GREEK CAPITAL LETTER IOTA") (=ucs . #x0399) ; Ι )) + (<-canonical + ((name . "GREEK PROSGEGRAMMENI") + (=ucs . #x1FBE) ; ι + )) (=ucs . #x03B9) ; ι (greek-iso8859-7 . #xE9) ; &I-GREEK-69; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER IOTA") + (=ucs . #x03B9) ; ι + )) + (->uppercase ((=jis-x0208 . #x2629) ; &J90-2629; [06-09] (=gb2312 . #x2629) ; &I-G0-2629; [06-09] (=ks-x1001 . #x2549) ; &I-K0-2549; [05-41] (=cns11643-1 . #x247D) ; &I-C1-247D; [04-93] )) - (<-denotational - ((name . "GREEK SMALL LETTER IOTA") - (=ucs . #x03B9) ; ι - )) (<-fullwidth ((name . "GREEK SMALL LETTER IOTA") (=ucs . #x03B9) ; ι @@ -1658,16 +1902,16 @@ (greek-iso8859-7 . #xEA) ; &I-GREEK-6A; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER KAPPA") + (=ucs . #x03BA) ; κ + )) + (->uppercase ((=jis-x0208 . #x262A) ; &J90-262A; [06-10] (=gb2312 . #x262A) ; &I-G0-262A; [06-10] (=ks-x1001 . #x254A) ; &I-K0-254A; [05-42] (=cns11643-1 . #x247E) ; &I-C1-247E; [04-94] )) - (<-denotational - ((name . "GREEK SMALL LETTER KAPPA") - (=ucs . #x03BA) ; κ - )) (<-fullwidth ((name . "GREEK SMALL LETTER KAPPA") (=ucs . #x03BA) ; κ @@ -1693,16 +1937,16 @@ (greek-iso8859-7 . #xEB) ; &I-GREEK-6B; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER LAMDA") + (=ucs . #x03BB) ; λ + )) + (->uppercase ((=jis-x0208 . #x262B) ; &J90-262B; [06-11] (=gb2312 . #x262B) ; &I-G0-262B; [06-11] (=ks-x1001 . #x254B) ; &I-K0-254B; [05-43] (=cns11643-1 . #x2521) ; &I-C1-2521; [05-01] )) - (<-denotational - ((name . "GREEK SMALL LETTER LAMDA") - (=ucs . #x03BB) ; λ - )) (<-fullwidth ((name . "GREEK SMALL LETTER LAMDA") (=ucs . #x03BB) ; λ @@ -1728,16 +1972,16 @@ (greek-iso8859-7 . #xEC) ; &I-GREEK-6C; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER MU") + (=ucs . #x03BC) ; μ + )) + (->uppercase ((=jis-x0208 . #x262C) ; &J90-262C; [06-12] (=gb2312 . #x262C) ; &I-G0-262C; [06-12] (=ks-x1001 . #x254C) ; &I-K0-254C; [05-44] (=cns11643-1 . #x2522) ; &I-C1-2522; [05-02] )) - (<-denotational - ((name . "GREEK SMALL LETTER MU") - (=ucs . #x03BC) ; μ - )) (<-fullwidth ((name . "GREEK SMALL LETTER MU") (=ucs . #x03BC) ; μ @@ -1763,16 +2007,16 @@ (greek-iso8859-7 . #xED) ; &I-GREEK-6D; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER NU") + (=ucs . #x03BD) ; ν + )) + (->uppercase ((=jis-x0208 . #x262D) ; &J90-262D; [06-13] (=gb2312 . #x262D) ; &I-G0-262D; [06-13] (=ks-x1001 . #x254D) ; &I-K0-254D; [05-45] (=cns11643-1 . #x2523) ; &I-C1-2523; [05-03] )) - (<-denotational - ((name . "GREEK SMALL LETTER NU") - (=ucs . #x03BD) ; ν - )) (<-fullwidth ((name . "GREEK SMALL LETTER NU") (=ucs . #x03BD) ; ν @@ -1798,16 +2042,16 @@ (greek-iso8859-7 . #xEE) ; &I-GREEK-6E; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER XI") + (=ucs . #x03BE) ; ξ + )) + (->uppercase ((=jis-x0208 . #x262E) ; &J90-262E; [06-14] (=gb2312 . #x262E) ; &I-G0-262E; [06-14] (=ks-x1001 . #x254E) ; &I-K0-254E; [05-46] (=cns11643-1 . #x2524) ; &I-C1-2524; [05-04] )) - (<-denotational - ((name . "GREEK SMALL LETTER XI") - (=ucs . #x03BE) ; ξ - )) (<-fullwidth ((name . "GREEK SMALL LETTER XI") (=ucs . #x03BE) ; ξ @@ -1833,16 +2077,16 @@ (greek-iso8859-7 . #xEF) ; &I-GREEK-6F; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER OMICRON") + (=ucs . #x03BF) ; ο + )) + (->uppercase ((=jis-x0208 . #x262F) ; &J90-262F; [06-15] (=gb2312 . #x262F) ; &I-G0-262F; [06-15] (=ks-x1001 . #x254F) ; &I-K0-254F; [05-47] (=cns11643-1 . #x2525) ; &I-C1-2525; [05-05] )) - (<-denotational - ((name . "GREEK SMALL LETTER OMICRON") - (=ucs . #x03BF) ; ο - )) (<-fullwidth ((name . "GREEK SMALL LETTER OMICRON") (=ucs . #x03BF) ; ο @@ -1868,16 +2112,16 @@ (greek-iso8859-7 . #xF0) ; &I-GREEK-70; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER PI") + (=ucs . #x03C0) ; π + )) + (->uppercase ((=jis-x0208 . #x2630) ; &J90-2630; [06-16] (=gb2312 . #x2630) ; &I-G0-2630; [06-16] (=ks-x1001 . #x2550) ; &I-K0-2550; [05-48] (=cns11643-1 . #x2526) ; &I-C1-2526; [05-06] )) - (<-denotational - ((name . "GREEK SMALL LETTER PI") - (=ucs . #x03C0) ; π - )) (<-fullwidth ((name . "GREEK SMALL LETTER PI") (=ucs . #x03C0) ; π @@ -1903,16 +2147,16 @@ (greek-iso8859-7 . #xF1) ; &I-GREEK-71; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER RHO") + (=ucs . #x03C1) ; ρ + )) + (->uppercase ((=jis-x0208 . #x2631) ; &J90-2631; [06-17] (=gb2312 . #x2631) ; &I-G0-2631; [06-17] (=ks-x1001 . #x2551) ; &I-K0-2551; [05-49] (=cns11643-1 . #x2527) ; &I-C1-2527; [05-07] )) - (<-denotational - ((name . "GREEK SMALL LETTER RHO") - (=ucs . #x03C1) ; ρ - )) (<-fullwidth ((name . "GREEK SMALL LETTER RHO") (=ucs . #x03C1) ; ρ @@ -1938,16 +2182,16 @@ (greek-iso8859-7 . #xF2) ; &I-GREEK-72; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER FINAL SIGMA") + (=ucs . #x03C2) ; ς + )) + (->uppercase ((=jis-x0208 . #x2632) ; &J90-2632; [06-18] (=gb2312 . #x2632) ; &I-G0-2632; [06-18] (=ks-x1001 . #x2552) ; &I-K0-2552; [05-50] (=cns11643-1 . #x2528) ; &I-C1-2528; [05-08] )) - (<-denotational - ((name . "GREEK SMALL LETTER FINAL SIGMA") - (=ucs . #x03C2) ; ς - )) (<-fullwidth ((name . "GREEK SMALL LETTER FINAL SIGMA") (=ucs . #x03C2) ; ς @@ -1969,16 +2213,16 @@ (greek-iso8859-7 . #xF3) ; &I-GREEK-73; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER SIGMA") + (=ucs . #x03C3) ; σ + )) + (->uppercase ((=jis-x0208 . #x2632) ; &J90-2632; [06-18] (=gb2312 . #x2632) ; &I-G0-2632; [06-18] (=ks-x1001 . #x2552) ; &I-K0-2552; [05-50] (=cns11643-1 . #x2528) ; &I-C1-2528; [05-08] )) - (<-denotational - ((name . "GREEK SMALL LETTER SIGMA") - (=ucs . #x03C3) ; σ - )) (<-fullwidth ((name . "GREEK SMALL LETTER SIGMA") (=ucs . #x03C3) ; σ @@ -2004,16 +2248,16 @@ (greek-iso8859-7 . #xF4) ; &I-GREEK-74; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER TAU") + (=ucs . #x03C4) ; τ + )) + (->uppercase ((=jis-x0208 . #x2633) ; &J90-2633; [06-19] (=gb2312 . #x2633) ; &I-G0-2633; [06-19] (=ks-x1001 . #x2553) ; &I-K0-2553; [05-51] (=cns11643-1 . #x2529) ; &I-C1-2529; [05-09] )) - (<-denotational - ((name . "GREEK SMALL LETTER TAU") - (=ucs . #x03C4) ; τ - )) (<-fullwidth ((name . "GREEK SMALL LETTER TAU") (=ucs . #x03C4) ; τ @@ -2039,16 +2283,16 @@ (greek-iso8859-7 . #xF5) ; &I-GREEK-75; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER UPSILON") + (=ucs . #x03C5) ; υ + )) + (->uppercase ((=jis-x0208 . #x2634) ; &J90-2634; [06-20] (=gb2312 . #x2634) ; &I-G0-2634; [06-20] (=ks-x1001 . #x2554) ; &I-K0-2554; [05-52] (=cns11643-1 . #x252A) ; &I-C1-252A; [05-10] )) - (<-denotational - ((name . "GREEK SMALL LETTER UPSILON") - (=ucs . #x03C5) ; υ - )) (<-fullwidth ((name . "GREEK SMALL LETTER UPSILON") (=ucs . #x03C5) ; υ @@ -2074,16 +2318,16 @@ (greek-iso8859-7 . #xF6) ; &I-GREEK-76; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER PHI") + (=ucs . #x03C6) ; φ + )) + (->uppercase ((=jis-x0208 . #x2635) ; &J90-2635; [06-21] (=gb2312 . #x2635) ; &I-G0-2635; [06-21] (=ks-x1001 . #x2555) ; &I-K0-2555; [05-53] (=cns11643-1 . #x252B) ; &I-C1-252B; [05-11] )) - (<-denotational - ((name . "GREEK SMALL LETTER PHI") - (=ucs . #x03C6) ; φ - )) (<-fullwidth ((name . "GREEK SMALL LETTER PHI") (=ucs . #x03C6) ; φ @@ -2109,16 +2353,16 @@ (greek-iso8859-7 . #xF7) ; &I-GREEK-77; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER CHI") + (=ucs . #x03C7) ; χ + )) + (->uppercase ((=jis-x0208 . #x2636) ; &J90-2636; [06-22] (=gb2312 . #x2636) ; &I-G0-2636; [06-22] (=ks-x1001 . #x2556) ; &I-K0-2556; [05-54] (=cns11643-1 . #x252C) ; &I-C1-252C; [05-12] )) - (<-denotational - ((name . "GREEK SMALL LETTER CHI") - (=ucs . #x03C7) ; χ - )) (<-fullwidth ((name . "GREEK SMALL LETTER CHI") (=ucs . #x03C7) ; χ @@ -2144,16 +2388,16 @@ (greek-iso8859-7 . #xF8) ; &I-GREEK-78; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER PSI") + (=ucs . #x03C8) ; ψ + )) + (->uppercase ((=jis-x0208 . #x2637) ; &J90-2637; [06-23] (=gb2312 . #x2637) ; &I-G0-2637; [06-23] (=ks-x1001 . #x2557) ; &I-K0-2557; [05-55] (=cns11643-1 . #x252D) ; &I-C1-252D; [05-13] )) - (<-denotational - ((name . "GREEK SMALL LETTER PSI") - (=ucs . #x03C8) ; ψ - )) (<-fullwidth ((name . "GREEK SMALL LETTER PSI") (=ucs . #x03C8) ; ψ @@ -2179,16 +2423,16 @@ (greek-iso8859-7 . #xF9) ; &I-GREEK-79; )) (define-char - '((->uppercase + '((<-denotational + ((name . "GREEK SMALL LETTER OMEGA") + (=ucs . #x03C9) ; ω + )) + (->uppercase ((=jis-x0208 . #x2638) ; &J90-2638; [06-24] (=gb2312 . #x2638) ; &I-G0-2638; [06-24] (=ks-x1001 . #x2558) ; &I-K0-2558; [05-56] (=cns11643-1 . #x252E) ; &I-C1-252E; [05-14] )) - (<-denotational - ((name . "GREEK SMALL LETTER OMEGA") - (=ucs . #x03C9) ; ω - )) (<-fullwidth ((name . "GREEK SMALL LETTER OMEGA") (=ucs . #x03C9) ; ω @@ -2206,22 +2450,28 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03B9 #x0308) (->uppercase ((name . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA") (=ucs . #x03AA) ; Ϊ )) + (=decomposition + ((name . "GREEK SMALL LETTER IOTA") + (=ucs . #x03B9) ; ι + ) + ((name . "COMBINING DIAERESIS") + (=ucs . #x0308) ; ̈ + )) (=ucs . #x03CA) ; ϊ (greek-iso8859-7 . #xFA) ; &I-GREEK-7A; )) (define-char - '((->uppercase - ((=jis-x0212 . #x2665) ; &JSP-2665; [06-69] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA") (=ucs . #x03CA) ; ϊ )) + (->uppercase + ((=jis-x0212 . #x2665) ; &JSP-2665; [06-69] + )) (<-fullwidth ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA") (=ucs . #x03CA) ; ϊ @@ -2234,22 +2484,28 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03C5 #x0308) (->uppercase ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA") (=ucs . #x03AB) ; Ϋ )) + (=decomposition + ((name . "GREEK SMALL LETTER UPSILON") + (=ucs . #x03C5) ; υ + ) + ((name . "COMBINING DIAERESIS") + (=ucs . #x0308) ; ̈ + )) (=ucs . #x03CB) ; ϋ (greek-iso8859-7 . #xFB) ; &I-GREEK-7B; )) (define-char - '((->uppercase - ((=jis-x0212 . #x266A) ; &JSP-266A; [06-74] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA") (=ucs . #x03CB) ; ϋ )) + (->uppercase + ((=jis-x0212 . #x266A) ; &JSP-266A; [06-74] + )) (<-fullwidth ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA") (=ucs . #x03CB) ; ϋ @@ -2262,22 +2518,32 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03BF #x0301) (->uppercase ((name . "GREEK CAPITAL LETTER OMICRON WITH TONOS") (=ucs . #x038C) ; Ό )) + (<-canonical + ((name . "GREEK SMALL LETTER OMICRON WITH OXIA") + (=ucs . #x1F79) ; ό + )) + (=decomposition + ((name . "GREEK SMALL LETTER OMICRON") + (=ucs . #x03BF) ; ο + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03CC) ; ό (greek-iso8859-7 . #xFC) ; &I-GREEK-7C; )) (define-char - '((->uppercase - ((=jis-x0212 . #x2667) ; &JSP-2667; [06-71] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER OMICRON WITH TONOS") (=ucs . #x03CC) ; ό )) + (->uppercase + ((=jis-x0212 . #x2667) ; &JSP-2667; [06-71] + )) (<-fullwidth ((name . "GREEK SMALL LETTER OMICRON WITH TONOS") (=ucs . #x03CC) ; ό @@ -2290,22 +2556,32 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03C5 #x0301) (->uppercase ((name . "GREEK CAPITAL LETTER UPSILON WITH TONOS") (=ucs . #x038E) ; Ύ )) + (<-canonical + ((name . "GREEK SMALL LETTER UPSILON WITH OXIA") + (=ucs . #x1F7B) ; ύ + )) + (=decomposition + ((name . "GREEK SMALL LETTER UPSILON") + (=ucs . #x03C5) ; υ + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03CD) ; ύ (greek-iso8859-7 . #xFD) ; &I-GREEK-7D; )) (define-char - '((->uppercase - ((=jis-x0212 . #x2669) ; &JSP-2669; [06-73] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER UPSILON WITH TONOS") (=ucs . #x03CD) ; ύ )) + (->uppercase + ((=jis-x0212 . #x2669) ; &JSP-2669; [06-73] + )) (<-fullwidth ((name . "GREEK SMALL LETTER UPSILON WITH TONOS") (=ucs . #x03CD) ; ύ @@ -2318,22 +2594,32 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03C9 #x0301) (->uppercase ((name . "GREEK CAPITAL LETTER OMEGA WITH TONOS") (=ucs . #x038F) ; Ώ )) + (<-canonical + ((name . "GREEK SMALL LETTER OMEGA WITH OXIA") + (=ucs . #x1F7D) ; ώ + )) + (=decomposition + ((name . "GREEK SMALL LETTER OMEGA") + (=ucs . #x03C9) ; ω + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03CE) ; ώ (greek-iso8859-7 . #xFE) ; &I-GREEK-7E; )) (define-char - '((->uppercase - ((=jis-x0212 . #x266C) ; &JSP-266C; [06-76] - )) - (<-denotational + '((<-denotational ((name . "GREEK SMALL LETTER OMEGA WITH TONOS") (=ucs . #x03CE) ; ώ )) + (->uppercase + ((=jis-x0212 . #x266C) ; &JSP-266C; [06-76] + )) (<-fullwidth ((name . "GREEK SMALL LETTER OMEGA WITH TONOS") (=ucs . #x03CE) ; ώ @@ -2346,11 +2632,14 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03B2) (->uppercase ((name . "GREEK CAPITAL LETTER BETA") (=ucs . #x0392) ; Β )) + (<-compat + ((name . "GREEK SMALL LETTER BETA") + (=ucs . #x03B2) ; β + )) (=ucs . #x03D0) ; ϐ )) (define-char @@ -2358,11 +2647,14 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03B8) (->uppercase ((name . "GREEK CAPITAL LETTER THETA") (=ucs . #x0398) ; Θ )) + (<-compat + ((name . "GREEK SMALL LETTER THETA") + (=ucs . #x03B8) ; θ + )) (=ucs . #x03D1) ; ϑ )) (define-char @@ -2370,7 +2662,10 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03A5) + (<-compat + ((name . "GREEK CAPITAL LETTER UPSILON") + (=ucs . #x03A5) ; Υ + )) (=ucs . #x03D2) ; ϒ )) (define-char @@ -2378,7 +2673,13 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03D2 #x0301) + (=decomposition + ((name . "GREEK UPSILON WITH HOOK SYMBOL") + (=ucs . #x03D2) ; ϒ + ) + ((name . "COMBINING ACUTE ACCENT") + (=ucs . #x0301) ; ́ + )) (=ucs . #x03D3) ; ϓ )) (define-char @@ -2386,7 +2687,13 @@ (general-category letter uppercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition #x03D2 #x0308) + (=decomposition + ((name . "GREEK UPSILON WITH HOOK SYMBOL") + (=ucs . #x03D2) ; ϒ + ) + ((name . "COMBINING DIAERESIS") + (=ucs . #x0308) ; ̈ + )) (=ucs . #x03D4) ; ϔ )) (define-char @@ -2394,11 +2701,14 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03C6) (->uppercase ((name . "GREEK CAPITAL LETTER PHI") (=ucs . #x03A6) ; Φ )) + (<-compat + ((name . "GREEK SMALL LETTER PHI") + (=ucs . #x03C6) ; φ + )) (=ucs . #x03D5) ; ϕ )) (define-char @@ -2406,11 +2716,14 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03C0) (->uppercase ((name . "GREEK CAPITAL LETTER PI") (=ucs . #x03A0) ; Π )) + (<-compat + ((name . "GREEK SMALL LETTER PI") + (=ucs . #x03C0) ; π + )) (=ucs . #x03D6) ; ϖ )) (define-char @@ -2667,11 +2980,14 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03BA) (->uppercase ((name . "GREEK CAPITAL LETTER KAPPA") (=ucs . #x039A) ; Κ )) + (<-compat + ((name . "GREEK SMALL LETTER KAPPA") + (=ucs . #x03BA) ; κ + )) (=ucs . #x03F0) ; ϰ )) (define-char @@ -2679,11 +2995,14 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03C1) (->uppercase ((name . "GREEK CAPITAL LETTER RHO") (=ucs . #x03A1) ; Ρ )) + (<-compat + ((name . "GREEK SMALL LETTER RHO") + (=ucs . #x03C1) ; ρ + )) (=ucs . #x03F1) ; ϱ )) (define-char @@ -2691,11 +3010,14 @@ (general-category letter lowercase) ; Normative Category (bidi-category . "L") (mirrored . nil) - (->decomposition compat #x03C2) (->uppercase ((name . "GREEK CAPITAL LETTER SIGMA") (=ucs . #x03A3) ; Σ )) + (<-compat + ((name . "GREEK SMALL LETTER FINAL SIGMA") + (=ucs . #x03C2) ; ς + )) (=ucs . #x03F2) ; ϲ )) (define-char -- 1.7.10.4