diff lisp/mule/cyrillic.el @ 4299:f4c3ffe60a4f

[xemacs-hg @ 2007-12-01 14:24:46 by aidan] Switch away from ISO 2022 for the ISO-8859 character sets.
author aidan
date Sat, 01 Dec 2007 14:24:52 +0000
parents edb00a8b4eff
children b75b075a9041
line wrap: on
line diff
--- a/lisp/mule/cyrillic.el	Sat Dec 01 13:40:07 2007 +0000
+++ b/lisp/mule/cyrillic.el	Sat Dec 01 14:24:52 2007 +0000
@@ -106,14 +106,107 @@
                      (standard-syntax-table))
 
 ;; And create the coding system.
-(make-coding-system
- 'iso-8859-5 'iso2022
+(make-8-bit-coding-system
+ 'iso-8859-5
+ '((#xA1 ?\u0401) ;; CYRILLIC CAPITAL LETTER IO
+   (#xA2 ?\u0402) ;; CYRILLIC CAPITAL LETTER DJE
+   (#xA3 ?\u0403) ;; CYRILLIC CAPITAL LETTER GJE
+   (#xA4 ?\u0404) ;; CYRILLIC CAPITAL LETTER UKRAINIAN IE
+   (#xA5 ?\u0405) ;; CYRILLIC CAPITAL LETTER DZE
+   (#xA6 ?\u0406) ;; CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+   (#xA7 ?\u0407) ;; CYRILLIC CAPITAL LETTER YI
+   (#xA8 ?\u0408) ;; CYRILLIC CAPITAL LETTER JE
+   (#xA9 ?\u0409) ;; CYRILLIC CAPITAL LETTER LJE
+   (#xAA ?\u040A) ;; CYRILLIC CAPITAL LETTER NJE
+   (#xAB ?\u040B) ;; CYRILLIC CAPITAL LETTER TSHE
+   (#xAC ?\u040C) ;; CYRILLIC CAPITAL LETTER KJE
+   (#xAE ?\u040E) ;; CYRILLIC CAPITAL LETTER SHORT U
+   (#xAF ?\u040F) ;; CYRILLIC CAPITAL LETTER DZHE
+   (#xB0 ?\u0410) ;; CYRILLIC CAPITAL LETTER A
+   (#xB1 ?\u0411) ;; CYRILLIC CAPITAL LETTER BE
+   (#xB2 ?\u0412) ;; CYRILLIC CAPITAL LETTER VE
+   (#xB3 ?\u0413) ;; CYRILLIC CAPITAL LETTER GHE
+   (#xB4 ?\u0414) ;; CYRILLIC CAPITAL LETTER DE
+   (#xB5 ?\u0415) ;; CYRILLIC CAPITAL LETTER IE
+   (#xB6 ?\u0416) ;; CYRILLIC CAPITAL LETTER ZHE
+   (#xB7 ?\u0417) ;; CYRILLIC CAPITAL LETTER ZE
+   (#xB8 ?\u0418) ;; CYRILLIC CAPITAL LETTER I
+   (#xB9 ?\u0419) ;; CYRILLIC CAPITAL LETTER SHORT I
+   (#xBA ?\u041A) ;; CYRILLIC CAPITAL LETTER KA
+   (#xBB ?\u041B) ;; CYRILLIC CAPITAL LETTER EL
+   (#xBC ?\u041C) ;; CYRILLIC CAPITAL LETTER EM
+   (#xBD ?\u041D) ;; CYRILLIC CAPITAL LETTER EN
+   (#xBE ?\u041E) ;; CYRILLIC CAPITAL LETTER O
+   (#xBF ?\u041F) ;; CYRILLIC CAPITAL LETTER PE
+   (#xC0 ?\u0420) ;; CYRILLIC CAPITAL LETTER ER
+   (#xC1 ?\u0421) ;; CYRILLIC CAPITAL LETTER ES
+   (#xC2 ?\u0422) ;; CYRILLIC CAPITAL LETTER TE
+   (#xC3 ?\u0423) ;; CYRILLIC CAPITAL LETTER U
+   (#xC4 ?\u0424) ;; CYRILLIC CAPITAL LETTER EF
+   (#xC5 ?\u0425) ;; CYRILLIC CAPITAL LETTER HA
+   (#xC6 ?\u0426) ;; CYRILLIC CAPITAL LETTER TSE
+   (#xC7 ?\u0427) ;; CYRILLIC CAPITAL LETTER CHE
+   (#xC8 ?\u0428) ;; CYRILLIC CAPITAL LETTER SHA
+   (#xC9 ?\u0429) ;; CYRILLIC CAPITAL LETTER SHCHA
+   (#xCA ?\u042A) ;; CYRILLIC CAPITAL LETTER HARD SIGN
+   (#xCB ?\u042B) ;; CYRILLIC CAPITAL LETTER YERU
+   (#xCC ?\u042C) ;; CYRILLIC CAPITAL LETTER SOFT SIGN
+   (#xCD ?\u042D) ;; CYRILLIC CAPITAL LETTER E
+   (#xCE ?\u042E) ;; CYRILLIC CAPITAL LETTER YU
+   (#xCF ?\u042F) ;; CYRILLIC CAPITAL LETTER YA
+   (#xD0 ?\u0430) ;; CYRILLIC SMALL LETTER A
+   (#xD1 ?\u0431) ;; CYRILLIC SMALL LETTER BE
+   (#xD2 ?\u0432) ;; CYRILLIC SMALL LETTER VE
+   (#xD3 ?\u0433) ;; CYRILLIC SMALL LETTER GHE
+   (#xD4 ?\u0434) ;; CYRILLIC SMALL LETTER DE
+   (#xD5 ?\u0435) ;; CYRILLIC SMALL LETTER IE
+   (#xD6 ?\u0436) ;; CYRILLIC SMALL LETTER ZHE
+   (#xD7 ?\u0437) ;; CYRILLIC SMALL LETTER ZE
+   (#xD8 ?\u0438) ;; CYRILLIC SMALL LETTER I
+   (#xD9 ?\u0439) ;; CYRILLIC SMALL LETTER SHORT I
+   (#xDA ?\u043A) ;; CYRILLIC SMALL LETTER KA
+   (#xDB ?\u043B) ;; CYRILLIC SMALL LETTER EL
+   (#xDC ?\u043C) ;; CYRILLIC SMALL LETTER EM
+   (#xDD ?\u043D) ;; CYRILLIC SMALL LETTER EN
+   (#xDE ?\u043E) ;; CYRILLIC SMALL LETTER O
+   (#xDF ?\u043F) ;; CYRILLIC SMALL LETTER PE
+   (#xE0 ?\u0440) ;; CYRILLIC SMALL LETTER ER
+   (#xE1 ?\u0441) ;; CYRILLIC SMALL LETTER ES
+   (#xE2 ?\u0442) ;; CYRILLIC SMALL LETTER TE
+   (#xE3 ?\u0443) ;; CYRILLIC SMALL LETTER U
+   (#xE4 ?\u0444) ;; CYRILLIC SMALL LETTER EF
+   (#xE5 ?\u0445) ;; CYRILLIC SMALL LETTER HA
+   (#xE6 ?\u0446) ;; CYRILLIC SMALL LETTER TSE
+   (#xE7 ?\u0447) ;; CYRILLIC SMALL LETTER CHE
+   (#xE8 ?\u0448) ;; CYRILLIC SMALL LETTER SHA
+   (#xE9 ?\u0449) ;; CYRILLIC SMALL LETTER SHCHA
+   (#xEA ?\u044A) ;; CYRILLIC SMALL LETTER HARD SIGN
+   (#xEB ?\u044B) ;; CYRILLIC SMALL LETTER YERU
+   (#xEC ?\u044C) ;; CYRILLIC SMALL LETTER SOFT SIGN
+   (#xED ?\u044D) ;; CYRILLIC SMALL LETTER E
+   (#xEE ?\u044E) ;; CYRILLIC SMALL LETTER YU
+   (#xEF ?\u044F) ;; CYRILLIC SMALL LETTER YA
+   (#xF0 ?\u2116) ;; NUMERO SIGN
+   (#xF1 ?\u0451) ;; CYRILLIC SMALL LETTER IO
+   (#xF2 ?\u0452) ;; CYRILLIC SMALL LETTER DJE
+   (#xF3 ?\u0453) ;; CYRILLIC SMALL LETTER GJE
+   (#xF4 ?\u0454) ;; CYRILLIC SMALL LETTER UKRAINIAN IE
+   (#xF5 ?\u0455) ;; CYRILLIC SMALL LETTER DZE
+   (#xF6 ?\u0456) ;; CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+   (#xF7 ?\u0457) ;; CYRILLIC SMALL LETTER YI
+   (#xF8 ?\u0458) ;; CYRILLIC SMALL LETTER JE
+   (#xF9 ?\u0459) ;; CYRILLIC SMALL LETTER LJE
+   (#xFA ?\u045A) ;; CYRILLIC SMALL LETTER NJE
+   (#xFB ?\u045B) ;; CYRILLIC SMALL LETTER TSHE
+   (#xFC ?\u045C) ;; CYRILLIC SMALL LETTER KJE
+   (#xFD ?\u00A7) ;; SECTION SIGN
+   (#xFE ?\u045E) ;; CYRILLIC SMALL LETTER SHORT U
+   (#xFF ?\u045F)) ;; CYRILLIC SMALL LETTER DZHE
  "ISO-8859-5 (Cyrillic)"
- '(charset-g0 ascii
-   charset-g1 cyrillic-iso8859-5
-   charset-g2 t
-   charset-g3 t
-   mnemonic "ISO8/Cyr"))
+ '(mnemonic "ISO8/Cyr"
+   documentation "The ISO standard for encoding Cyrillic. Not used in practice.
+See `koi8-r' and `windows-1250'.  "
+   aliases (cyrillic-iso-8bit)))
 
 ;; Provide this locale; but don't allow it to be picked up from the Unix
 ;; locale (it has no locale entry in the alist), we leave that to Russian.