Rename `japanese-jisx0212' to `=jis-x0212'.
[chise/xemacs-chise.git.1] / lisp / utf-2000 / u00370-Greek.el
index b146a02..df0ec68 100644 (file)
@@ -40,7 +40,8 @@
     (->decomposition   compat #x0020 #x0301)
     (->fullwidth
      ((name              . "fullwidth greek tonos")
-      (japanese-jisx0212  . #x2238)    ; 
+      (=jis-x0212        . #x2238)     ; 
+      (=ucs@jis                  . #x0384)     ; 
       ))
     (greek-iso8859-7   . #xB4) ; 
     (=ucs              . #x0384)       ; ΄
@@ -56,7 +57,7 @@
      ((name              . "GREEK TONOS")
       (=ucs              . #x0384)     ; ΄
       ))
-    (japanese-jisx0212 . #x2238)       ; 
+    (=jis-x0212                . #x2238)       ; 
     (=ucs@jis          . #x0384)       ; 
     ))
 (define-char
@@ -67,7 +68,8 @@
     (->decomposition   #x00A8 #x0301)
     (->fullwidth
      ((name              . "fullwidth greek dialytika tonos")
-      (japanese-jisx0212  . #x2239)    ; 
+      (=jis-x0212        . #x2239)     ; 
+      (=ucs@jis                  . #x0385)     ; 
       ))
     (greek-iso8859-7   . #xB5) ; 
     (=ucs              . #x0385)       ; ΅
@@ -83,7 +85,7 @@
      ((name              . "GREEK DIALYTIKA TONOS")
       (=ucs              . #x0385)     ; ΅
       ))
-    (japanese-jisx0212 . #x2239)       ; 
+    (=jis-x0212                . #x2239)       ; 
     (=ucs@jis          . #x0385)       ; 
     ))
 (define-char
@@ -94,7 +96,8 @@
     (->decomposition   #x0391 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter alpha with tonos")
-      (japanese-jisx0212  . #x2661)    ; 
+      (=jis-x0212        . #x2661)     ; 
+      (=ucs@jis                  . #x0386)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
       (=ucs              . #x0386)     ; Ά
       ))
-    (japanese-jisx0212 . #x2661)       ; 
+    (=jis-x0212                . #x2661)       ; 
     (=ucs@jis          . #x0386)       ; 
     ))
 (define-char
     (->decomposition   #x0395 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter epsilon with tonos")
-      (japanese-jisx0212  . #x2662)    ; 
+      (=jis-x0212        . #x2662)     ; 
+      (=ucs@jis                  . #x0388)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
       (=ucs              . #x0388)     ; Έ
       ))
-    (japanese-jisx0212 . #x2662)       ; 
+    (=jis-x0212                . #x2662)       ; 
     (=ucs@jis          . #x0388)       ; 
     ))
 (define-char
     (->decomposition   #x0397 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter eta with tonos")
-      (japanese-jisx0212  . #x2663)    ; 
+      (=jis-x0212        . #x2663)     ; 
+      (=ucs@jis                  . #x0389)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER ETA WITH TONOS")
      ((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
       (=ucs              . #x0389)     ; Ή
       ))
-    (japanese-jisx0212 . #x2663)       ; 
+    (=jis-x0212                . #x2663)       ; 
     (=ucs@jis          . #x0389)       ; 
     ))
 (define-char
     (->decomposition   #x0399 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter iota with tonos")
-      (japanese-jisx0212  . #x2664)    ; 
+      (=jis-x0212        . #x2664)     ; 
+      (=ucs@jis                  . #x038A)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
      ((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
       (=ucs              . #x038A)     ; Ί
       ))
-    (japanese-jisx0212 . #x2664)       ; 
+    (=jis-x0212                . #x2664)       ; 
     (=ucs@jis          . #x038A)       ; 
     ))
 (define-char
     (->decomposition   #x039F #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter omicron with tonos")
-      (japanese-jisx0212  . #x2667)    ; 
+      (=jis-x0212        . #x2667)     ; 
+      (=ucs@jis                  . #x038C)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
       (=ucs              . #x038C)     ; Ό
       ))
-    (japanese-jisx0212 . #x2667)       ; 
+    (=jis-x0212                . #x2667)       ; 
     (=ucs@jis          . #x038C)       ; 
     ))
 (define-char
     (->decomposition   #x03A5 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter upsilon with tonos")
-      (japanese-jisx0212  . #x2669)    ; 
+      (=jis-x0212        . #x2669)     ; 
+      (=ucs@jis                  . #x038E)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
       (=ucs              . #x038E)     ; Ύ
       ))
-    (japanese-jisx0212 . #x2669)       ; 
+    (=jis-x0212                . #x2669)       ; 
     (=ucs@jis          . #x038E)       ; 
     ))
 (define-char
     (->decomposition   #x03A9 #x0301)
     (->fullwidth
      ((name . "fullwidth greek capital letter omega with tonos")
-      (japanese-jisx0212  . #x266C)    ; 
+      (=jis-x0212        . #x266C)     ; 
+      (=ucs@jis                  . #x038F)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
       (=ucs              . #x038F)     ; Ώ
       ))
-    (japanese-jisx0212 . #x266C)       ; 
+    (=jis-x0212                . #x266C)       ; 
     (=ucs@jis          . #x038F)       ; 
     ))
 (define-char
     (->decomposition   #x03CA #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter iota with dialytika and tonos")
-      (japanese-jisx0212  . #x2676)    ; 
+      (=jis-x0212        . #x2676)     ; 
+      (=ucs@jis                  . #x0390)     ; 
       ))
     (greek-iso8859-7   . #xC0) ; 
     (=ucs              . #x0390)       ; ΐ
      ((name . "GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS")
       (=ucs              . #x0390)     ; ΐ
       ))
-    (japanese-jisx0212 . #x2676)       ; 
+    (=jis-x0212                . #x2676)       ; 
     (=ucs@jis          . #x0390)       ; 
     ))
 (define-char
     (->decomposition   #x0399 #x0308)
     (->fullwidth
      ((name . "fullwidth greek capital letter iota with dialytika")
-      (japanese-jisx0212  . #x2665)    ; 
+      (=jis-x0212        . #x2665)     ; 
+      (=ucs@jis                  . #x03AA)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
       (=ucs              . #x03AA)     ; Ϊ
       ))
-    (japanese-jisx0212 . #x2665)       ; 
+    (=jis-x0212                . #x2665)       ; 
     (=ucs@jis          . #x03AA)       ; 
     ))
 (define-char
     (->decomposition   #x03A5 #x0308)
     (->fullwidth
      ((name . "fullwidth greek capital letter upsilon with dialytika")
-      (japanese-jisx0212  . #x266A)    ; 
+      (=jis-x0212        . #x266A)     ; 
+      (=ucs@jis                  . #x03AB)     ; 
       ))
     (->lowercase
      ((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
       (=ucs              . #x03AB)     ; Ϋ
       ))
-    (japanese-jisx0212 . #x266A)       ; 
+    (=jis-x0212                . #x266A)       ; 
     (=ucs@jis          . #x03AB)       ; 
     ))
 (define-char
     (->decomposition   #x03B1 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter alpha with tonos")
-      (japanese-jisx0212  . #x2671)    ; 
+      (=jis-x0212        . #x2671)     ; 
+      (=ucs@jis                  . #x03AC)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ALPHA WITH TONOS")
      ((name              . "GREEK SMALL LETTER ALPHA WITH TONOS")
       (=ucs              . #x03AC)     ; ά
       ))
-    (japanese-jisx0212 . #x2671)       ; 
+    (=jis-x0212                . #x2671)       ; 
     (=ucs@jis          . #x03AC)       ; 
     ))
 (define-char
     (->decomposition   #x03B5 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter epsilon with tonos")
-      (japanese-jisx0212  . #x2672)    ; 
+      (=jis-x0212        . #x2672)     ; 
+      (=ucs@jis                  . #x03AD)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER EPSILON WITH TONOS")
      ((name              . "GREEK SMALL LETTER EPSILON WITH TONOS")
       (=ucs              . #x03AD)     ; έ
       ))
-    (japanese-jisx0212 . #x2672)       ; 
+    (=jis-x0212                . #x2672)       ; 
     (=ucs@jis          . #x03AD)       ; 
     ))
 (define-char
     (->decomposition   #x03B7 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter eta with tonos")
-      (japanese-jisx0212  . #x2673)    ; 
+      (=jis-x0212        . #x2673)     ; 
+      (=ucs@jis                  . #x03AE)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER ETA WITH TONOS")
      ((name              . "GREEK SMALL LETTER ETA WITH TONOS")
       (=ucs              . #x03AE)     ; ή
       ))
-    (japanese-jisx0212 . #x2673)       ; 
+    (=jis-x0212                . #x2673)       ; 
     (=ucs@jis          . #x03AE)       ; 
     ))
 (define-char
     (->decomposition   #x03B9 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter iota with tonos")
-      (japanese-jisx0212  . #x2674)    ; 
+      (=jis-x0212        . #x2674)     ; 
+      (=ucs@jis                  . #x03AF)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH TONOS")
      ((name              . "GREEK SMALL LETTER IOTA WITH TONOS")
       (=ucs              . #x03AF)     ; ί
       ))
-    (japanese-jisx0212 . #x2674)       ; 
+    (=jis-x0212                . #x2674)       ; 
     (=ucs@jis          . #x03AF)       ; 
     ))
 (define-char
     (->decomposition   #x03CB #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter upsilon with dialytika and tonos")
-      (japanese-jisx0212  . #x267B)    ; 
+      (=jis-x0212        . #x267B)     ; 
+      (=ucs@jis                  . #x03B0)     ; 
       ))
     (greek-iso8859-7   . #xE0) ; 
     (=ucs              . #x03B0)       ; ΰ
      ((name . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS")
       (=ucs              . #x03B0)     ; ΰ
       ))
-    (japanese-jisx0212 . #x267B)       ; 
+    (=jis-x0212                . #x267B)       ; 
     (=ucs@jis          . #x03B0)       ; 
     ))
 (define-char
     (mirrored          . nil)
     (->fullwidth
      ((name              . "fullwidth greek small letter final sigma")
-      (japanese-jisx0212  . #x2678)    ; 
+      (=jis-x0212        . #x2678)     ; 
+      (=jis-x0213-1-2000  . #x2659)    ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER SIGMA")
      ((name              . "GREEK SMALL LETTER FINAL SIGMA")
       (=ucs              . #x03C2)     ; ς
       ))
-    (japanese-jisx0212 . #x2678)       ; 
+    (=jis-x0212                . #x2678)       ; 
     (=jis-x0213-1-2000 . #x2659)       ; 
     (=ucs@jis          . #x03C2)       ; 
     ))
     (->decomposition   #x03B9 #x0308)
     (->fullwidth
      ((name . "fullwidth greek small letter iota with dialytika")
-      (japanese-jisx0212  . #x2675)    ; 
+      (=jis-x0212        . #x2675)     ; 
+      (=ucs@jis                  . #x03CA)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER IOTA WITH DIALYTIKA")
      ((name              . "GREEK SMALL LETTER IOTA WITH DIALYTIKA")
       (=ucs              . #x03CA)     ; ϊ
       ))
-    (japanese-jisx0212 . #x2675)       ; 
+    (=jis-x0212                . #x2675)       ; 
     (=ucs@jis          . #x03CA)       ; 
     ))
 (define-char
     (->decomposition   #x03C5 #x0308)
     (->fullwidth
      ((name . "fullwidth greek small letter upsilon with dialytika")
-      (japanese-jisx0212  . #x267A)    ; 
+      (=jis-x0212        . #x267A)     ; 
+      (=ucs@jis                  . #x03CB)     ; 
       ))
     (->uppercase
      ((name . "GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA")
      ((name              . "GREEK SMALL LETTER UPSILON WITH DIALYTIKA")
       (=ucs              . #x03CB)     ; ϋ
       ))
-    (japanese-jisx0212 . #x267A)       ; 
+    (=jis-x0212                . #x267A)       ; 
     (=ucs@jis          . #x03CB)       ; 
     ))
 (define-char
     (->decomposition   #x03BF #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter omicron with tonos")
-      (japanese-jisx0212  . #x2677)    ; 
+      (=jis-x0212        . #x2677)     ; 
+      (=ucs@jis                  . #x03CC)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMICRON WITH TONOS")
      ((name              . "GREEK SMALL LETTER OMICRON WITH TONOS")
       (=ucs              . #x03CC)     ; ό
       ))
-    (japanese-jisx0212 . #x2677)       ; 
+    (=jis-x0212                . #x2677)       ; 
     (=ucs@jis          . #x03CC)       ; 
     ))
 (define-char
     (->decomposition   #x03C5 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter upsilon with tonos")
-      (japanese-jisx0212  . #x2679)    ; 
+      (=jis-x0212        . #x2679)     ; 
+      (=ucs@jis                  . #x03CD)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER UPSILON WITH TONOS")
      ((name              . "GREEK SMALL LETTER UPSILON WITH TONOS")
       (=ucs              . #x03CD)     ; ύ
       ))
-    (japanese-jisx0212 . #x2679)       ; 
+    (=jis-x0212                . #x2679)       ; 
     (=ucs@jis          . #x03CD)       ; 
     ))
 (define-char
     (->decomposition   #x03C9 #x0301)
     (->fullwidth
      ((name . "fullwidth greek small letter omega with tonos")
-      (japanese-jisx0212  . #x267C)    ; 
+      (=jis-x0212        . #x267C)     ; 
+      (=ucs@jis                  . #x03CE)     ; 
       ))
     (->uppercase
      ((name              . "GREEK CAPITAL LETTER OMEGA WITH TONOS")
      ((name              . "GREEK SMALL LETTER OMEGA WITH TONOS")
       (=ucs              . #x03CE)     ; ώ
       ))
-    (japanese-jisx0212 . #x267C)       ; 
+    (=jis-x0212                . #x267C)       ; 
     (=ucs@jis          . #x03CE)       ; 
     ))
 (define-char