lisp/international/code-pages.el

   1 ;;; code-pages.el --- coding systems for assorted codepages  -*-coding: utf-8;-*-
   2
   3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005  Free Software Foundation, Inc.
   4 ;; Copyright (C) 2004, 2005
   5 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   6 ;;   Registration Number H14PRO021
   7
   8 ;; Author: Dave Love <fx@gnu.org>
   9 ;; Keywords: i18n
  10
  11 ;; This file is part of GNU Emacs.
  12
  13 ;; GNU Emacs is free software; you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation; either version 2, or (at your option)
  16 ;; any later version.
  17
  18 ;; GNU Emacs is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  26 ;; Boston, MA 02110-1301, USA.
  27
  28 ;;; Commentary:
  29
  30 ;; Definitions of miscellaneous 8-bit coding systems based on ASCII
  31 ;; (we can't cope properly with EBCDIC, for instance), mainly for PC
  32 ;; `code pages'.  They are decoded into Latin-1 and mule-unicode
  33 ;; charsets rather than (lossily) into single iso8859 charsets à la
  34 ;; codepage.el.  The utility `cp-make-coding-system' derives them from
  35 ;; simple tables.
  36
  37 ;; Those covered are: cp437, cp737, cp720, cp775, cp850, cp851, cp852,
  38 ;; cp855, cp857, cp860, cp861, cp862, cp863, cp864, cp865, cp866,
  39 ;; cp869, cp874, cp1125, windows-1250, windows-1253, windows-1254,
  40 ;; windows-1255, windows-1256, windows-1257, windows-1258, next,
  41 ;; iso-8859-6, iso-8859-10, iso-8859-11, iso-8859-16, koi8-t,
  42 ;; georgian-ps.  This is meant to include all the single-byte ones
  43 ;; relevant to GNU (used in glibc-defined locales); we don't yet get
  44 ;; all the multibyte ones in base Emacs.
  45
  46 ;; Note that various of these can clash with definitions in
  47 ;; codepage.el; we try to avoid damage from that.  A few CPs from
  48 ;; codepage.el (770, 773, 774) aren't covered (in the absence of
  49 ;; translation tables to Unicode).
  50
  51 ;; Compile this, to avoid loading `ccl' at runtime.
  52
  53 ;; Although the tables used here aren't very big, it might be worth
  54 ;; splitting the file and autoloading the coding systems if/when my
  55 ;; (or similar) autoloading code is installed.
  56
  57 ;;; Code:
  58
  59 ;; The defsubsts here are just so that language files can use
  60 ;; `cp-make-coding-system' and not require functions from this file
  61 ;; at runtime.
  62
  63 (defsubst cp-make-translation-table (v)
  64   "Return a translation table made from 128-long vector V.
  65 V comprises characters encodable by mule-utf-8."
  66   (let ((encoding-vector (make-vector 256 0)))
  67     (dotimes (i 128)
  68       (aset encoding-vector i i))
  69     (dotimes (i 128)
  70       (aset encoding-vector (+ i 128) (aref v i)))
  71     ;; Add equivalent characters to the encoder so that we can unify
  72     ;; on encoding.
  73     (let* ((tab (make-translation-table-from-vector encoding-vector))
  74            ;; Translation table used for encoding:
  75            (encode-table (char-table-extra-slot tab 0)))
  76       (map-char-table (lambda (c v)
  77                         (if v
  78                             (let ((c1 (aref encode-table v)))
  79                               (if c1    ; we encode that unicode
  80                                   (aset encode-table c c1)))))
  81                       ucs-mule-to-mule-unicode)
  82       tab)))
  83
  84 (defsubst cp-valid-codes (v)
  85   "Derive a valid-codes list for translation vector V.
  86 See `make-coding-system'."
  87   (let (pairs
  88         (i 128)                         ; index into v
  89         (start 0)                       ; start of a valid range
  90         (end 127))                      ; end of a valid range
  91     (while (< i 256)
  92       (if (aref v (- i 128))            ; start or extend range
  93           (progn
  94             (setq end i)
  95             (unless start (setq start i)))
  96         (if start
  97             (push (cons start end) pairs))
  98         (setq start nil))
  99       (setq i (1+ i)))
 100     (if start (push (cons start end) pairs))
 101     (nreverse pairs)))
 102
 103 ;; Fix things that have been, or might be, done by codepage.el.
 104 (eval-after-load "codepage"
 105   '(progn
 106
 107 ;; Semi-dummy version for the stuff in codepage.el which we don't
 108 ;; define here.  (Used by mule-diag.)
 109 (defun cp-supported-codepages ()
 110   "Return an alist of supported codepages.
 111
 112 Each association in the alist has the form (NNN . CHARSET), where NNN is the
 113 codepage number, and CHARSET is the MULE charset which is the closest match
 114 for the character set supported by that codepage.
 115
 116 A codepage NNN is supported if a variable called `cpNNN-decode-table' exists,
 117 is a vector, and has a charset property."
 118   '(("774" . latin-iso8859-4) ("770" . latin-iso8859-4)
 119     ("773" . latin-iso8859-4)))
 120
 121 ;; A version which doesn't override the coding systems set up by this
 122 ;; file.  It could still be used for the few missing ones from
 123 ;; codepage.el.
 124 (defun codepage-setup (codepage)
 125   "Create a coding system cpCODEPAGE to support the IBM codepage CODEPAGE.
 126
 127 These coding systems are meant for encoding and decoding 8-bit non-ASCII
 128 characters used by the IBM codepages, typically in conjunction with files
 129 read/written by MS-DOS software, or for display on the MS-DOS terminal."
 130   (interactive
 131    (let ((completion-ignore-case t)
 132          (candidates (cp-supported-codepages)))
 133      (list (completing-read "Setup DOS Codepage (default 437): " candidates
 134                             nil t nil nil "437"))))
 135   (let ((cp (format "cp%s" codepage)))
 136     (unless (coding-system-p (intern cp))
 137       (cp-make-coding-systems-for-codepage
 138        cp (cp-charset-for-codepage cp) (cp-offset-for-codepage cp))))))
 139 )                                       ; eval-after-load
 140
 141 ;; Macro to allow ccl compilation at byte-compile time, avoiding
 142 ;; loading ccl.
 143 ;;;###autoload
 144 (defmacro cp-make-coding-system (name v &optional doc-string mnemonic)
 145   "Make coding system NAME for and 8-bit, extended-ASCII character set.
 146 V is a 128-long vector of characters to translate the upper half of
 147 the character set.  DOC-STRING and MNEMONIC are used as the
 148 corresponding args of `make-coding-system'.  If MNEMONIC isn't given,
 149 ?* is used.
 150 Return an updated `non-iso-charset-alist'."
 151   (let* ((encoder (intern (format "encode-%s" name)))
 152          (decoder (intern (format "decode-%s" name)))
 153          (ccl-decoder
 154           (ccl-compile
 155            `(4
 156              ((loop
 157                (read r1)
 158                (if (r1 < 128) ;; ASCII
 159                    (r0 = ,(charset-id 'ascii))
 160                  (if (r1 < 160)
 161                      (r0 = ,(charset-id 'eight-bit-control))
 162                    (r0 = ,(charset-id 'eight-bit-graphic))))
 163                (translate-character ,decoder r0 r1)
 164                ;; Allow fragmentation on decoding -- relevant for
 165                ;; Cyrillic, Greek and, possibly Arabic and Hebrew.
 166                (translate-character utf-translation-table-for-decode r0 r1)
 167                (write-multibyte-character r0 r1)
 168                (repeat))))))
 169          (ccl-encoder
 170           (ccl-compile
 171            `(1
 172              ((loop
 173                (read-multibyte-character r0 r1)
 174                (translate-character ,encoder r0 r1)
 175                (if (r0 != ,(charset-id 'ascii))
 176                    (if (r0 != ,(charset-id 'eight-bit-graphic))
 177                        (if (r0 != ,(charset-id 'eight-bit-control))
 178                            (r1 = ??))))
 179                (write-repeat r1)))))))
 180     `(let ((translation-table (cp-make-translation-table ,v))
 181            (codes (cp-valid-codes ,v)))
 182        (define-translation-table ',decoder translation-table)
 183        (define-translation-table ',encoder
 184          (char-table-extra-slot translation-table 0))
 185        (make-coding-system
 186         ',name 4 ,(or mnemonic ?*)
 187         (or ,doc-string (format "%s encoding" ',name))
 188         (cons ,ccl-decoder ,ccl-encoder)
 189         (list (cons 'safe-chars (get ',encoder 'translation-table))
 190               (cons 'valid-codes codes)
 191               (cons 'mime-charset ',name)
 192               ;; For Quail translation.  Fixme: this should really be
 193               ;; a separate table that only translates the coding
 194               ;; system's safe-chars.
 195               (cons 'translation-table-for-input 'ucs-mule-to-mule-unicode)))
 196        (let ((slot (assq ',name non-iso-charset-alist))
 197              (elt (list nil                     ; charset list
 198                         ',decoder
 199                         (let (l)                ; code range
 200                           (dolist (elt (reverse codes))
 201                             (push (cdr elt) l)
 202                             (push (car elt) l))
 203                           (list l)))))
 204          (if (not slot)
 205              (push (cons ',name elt) non-iso-charset-alist)
 206            (setcdr slot elt)
 207            non-iso-charset-alist)))))
 208
 209 (eval-when-compile (defvar non-iso-charset-alist))
 210
 211 ;; These tables were mostly derived by running somthing like
 212 ;; `recode -f cpxxx/..utf-8' on a binary file filled by
 213 ;; `(dotimes (i 128) (insert ?? ?\\ (+ 128 i) ?\n))' and then
 214 ;; exchanging the ?\� entries for nil.  iconv was used instead in some
 215 ;; cases.
 216
 217 ;; Fixme: Do better for mode-line mnemonics?
 218
 219 ;;;###autoload(autoload-coding-system 'cp437 '(require 'code-pages))
 220 (cp-make-coding-system
 221  cp437
 222  [?\Ç
 223   ?\ü
 224   ?\é
 225   ?\â
 226   ?\ä
 227   ?\à
 228   ?\å
 229   ?\ç
 230   ?\ê
 231   ?\ë
 232   ?\è
 233   ?\ï
 234   ?\î
 235   ?\ì
 236   ?\Ä
 237   ?\Å
 238   ?\É
 239   ?\æ
 240   ?\Æ
 241   ?\ô
 242   ?\ö
 243   ?\ò
 244   ?\û
 245   ?\ù
 246   ?\ÿ
 247   ?\Ö
 248   ?\Ü
 249   ?\¢
 250   ?\£
 251   ?\¥
 252   ?\₧
 253   ?\ƒ
 254   ?\á
 255   ?\í
 256   ?\ó
 257   ?\ú
 258   ?\ñ
 259   ?\Ñ
 260   ?\ª
 261   ?\º
 262   ?\¿
 263   ?\⌐
 264   ?\¬
 265   ?\½
 266   ?\¼
 267   ?\¡
 268   ?\«
 269   ?\»
 270   ?\░
 271   ?\▒
 272   ?\▓
 273   ?\│
 274   ?\┤
 275   ?\╡
 276   ?\╢
 277   ?\╖
 278   ?\╕
 279   ?\╣
 280   ?\║
 281   ?\╗
 282   ?\╝
 283   ?\╜
 284   ?\╛
 285   ?\┐
 286   ?\└
 287   ?\┴
 288   ?\┬
 289   ?\├
 290   ?\─
 291   ?\┼
 292   ?\╞
 293   ?\╟
 294   ?\╚
 295   ?\╔
 296   ?\╩
 297   ?\╦
 298   ?\╠
 299   ?\═
 300   ?\╬
 301   ?\╧
 302   ?\╨
 303   ?\╤
 304   ?\╥
 305   ?\╙
 306   ?\╘
 307   ?\╒
 308   ?\╓
 309   ?\╫
 310   ?\╪
 311   ?\┘
 312   ?\┌
 313   ?\█
 314   ?\▄
 315   ?\▌
 316   ?\▐
 317   ?\▀
 318   ?\α
 319   ?\ß
 320   ?\Γ
 321   ?\π
 322   ?\Σ
 323   ?\σ
 324   ?\µ
 325   ?\τ
 326   ?\Φ
 327   ?\Θ
 328   ?\Ω
 329   ?\δ
 330   ?\∞
 331   ?\φ
 332   ?\ε
 333   ?\∩
 334   ?\≡
 335   ?\±
 336   ?\≥
 337   ?\≤
 338   ?\⌠
 339   ?\⌡
 340   ?\÷
 341   ?\≈
 342   ?\°
 343   ?\·
 344   ?\•
 345   ?\√
 346   ?\ⁿ
 347   ?\²
 348   ?\■
 349   ?\ ])
 350
 351 ;;;###autoload(autoload-coding-system 'cp737 '(require 'code-pages))
 352 (cp-make-coding-system
 353  cp737
 354  [?\Α
 355   ?\Β
 356   ?\Γ
 357   ?\Δ
 358   ?\Ε
 359   ?\Ζ
 360   ?\Η
 361   ?\Θ
 362   ?\Ι
 363   ?\Κ
 364   ?\Λ
 365   ?\Μ
 366   ?\Ν
 367   ?\Ξ
 368   ?\Ο
 369   ?\Π
 370   ?\Ρ
 371   ?\Σ
 372   ?\Τ
 373   ?\Υ
 374   ?\Φ
 375   ?\Χ
 376   ?\Ψ
 377   ?\Ω
 378   ?\α
 379   ?\β
 380   ?\γ
 381   ?\δ
 382   ?\ε
 383   ?\ζ
 384   ?\η
 385   ?\θ
 386   ?\ι
 387   ?\κ
 388   ?\λ
 389   ?\μ
 390   ?\ν
 391   ?\ξ
 392   ?\ο
 393   ?\π
 394   ?\ρ
 395   ?\σ
 396   ?\ς
 397   ?\τ
 398   ?\υ
 399   ?\φ
 400   ?\χ
 401   ?\ψ
 402   ?\░
 403   ?\▒
 404   ?\▓
 405   ?\│
 406   ?\┤
 407   ?\╡
 408   ?\╢
 409   ?\╖
 410   ?\╕
 411   ?\╣
 412   ?\║
 413   ?\╗
 414   ?\╝
 415   ?\╜
 416   ?\╛
 417   ?\┐
 418   ?\└
 419   ?\┴
 420   ?\┬
 421   ?\├
 422   ?\─
 423   ?\┼
 424   ?\╞
 425   ?\╟
 426   ?\╚
 427   ?\╔
 428   ?\╩
 429   ?\╦
 430   ?\╠
 431   ?\═
 432   ?\╬
 433   ?\╧
 434   ?\╨
 435   ?\╤
 436   ?\╥
 437   ?\╙
 438   ?\╘
 439   ?\╒
 440   ?\╓
 441   ?\╫
 442   ?\╪
 443   ?\┘
 444   ?\┌
 445   ?\█
 446   ?\▄
 447   ?\▌
 448   ?\▐
 449   ?\▀
 450   ?\ω
 451   ?\ά
 452   ?\έ
 453   ?\ή
 454   ?\ϊ
 455   ?\ί
 456   ?\ό
 457   ?\ύ
 458   ?\ϋ
 459   ?\ώ
 460   ?\Ά
 461   ?\Έ
 462   ?\Ή
 463   ?\Ί
 464   ?\Ό
 465   ?\Ύ
 466   ?\Ώ
 467   ?\±
 468   ?\≥
 469   ?\≤
 470   ?\Ϊ
 471   ?\Ϋ
 472   ?\÷
 473   ?\≈
 474   ?\°
 475   ?\∙
 476   ?\·
 477   ?\√
 478   ?\ⁿ
 479   ?\²
 480   ?\■
 481   ?\ ])
 482 (coding-system-put 'cp737 'mime-charset nil) ; not in IANA list
 483
 484 ;;;###autoload(autoload-coding-system 'cp775 '(require 'code-pages))
 485 (cp-make-coding-system
 486  cp775
 487  [?\Ć
 488   ?\ü
 489   ?\é
 490   ?\ā
 491   ?\ä
 492   ?\ģ
 493   ?\å
 494   ?\ć
 495   ?\ł
 496   ?\ē
 497   ?\Ŗ
 498   ?\ŗ
 499   ?\ī
 500   ?\Ź
 501   ?\Ä
 502   ?\Å
 503   ?\É
 504   ?\æ
 505   ?\Æ
 506   ?\ō
 507   ?\ö
 508   ?\Ģ
 509   ?\¢
 510   ?\Ś
 511   ?\ś
 512   ?\Ö
 513   ?\Ü
 514   ?\ø
 515   ?\£
 516   ?\Ø
 517   ?\×
 518   ?\¤
 519   ?\Ā
 520   ?\Ī
 521   ?\ó
 522   ?\Ż
 523   ?\ż
 524   ?\ź
 525   ?\”
 526   ?\¦
 527   ?\©
 528   ?\®
 529   ?\¬
 530   ?\½
 531   ?\¼
 532   ?\Ł
 533   ?\«
 534   ?\»
 535   ?\░
 536   ?\▒
 537   ?\▓
 538   ?\│
 539   ?\┤
 540   ?\Ą
 541   ?\Č
 542   ?\Ę
 543   ?\Ė
 544   ?\╣
 545   ?\║
 546   ?\╗
 547   ?\╝
 548   ?\Į
 549   ?\Š
 550   ?\┐
 551   ?\└
 552   ?\┴
 553   ?\┬
 554   ?\├
 555   ?\─
 556   ?\┼
 557   ?\Ų
 558   ?\Ū
 559   ?\╚
 560   ?\╔
 561   ?\╩
 562   ?\╦
 563   ?\╠
 564   ?\═
 565   ?\╬
 566   ?\Ž
 567   ?\ą
 568   ?\č
 569   ?\ę
 570   ?\ė
 571   ?\į
 572   ?\š
 573   ?\ų
 574   ?\ū
 575   ?\ž
 576   ?\┘
 577   ?\┌
 578   ?\█
 579   ?\▄
 580   ?\▌
 581   ?\▐
 582   ?\▀
 583   ?\Ó
 584   ?\ß
 585   ?\Ō
 586   ?\Ń
 587   ?\õ
 588   ?\Õ
 589   ?\µ
 590   ?\ń
 591   ?\Ķ
 592   ?\ķ
 593   ?\Ļ
 594   ?\ļ
 595   ?\ņ
 596   ?\Ē
 597   ?\Ņ
 598   ?\’
 599   ?\
 600   ?\±
 601   ?\“
 602   ?\¾
 603   ?\¶
 604   ?\§
 605   ?\÷
 606   ?\„
 607   ?\°
 608   ?\∙
 609   ?\·
 610   ?\¹
 611   ?\³
 612   ?\²
 613   ?\■
 614   ?\ ])
 615
 616 ;;;###autoload(autoload-coding-system 'cp850 '(require 'code-pages))
 617 (cp-make-coding-system
 618  cp850
 619  [?\Ç
 620   ?\ü
 621   ?\é
 622   ?\â
 623   ?\ä
 624   ?\à
 625   ?\å
 626   ?\ç
 627   ?\ê
 628   ?\ë
 629   ?\è
 630   ?\ï
 631   ?\î
 632   ?\ì
 633   ?\Ä
 634   ?\Å
 635   ?\É
 636   ?\æ
 637   ?\Æ
 638   ?\ô
 639   ?\ö
 640   ?\ò
 641   ?\û
 642   ?\ù
 643   ?\ÿ
 644   ?\Ö
 645   ?\Ü
 646   ?\ø
 647   ?\£
 648   ?\Ø
 649   ?\×
 650   ?\ƒ
 651   ?\á
 652   ?\í
 653   ?\ó
 654   ?\ú
 655   ?\ñ
 656   ?\Ñ
 657   ?\ª
 658   ?\º
 659   ?\¿
 660   ?\®
 661   ?\¬
 662   ?\½
 663   ?\¼
 664   ?\¡
 665   ?\«
 666   ?\»
 667   ?\░
 668   ?\▒
 669   ?\▓
 670   ?\│
 671   ?\┤
 672   ?\Á
 673   ?\Â
 674   ?\À
 675   ?\©
 676   ?\╣
 677   ?\║
 678   ?\╗
 679   ?\╝
 680   ?\¢
 681   ?\¥
 682   ?\┐
 683   ?\└
 684   ?\┴
 685   ?\┬
 686   ?\├
 687   ?\─
 688   ?\┼
 689   ?\ã
 690   ?\Ã
 691   ?\╚
 692   ?\╔
 693   ?\╩
 694   ?\╦
 695   ?\╠
 696   ?\═
 697   ?\╬
 698   ?\¤
 699   ?\ð
 700   ?\Ð
 701   ?\Ê
 702   ?\Ë
 703   ?\È
 704   ?\ı
 705   ?\Í
 706   ?\Î
 707   ?\Ï
 708   ?\┘
 709   ?\┌
 710   ?\█
 711   ?\▄
 712   ?\¦
 713   ?\Ì
 714   ?\▀
 715   ?\Ó
 716   ?\ß
 717   ?\Ô
 718   ?\Ò
 719   ?\õ
 720   ?\Õ
 721   ?\µ
 722   ?\þ
 723   ?\Þ
 724   ?\Ú
 725   ?\Û
 726   ?\Ù
 727   ?\ý
 728   ?\Ý
 729   ?\¯
 730   ?\´
 731   ?\
 732   ?\±
 733   ?\‗
 734   ?\¾
 735   ?\¶
 736   ?\§
 737   ?\÷
 738   ?\¸
 739   ?\°
 740   ?\¨
 741   ?\·
 742   ?\¹
 743   ?\³
 744   ?\²
 745   ?\■
 746   ?\ ])
 747
 748 ;;;###autoload(autoload-coding-system 'cp851 '(require 'code-pages))
 749 (cp-make-coding-system
 750  cp851
 751  [?\Ç
 752   ?\ü
 753   ?\é
 754   ?\â
 755   ?\ä
 756   ?\à
 757   ?\Ά
 758   ?\ç
 759   ?\ê
 760   ?\ë
 761   ?\è
 762   ?\ï
 763   ?\î
 764   ?\Έ
 765   ?\Ä
 766   ?\Ή
 767   ?\Ί
 768   nil
 769   ?\Ό
 770   ?\ô
 771   ?\ö
 772   ?\Ύ
 773   ?\û
 774   ?\ù
 775   ?\Ώ
 776   ?\Ö
 777   ?\Ü
 778   ?\ά
 779   ?\£
 780   ?\έ
 781   ?\ή
 782   ?\ί
 783   ?\ϊ
 784   ?\ΐ
 785   ?\ό
 786   ?\ύ
 787   ?\Α
 788   ?\Β
 789   ?\Γ
 790   ?\Δ
 791   ?\Ε
 792   ?\Ζ
 793   ?\Η
 794   ?\½
 795   ?\Θ
 796   ?\Ι
 797   ?\«
 798   ?\»
 799   ?\░
 800   ?\▒
 801   ?\▓
 802   ?\│
 803   ?\┤
 804   ?\Κ
 805   ?\Λ
 806   ?\Ν
 807   ?\Μ
 808   ?\╣
 809   ?\║
 810   ?\╗
 811   ?\╝
 812   ?\Ξ
 813   ?\Ο
 814   ?\┐
 815   ?\└
 816   ?\┴
 817   ?\┬
 818   ?\├
 819   ?\─
 820   ?\┼
 821   ?\Π
 822   ?\Ρ
 823   ?\╚
 824   ?\╔
 825   ?\╩
 826   ?\╦
 827   ?\╠
 828   ?\═
 829   ?\╬
 830   ?\Σ
 831   ?\Τ
 832   ?\Υ
 833   ?\Φ
 834   ?\Χ
 835   ?\Ψ
 836   ?\Ω
 837   ?\α
 838   ?\β
 839   ?\γ
 840   ?\┘
 841   ?\┌
 842   ?\█
 843   ?\▄
 844   ?\δ
 845   ?\ε
 846   ?\▀
 847   ?\ζ
 848   ?\η
 849   ?\θ
 850   ?\ι
 851   ?\κ
 852   ?\λ
 853   ?\μ
 854   ?\ν
 855   ?\ξ
 856   ?\ο
 857   ?\π
 858   ?\ρ
 859   ?\σ
 860   ?\ς
 861   ?\τ
 862   ?\´
 863   ?\
 864   ?\±
 865   ?\υ
 866   ?\φ
 867   ?\χ
 868   ?\§
 869   ?\ψ
 870   ?\˛
 871   ?\°
 872   ?\¨
 873   ?\ω
 874   ?\ϋ
 875   ?\ΰ
 876   ?\ώ
 877   ?\■
 878   ?\ ])
 879
 880 ;;;###autoload(autoload-coding-system 'cp852 '(require 'code-pages))
 881 (cp-make-coding-system
 882  cp852
 883  [?\Ç
 884   ?\ü
 885   ?\é
 886   ?\â
 887   ?\ä
 888   ?\ů
 889   ?\ć
 890   ?\ç
 891   ?\ł
 892   ?\ë
 893   ?\Ő
 894   ?\ő
 895   ?\î
 896   ?\Ź
 897   ?\Ä
 898   ?\Ć
 899   ?\É
 900   ?\Ĺ
 901   ?\ĺ
 902   ?\ô
 903   ?\ö
 904   ?\Ľ
 905   ?\ľ
 906   ?\Ś
 907   ?\ś
 908   ?\Ö
 909   ?\Ü
 910   ?\Ť
 911   ?\ť
 912   ?\Ł
 913   ?\×
 914   ?\č
 915   ?\á
 916   ?\í
 917   ?\ó
 918   ?\ú
 919   ?\Ą
 920   ?\ą
 921   ?\Ž
 922   ?\ž
 923   ?\Ę
 924   ?\ę
 925   ?\¬
 926   ?\ź
 927   ?\Č
 928   ?\ş
 929   ?\«
 930   ?\»
 931   ?\░
 932   ?\▒
 933   ?\▓
 934   ?\│
 935   ?\┤
 936   ?\Á
 937   ?\Â
 938   ?\Ě
 939   ?\Ş
 940   ?\╣
 941   ?\║
 942   ?\╗
 943   ?\╝
 944   ?\Ż
 945   ?\ż
 946   ?\┐
 947   ?\└
 948   ?\┴
 949   ?\┬
 950   ?\├
 951   ?\─
 952   ?\┼
 953   ?\Ă
 954   ?\ă
 955   ?\╚
 956   ?\╔
 957   ?\╩
 958   ?\╦
 959   ?\╠
 960   ?\═
 961   ?\╬
 962   ?\¤
 963   ?\đ
 964   ?\Đ
 965   ?\Ď
 966   ?\Ë
 967   ?\ď
 968   ?\Ň
 969   ?\Í
 970   ?\Î
 971   ?\ě
 972   ?\┘
 973   ?\┌
 974   ?\█
 975   ?\▄
 976   ?\Ţ
 977   ?\Ů
 978   ?\▀
 979   ?\Ó
 980   ?\ß
 981   ?\Ô
 982   ?\Ń
 983   ?\ń
 984   ?\ň
 985   ?\Š
 986   ?\š
 987   ?\Ŕ
 988   ?\Ú
 989   ?\ŕ
 990   ?\Ű
 991   ?\ý
 992   ?\Ý
 993   ?\ţ
 994   ?\´
 995   ?\
 996   ?\˝
 997   ?\˛
 998   ?\ˇ
 999   ?\˘
1000   ?\§
1001   ?\÷
1002   ?\¸
1003   ?\°
1004   ?\¨
1005   ?\˙
1006   ?\ű
1007   ?\Ř
1008   ?\ř
1009   ?\■
1010   ?\ ])
1011
1012 ;;;###autoload(autoload-coding-system 'cp855 '(require 'code-pages))
1013 (cp-make-coding-system
1014  cp855
1015  [?\ђ
1016   ?\Ђ
1017   ?\ѓ
1018   ?\Ѓ
1019   ?\ё
1020   ?\Ё
1021   ?\є
1022   ?\Є
1023   ?\ѕ
1024   ?\Ѕ
1025   ?\і
1026   ?\І
1027   ?\ї
1028   ?\Ї
1029   ?\ј
1030   ?\Ј
1031   ?\љ
1032   ?\Љ
1033   ?\њ
1034   ?\Њ
1035   ?\ћ
1036   ?\Ћ
1037   ?\ќ
1038   ?\Ќ
1039   ?\ў
1040   ?\Ў
1041   ?\џ
1042   ?\Џ
1043   ?\ю
1044   ?\Ю
1045   ?\ъ
1046   ?\Ъ
1047   ?\а
1048   ?\А
1049   ?\б
1050   ?\Б
1051   ?\ц
1052   ?\Ц
1053   ?\д
1054   ?\Д
1055   ?\е
1056   ?\Е
1057   ?\ф
1058   ?\Ф
1059   ?\г
1060   ?\Г
1061   ?\«
1062   ?\»
1063   ?\░
1064   ?\▒
1065   ?\▓
1066   ?\│
1067   ?\┤
1068   ?\х
1069   ?\Х
1070   ?\и
1071   ?\И
1072   ?\╣
1073   ?\║
1074   ?\╗
1075   ?\╝
1076   ?\й
1077   ?\Й
1078   ?\┐
1079   ?\└
1080   ?\┴
1081   ?\┬
1082   ?\├
1083   ?\─
1084   ?\┼
1085   ?\к
1086   ?\К
1087   ?\╚
1088   ?\╔
1089   ?\╩
1090   ?\╦
1091   ?\╠
1092   ?\═
1093   ?\╬
1094   ?\¤
1095   ?\л
1096   ?\Л
1097   ?\м
1098   ?\М
1099   ?\н
1100   ?\Н
1101   ?\о
1102   ?\О
1103   ?\п
1104   ?\┘
1105   ?\┌
1106   ?\█
1107   ?\▄
1108   ?\П
1109   ?\я
1110   ?\▀
1111   ?\Я
1112   ?\р
1113   ?\Р
1114   ?\с
1115   ?\С
1116   ?\т
1117   ?\Т
1118   ?\у
1119   ?\У
1120   ?\ж
1121   ?\Ж
1122   ?\в
1123   ?\В
1124   ?\ь
1125   ?\Ь
1126   ?\´
1127   ?\
1128   ?\ы
1129   ?\Ы
1130   ?\з
1131   ?\З
1132   ?\ш
1133   ?\Ш
1134   ?\э
1135   ?\Э
1136   ?\щ
1137   ?\Щ
1138   ?\ч
1139   ?\Ч
1140   nil
1141   ?\■
1142   ?\ ])
1143
1144 ;;;###autoload(autoload-coding-system 'cp857 '(require 'code-pages))
1145 (cp-make-coding-system
1146  cp857
1147  [?\Ç
1148   ?\ü
1149   ?\é
1150   ?\â
1151   ?\ä
1152   ?\à
1153   ?\å
1154   ?\ç
1155   ?\ê
1156   ?\ë
1157   ?\è
1158   ?\ï
1159   ?\î
1160   ?\ı
1161   ?\Ä
1162   ?\Å
1163   ?\É
1164   ?\æ
1165   ?\Æ
1166   ?\ô
1167   ?\ö
1168   ?\ò
1169   ?\û
1170   ?\ù
1171   ?\İ
1172   ?\Ö
1173   ?\Ü
1174   ?\ø
1175   ?\£
1176   ?\Ø
1177   ?\Ş
1178   ?\ş
1179   ?\á
1180   ?\í
1181   ?\ó
1182   ?\ú
1183   ?\ñ
1184   ?\Ñ
1185   ?\Ğ
1186   ?\ğ
1187   ?\¿
1188   ?\®
1189   ?\¬
1190   ?\½
1191   ?\¼
1192   ?\¡
1193   ?\«
1194   ?\»
1195   ?\░
1196   ?\▒
1197   ?\▓
1198   ?\│
1199   ?\┤
1200   ?\Á
1201   ?\Â
1202   ?\À
1203   ?\©
1204   ?\╣
1205   ?\║
1206   ?\╗
1207   ?\╝
1208   ?\¢
1209   ?\¥
1210   ?\┐
1211   ?\└
1212   ?\┴
1213   ?\┬
1214   ?\├
1215   ?\─
1216   ?\┼
1217   ?\ã
1218   ?\Ã
1219   ?\╚
1220   ?\╔
1221   ?\╩
1222   ?\╦
1223   ?\╠
1224   ?\═
1225   ?\╬
1226   ?\¤
1227   ?\º
1228   ?\ª
1229   ?\Ê
1230   ?\Ë
1231   ?\È
1232   nil
1233   ?\Í
1234   ?\Î
1235   ?\Ï
1236   ?\┘
1237   ?\┌
1238   ?\█
1239   ?\▄
1240   ?\¦
1241   ?\Ì
1242   ?\▀
1243   ?\Ó
1244   ?\ß
1245   ?\Ô
1246   ?\Ò
1247   ?\õ
1248   ?\Õ
1249   ?\µ
1250   nil
1251   ?\×
1252   ?\Ú
1253   ?\Û
1254   ?\Ù
1255   ?\ì
1256   ?\ÿ
1257   ?\—
1258   ?\´
1259   ?\
1260   ?\±
1261   nil
1262   ?\¾
1263   ?\¶
1264   ?\§
1265   ?\÷
1266   ?\˛
1267   ?\°
1268   ?\¨
1269   ?\˙
1270   ?\¹
1271   ?\³
1272   ?\²
1273   ?\■
1274   ?\ ])
1275
1276 ;;;###autoload(autoload-coding-system 'cp860 '(require 'code-pages))
1277 (cp-make-coding-system
1278  cp860
1279  [?\Ç
1280   ?\ü
1281   ?\é
1282   ?\â
1283   ?\ã
1284   ?\à
1285   ?\Á
1286   ?\ç
1287   ?\ê
1288   ?\Ê
1289   ?\è
1290   ?\Î
1291   ?\Ô
1292   ?\ì
1293   ?\Ã
1294   ?\Â
1295   ?\É
1296   ?\À
1297   ?\È
1298   ?\ô
1299   ?\õ
1300   ?\ò
1301   ?\Ú
1302   ?\ù
1303   ?\Ì
1304   ?\Õ
1305   ?\Ü
1306   ?\¢
1307   ?\£
1308   ?\Ù
1309   ?\₧
1310   ?\Ò
1311   ?\á
1312   ?\í
1313   ?\ó
1314   ?\ú
1315   ?\ñ
1316   ?\Ñ
1317   ?\ª
1318   ?\º
1319   ?\¿
1320   ?\Ó
1321   ?\¬
1322   ?\½
1323   ?\¼
1324   ?\¡
1325   ?\«
1326   ?\»
1327   ?\░
1328   ?\▒
1329   ?\▓
1330   ?\│
1331   ?\┤
1332   ?\╡
1333   ?\╢
1334   ?\╖
1335   ?\╕
1336   ?\╣
1337   ?\║
1338   ?\╗
1339   ?\╝
1340   ?\╜
1341   ?\╛
1342   ?\┐
1343   ?\└
1344   ?\┴
1345   ?\┬
1346   ?\├
1347   ?\─
1348   ?\┼
1349   ?\╞
1350   ?\╟
1351   ?\╚
1352   ?\╔
1353   ?\╩
1354   ?\╦
1355   ?\╠
1356   ?\═
1357   ?\╬
1358   ?\╧
1359   ?\╨
1360   ?\╤
1361   ?\╥
1362   ?\╙
1363   ?\╘
1364   ?\╒
1365   ?\╓
1366   ?\╫
1367   ?\╪
1368   ?\┘
1369   ?\┌
1370   ?\█
1371   ?\▄
1372   ?\▌
1373   ?\▐
1374   ?\▀
1375   ?\α
1376   ?\ß
1377   ?\Γ
1378   ?\π
1379   ?\Σ
1380   ?\σ
1381   ?\µ
1382   ?\τ
1383   ?\Φ
1384   ?\Θ
1385   ?\Ω
1386   ?\δ
1387   ?\∞
1388   ?\φ
1389   ?\ε
1390   ?\∩
1391   ?\≡
1392   ?\±
1393   ?\≥
1394   ?\≤
1395   ?\⌠
1396   ?\⌡
1397   ?\÷
1398   ?\≈
1399   ?\°
1400   ?\·
1401   ?\•
1402   ?\√
1403   ?\ⁿ
1404   ?\²
1405   ?\■
1406   ?\ ])
1407
1408 ;;;###autoload(autoload-coding-system 'cp861 '(require 'code-pages))
1409 (cp-make-coding-system
1410  cp861
1411  [?\Ç
1412   ?\ü
1413   ?\é
1414   ?\â
1415   ?\ä
1416   ?\à
1417   ?\å
1418   ?\ç
1419   ?\ê
1420   ?\ë
1421   ?\è
1422   ?\Ð
1423   ?\ð
1424   ?\Þ
1425   ?\Ä
1426   ?\Å
1427   ?\É
1428   ?\æ
1429   ?\Æ
1430   ?\ô
1431   ?\ö
1432   ?\þ
1433   ?\û
1434   ?\Ý
1435   ?\ý
1436   ?\Ö
1437   ?\Ü
1438   ?\ø
1439   ?\£
1440   ?\Ø
1441   ?\₧
1442   ?\Ò
1443   ?\á
1444   ?\í
1445   ?\ó
1446   ?\ú
1447   ?\Á
1448   ?\Í
1449   ?\Ó
1450   ?\Ú
1451   ?\¿
1452   nil
1453   ?\¬
1454   ?\½
1455   ?\¼
1456   ?\¡
1457   ?\«
1458   ?\»
1459   ?\░
1460   ?\▒
1461   ?\▓
1462   ?\│
1463   ?\┤
1464   ?\╡
1465   ?\╢
1466   ?\╖
1467   ?\╕
1468   ?\╣
1469   ?\║
1470   ?\╗
1471   ?\╝
1472   ?\╜
1473   ?\╛
1474   ?\┐
1475   ?\└
1476   ?\┴
1477   ?\┬
1478   ?\├
1479   ?\─
1480   ?\┼
1481   ?\╞
1482   ?\╟
1483   ?\╚
1484   ?\╔
1485   ?\╩
1486   ?\╦
1487   ?\╠
1488   ?\═
1489   ?\╬
1490   ?\╧
1491   ?\╨
1492   ?\╤
1493   ?\╥
1494   ?\╙
1495   ?\╘
1496   ?\╒
1497   ?\╓
1498   ?\╫
1499   ?\╪
1500   ?\┘
1501   ?\┌
1502   ?\█
1503   ?\▄
1504   ?\▌
1505   ?\▐
1506   ?\▀
1507   ?\α
1508   ?\ß
1509   ?\Γ
1510   ?\π
1511   ?\Σ
1512   ?\σ
1513   ?\µ
1514   ?\τ
1515   ?\Φ
1516   ?\Θ
1517   ?\Ω
1518   ?\δ
1519   ?\∞
1520   ?\φ
1521   ?\ε
1522   ?\∩
1523   ?\≡
1524   ?\±
1525   ?\≥
1526   ?\≤
1527   ?\⌠
1528   ?\⌡
1529   ?\÷
1530   ?\≈
1531   ?\°
1532   ?\·
1533   ?\•
1534   ?\√
1535   ?\ⁿ
1536   ?\²
1537   ?\■
1538   ?\ ])
1539
1540 ;;;###autoload(autoload-coding-system 'cp862 '(require 'code-pages))
1541 (cp-make-coding-system
1542  cp862
1543  [?\א
1544   ?\ב
1545   ?\ג
1546   ?\ד
1547   ?\ה
1548   ?\ו
1549   ?\ז
1550   ?\ח
1551   ?\ט
1552   ?\י
1553   ?\ך
1554   ?\כ
1555   ?\ל
1556   ?\ם
1557   ?\מ
1558   ?\ן
1559   ?\נ
1560   ?\ס
1561   ?\ע
1562   ?\ף
1563   ?\פ
1564   ?\ץ
1565   ?\צ
1566   ?\ק
1567   ?\ר
1568   ?\ש
1569   ?\ת
1570   ?\¢
1571   ?\£
1572   ?\Ù
1573   ?\₧
1574   ?\Ò
1575   ?\á
1576   ?\í
1577   ?\ó
1578   ?\ú
1579   ?\ñ
1580   ?\Ñ
1581   ?\ª
1582   ?\º
1583   ?\¿
1584   nil
1585   ?\¬
1586   ?\½
1587   ?\¼
1588   ?\¡
1589   ?\«
1590   ?\»
1591   ?\░
1592   ?\▒
1593   ?\▓
1594   ?\│
1595   ?\┤
1596   ?\╡
1597   ?\╢
1598   ?\╖
1599   ?\╕
1600   ?\╣
1601   ?\║
1602   ?\╗
1603   ?\╝
1604   ?\╜
1605   ?\╛
1606   ?\┐
1607   ?\└
1608   ?\┴
1609   ?\┬
1610   ?\├
1611   ?\─
1612   ?\┼
1613   ?\╞
1614   ?\╟
1615   ?\╚
1616   ?\╔
1617   ?\╩
1618   ?\╦
1619   ?\╠
1620   ?\═
1621   ?\╬
1622   ?\╧
1623   ?\╨
1624   ?\╤
1625   ?\╥
1626   ?\╙
1627   ?\╘
1628   ?\╒
1629   ?\╓
1630   ?\╫
1631   ?\╪
1632   ?\┘
1633   ?\┌
1634   ?\█
1635   ?\▄
1636   ?\▌
1637   ?\▐
1638   ?\▀
1639   ?\α
1640   ?\ß
1641   ?\Γ
1642   ?\π
1643   ?\Σ
1644   ?\σ
1645   ?\µ
1646   ?\τ
1647   ?\Φ
1648   ?\Θ
1649   ?\Ω
1650   ?\δ
1651   ?\∞
1652   ?\φ
1653   ?\ε
1654   ?\∩
1655   ?\≡
1656   ?\±
1657   ?\≥
1658   ?\≤
1659   ?\⌠
1660   ?\⌡
1661   ?\÷
1662   ?\≈
1663   ?\°
1664   ?\·
1665   ?\•
1666   ?\√
1667   ?\ⁿ
1668   ?\²
1669   ?\■
1670   ?\ ])
1671
1672 ;;;###autoload(autoload-coding-system 'cp863 '(require 'code-pages))
1673 (cp-make-coding-system
1674  cp863
1675  [?\Ç
1676   ?\ü
1677   ?\é
1678   ?\â
1679   ?\Â
1680   ?\à
1681   ?\¶
1682   ?\ç
1683   ?\ê
1684   ?\ë
1685   ?\è
1686   ?\ï
1687   ?\î
1688   ?\ì
1689   ?\À
1690   ?\§
1691   ?\É
1692   ?\È
1693   ?\Ê
1694   ?\ô
1695   ?\Ë
1696   ?\Ï
1697   ?\û
1698   ?\ù
1699   ?\¤
1700   ?\Ô
1701   ?\Ü
1702   ?\¢
1703   ?\£
1704   ?\Ù
1705   ?\Û
1706   ?\ƒ
1707   ?\¦
1708   ?\´
1709   ?\ó
1710   ?\ú
1711   ?\¨
1712   ?\¸
1713   ?\³
1714   ?\¯
1715   ?\Î
1716   ?\⌐
1717   ?\¬
1718   ?\½
1719   ?\¼
1720   ?\¾
1721   ?\«
1722   ?\»
1723   ?\░
1724   ?\▒
1725   ?\▓
1726   ?\│
1727   ?\┤
1728   ?\╡
1729   ?\╢
1730   ?\╖
1731   ?\╕
1732   ?\╣
1733   ?\║
1734   ?\╗
1735   ?\╝
1736   ?\╜
1737   ?\╛
1738   ?\┐
1739   ?\└
1740   ?\┴
1741   ?\┬
1742   ?\├
1743   ?\─
1744   ?\┼
1745   ?\╞
1746   ?\╟
1747   ?\╚
1748   ?\╔
1749   ?\╩
1750   ?\╦
1751   ?\╠
1752   ?\═
1753   ?\╬
1754   ?\╧
1755   ?\╨
1756   ?\╤
1757   ?\╥
1758   ?\╙
1759   ?\╘
1760   ?\╒
1761   ?\╓
1762   ?\╫
1763   ?\╪
1764   ?\┘
1765   ?\┌
1766   ?\█
1767   ?\▄
1768   ?\▌
1769   ?\▐
1770   ?\▀
1771   ?\α
1772   ?\ß
1773   ?\Γ
1774   ?\π
1775   ?\Σ
1776   ?\σ
1777   ?\µ
1778   ?\τ
1779   ?\Φ
1780   ?\Θ
1781   ?\Ω
1782   ?\δ
1783   ?\∞
1784   ?\∅
1785   ?\ε
1786   ?\∩
1787   ?\≡
1788   ?\±
1789   ?\≥
1790   ?\≤
1791   ?\⌠
1792   ?\⌡
1793   ?\÷
1794   ?\≈
1795   ?\∘
1796   ?\·
1797   ?\•
1798   ?\√
1799   ?\ⁿ
1800   ?\²
1801   ?\■
1802   ?\ ])
1803
1804 ;;;###autoload(autoload-coding-system 'cp864 '(require 'code-pages))
1805 (cp-make-coding-system
1806  cp864
1807  [?\°
1808   ?\·
1809   ?\∘
1810   ?\√
1811   ?\▒
1812   ?\─
1813   ?\│
1814   ?\┼
1815   ?\┤
1816   ?\┬
1817   ?\├
1818   ?\┴
1819   ?\┐
1820   ?\┌
1821   ?\└
1822   ?\┘
1823   ?\ß
1824   ?\∞
1825   ?\ø
1826   ?\±
1827   ?\½
1828   ?\¼
1829   ?\≈
1830   ?\«
1831   ?\»
1832   ?\ﻷ
1833   ?\ﻸ
1834   nil
1835   nil
1836   ?\ﻻ
1837   ?\ﻼ
1838   ?\
1839   nil
1840   ?\
1841   ?\ﺂ
1842   ?\£
1843   ?\¤
1844   ?\ﺄ
1845   nil
1846   nil
1847   ?\ﺎ
1848   ?\ب
1849   ?\ت
1850   ?\ث
1851   ?\،
1852   ?\ج
1853   ?\ح
1854   ?\خ
1855   ?\٠
1856   ?\١
1857   ?\٢
1858   ?\٣
1859   ?\٤
1860   ?\٥
1861   ?\٦
1862   ?\٧
1863   ?\٨
1864   ?\٩
1865   ?\ڤ
1866   ?\؛
1867   ?\س
1868   ?\ش
1869   ?\ص
1870   ?\؟
1871   ?\¢
1872   ?\ء
1873   ?\آ
1874   ?\أ
1875   ?\ؤ
1876   ?\ﻊ
1877   ?\ئ
1878   ?\ا
1879   ?\ﺑ
1880   ?\ة
1881   ?\ﺗ
1882   ?\ﺛ
1883   ?\ﺟ
1884   ?\ﺣ
1885   ?\ﺧ
1886   ?\د
1887   ?\ذ
1888   ?\ر
1889   ?\ز
1890   ?\ﺳ
1891   ?\ﺷ
1892   ?\ﺻ
1893   ?\ﺿ
1894   ?\ط
1895   ?\ظ
1896   ?\ﻋ
1897   ?\ﻏ
1898   ?\¦
1899   ?\¬
1900   ?\÷
1901   ?\×
1902   ?\ع
1903   ?\ـ
1904   ?\ﻒ
1905   ?\ﻖ
1906   ?\ﻛ
1907   ?\ﻞ
1908   ?\ﻣ
1909   ?\ﻦ
1910   ?\ﻫ
1911   ?\و
1912   ?\ى
1913   ?\ﻳ
1914   ?\ض
1915   ?\ﻢ
1916   ?\ﻎ
1917   ?\غ
1918   ?\م
1919   ?\ﹽ
1920   ?\ّ
1921   ?\ن
1922   ?\ه
1923   ?\ﻬ
1924   ?\ﻰ
1925   ?\ﻲ
1926   ?\ف
1927   ?\ق
1928   ?\ﻵ
1929   ?\ﻶ
1930   ?\ل
1931   ?\ك
1932   ?\ي
1933   ?\■
1934   ?\ ])
1935
1936 ;;;###autoload(autoload-coding-system 'cp865 '(require 'code-pages))
1937 (cp-make-coding-system
1938  cp865
1939  [?\Ç
1940   ?\ü
1941   ?\é
1942   ?\â
1943   ?\ä
1944   ?\à
1945   ?\å
1946   ?\ç
1947   ?\ê
1948   ?\ë
1949   ?\è
1950   ?\ï
1951   ?\î
1952   ?\ì
1953   ?\Ä
1954   ?\Å
1955   ?\É
1956   ?\æ
1957   ?\Æ
1958   ?\ô
1959   ?\ö
1960   ?\ò
1961   ?\û
1962   ?\ù
1963   ?\ÿ
1964   ?\Ö
1965   ?\Ü
1966   ?\ø
1967   ?\£
1968   ?\Ø
1969   ?\₧
1970   ?\ƒ
1971   ?\á
1972   ?\í
1973   ?\ó
1974   ?\ú
1975   ?\ñ
1976   ?\Ñ
1977   ?\ª
1978   ?\º
1979   ?\¿
1980   ?\⌐
1981   ?\¬
1982   ?\½
1983   ?\¼
1984   ?\¡
1985   ?\«
1986   ?\»
1987   ?\░
1988   ?\▒
1989   ?\▓
1990   ?\│
1991   ?\┤
1992   ?\╡
1993   ?\╢
1994   ?\╖
1995   ?\╕
1996   ?\╣
1997   ?\║
1998   ?\╗
1999   ?\╝
2000   ?\╜
2001   ?\╛
2002   ?\┐
2003   ?\└
2004   ?\┴
2005   ?\┬
2006   ?\├
2007   ?\─
2008   ?\┼
2009   ?\╞
2010   ?\╟
2011   ?\╚
2012   ?\╔
2013   ?\╩
2014   ?\╦
2015   ?\╠
2016   ?\═
2017   ?\╬
2018   ?\╧
2019   ?\╨
2020   ?\╤
2021   ?\╥
2022   ?\╙
2023   ?\╘
2024   ?\╒
2025   ?\╓
2026   ?\╫
2027   ?\╪
2028   ?\┘
2029   ?\┌
2030   ?\█
2031   ?\▄
2032   ?\▌
2033   ?\▐
2034   ?\▀
2035   ?\α
2036   ?\ß
2037   ?\Γ
2038   ?\π
2039   ?\Σ
2040   ?\σ
2041   ?\µ
2042   ?\τ
2043   ?\Φ
2044   ?\Θ
2045   ?\Ω
2046   ?\δ
2047   ?\∞
2048   ?\∅
2049   ?\ε
2050   ?\∩
2051   ?\≡
2052   ?\±
2053   ?\≥
2054   ?\≤
2055   ?\⌠
2056   ?\⌡
2057   ?\÷
2058   ?\≈
2059   ?\∘
2060   ?\·
2061   ?\•
2062   ?\√
2063   ?\ⁿ
2064   ?\²
2065   ?\■
2066   ?\ ])
2067
2068 ;;;###autoload(autoload-coding-system 'cp866 '(require 'code-pages))
2069 (cp-make-coding-system
2070  cp866
2071  [?\А
2072   ?\Б
2073   ?\В
2074   ?\Г
2075   ?\Д
2076   ?\Е
2077   ?\Ж
2078   ?\З
2079   ?\И
2080   ?\Й
2081   ?\К
2082   ?\Л
2083   ?\М
2084   ?\Н
2085   ?\О
2086   ?\П
2087   ?\Р
2088   ?\С
2089   ?\Т
2090   ?\У
2091   ?\Ф
2092   ?\Х
2093   ?\Ц
2094   ?\Ч
2095   ?\Ш
2096   ?\Щ
2097   ?\Ъ
2098   ?\Ы
2099   ?\Ь
2100   ?\Э
2101   ?\Ю
2102   ?\Я
2103   ?\а
2104   ?\б
2105   ?\в
2106   ?\г
2107   ?\д
2108   ?\е
2109   ?\ж
2110   ?\з
2111   ?\и
2112   ?\й
2113   ?\к
2114   ?\л
2115   ?\м
2116   ?\н
2117   ?\о
2118   ?\п
2119   ?\░
2120   ?\▒
2121   ?\▓
2122   ?\│
2123   ?\┤
2124   ?\╡
2125   ?\╢
2126   ?\╖
2127   ?\╕
2128   ?\╣
2129   ?\║
2130   ?\╗
2131   ?\╝
2132   ?\╜
2133   ?\╛
2134   ?\┐
2135   ?\└
2136   ?\┴
2137   ?\┬
2138   ?\├
2139   ?\─
2140   ?\┼
2141   ?\╞
2142   ?\╟
2143   ?\╚
2144   ?\╔
2145   ?\╩
2146   ?\╦
2147   ?\╠
2148   ?\═
2149   ?\╬
2150   ?\╧
2151   ?\╨
2152   ?\╤
2153   ?\╥
2154   ?\╙
2155   ?\╘
2156   ?\╒
2157   ?\╓
2158   ?\╫
2159   ?\╪
2160   ?\┘
2161   ?\┌
2162   ?\█
2163   ?\▄
2164   ?\▌
2165   ?\▐
2166   ?\▀
2167   ?\р
2168   ?\с
2169   ?\т
2170   ?\у
2171   ?\ф
2172   ?\х
2173   ?\ц
2174   ?\ч
2175   ?\ш
2176   ?\щ
2177   ?\ъ
2178   ?\ы
2179   ?\ь
2180   ?\э
2181   ?\ю
2182   ?\я
2183   ?\Ё
2184   ?\ё
2185   ?\Є
2186   ?\є
2187   ?\Ї
2188   ?\ї
2189   ?\Ў
2190   ?\ў
2191   ?\°
2192   ?\∙
2193   ?\·
2194   ?\√
2195   ?\№
2196   ?\¤
2197   ?\■
2198   ?\ ]
2199  "CP866 (Cyrillic)."
2200  ?A)
2201
2202 ;;;###autoload(autoload-coding-system 'cp869 '(require 'code-pages))
2203 (cp-make-coding-system
2204  cp869
2205  [nil
2206   nil
2207   nil
2208   nil
2209   nil
2210   nil
2211   ?\Ά
2212   nil
2213   ?\·
2214   ?\¬
2215   ?\¦
2216   ?\‛
2217   ?\’
2218   ?\Έ
2219   ?\—
2220   ?\Ή
2221   ?\Ί
2222   ?\Ϊ
2223   ?\Ό
2224   nil
2225   nil
2226   ?\Ύ
2227   ?\Ϋ
2228   ?\©
2229   ?\Ώ
2230   ?\²
2231   ?\³
2232   ?\ά
2233   ?\£
2234   ?\έ
2235   ?\ή
2236   ?\ί
2237   ?\ϊ
2238   ?\ΐ
2239   ?\ό
2240   ?\ύ
2241   ?\Α
2242   ?\Β
2243   ?\Γ
2244   ?\Δ
2245   ?\Ε
2246   ?\Ζ
2247   ?\Η
2248   ?\½
2249   ?\Θ
2250   ?\Ι
2251   ?\«
2252   ?\»
2253   ?\░
2254   ?\▒
2255   ?\▓
2256   ?\│
2257   ?\┤
2258   ?\Κ
2259   ?\Λ
2260   ?\Μ
2261   ?\Ν
2262   ?\╣
2263   ?\║
2264   ?\╗
2265   ?\╝
2266   ?\Ξ
2267   ?\Ο
2268   ?\┐
2269   ?\└
2270   ?\┴
2271   ?\┬
2272   ?\├
2273   ?\─
2274   ?\┼
2275   ?\Π
2276   ?\Ρ
2277   ?\╚
2278   ?\╔
2279   ?\╩
2280   ?\╦
2281   ?\╠
2282   ?\═
2283   ?\╬
2284   ?\Σ
2285   ?\Τ
2286   ?\Υ
2287   ?\Φ
2288   ?\Χ
2289   ?\Ψ
2290   ?\Ω
2291   ?\α
2292   ?\β
2293   ?\γ
2294   ?\┘
2295   ?\┌
2296   ?\█
2297   ?\▄
2298   ?\δ
2299   ?\ε
2300   ?\▀
2301   ?\ζ
2302   ?\η
2303   ?\θ
2304   ?\ι
2305   ?\κ
2306   ?\λ
2307   ?\μ
2308   ?\ν
2309   ?\ξ
2310   ?\ο
2311   ?\π
2312   ?\ρ
2313   ?\σ
2314   ?\ς
2315   ?\τ
2316   ?\´
2317   ?\
2318   ?\±
2319   ?\υ
2320   ?\φ
2321   ?\χ
2322   ?\§
2323   ?\ψ
2324   ?\΅
2325   ?\°
2326   ?\¨
2327   ?\ω
2328   ?\ϋ
2329   ?\ΰ
2330   ?\ώ
2331   ?\■
2332   ?\ ])
2333
2334 ;;;###autoload(autoload-coding-system 'cp874 '(require 'code-pages))
2335 (cp-make-coding-system
2336  cp874
2337  [?\€
2338   nil
2339   nil
2340   nil
2341   nil
2342   ?\…
2343   nil
2344   nil
2345   nil
2346   nil
2347   nil
2348   nil
2349   nil
2350   nil
2351   nil
2352   nil
2353   nil
2354   ?\‘
2355   ?\’
2356   ?\“
2357   ?\”
2358   ?\•
2359   ?\–
2360   ?\—
2361   nil
2362   nil
2363   nil
2364   nil
2365   nil
2366   nil
2367   nil
2368   nil
2369   ?\
2370   ?\ก
2371   ?\ข
2372   ?\ฃ
2373   ?\ค
2374   ?\ฅ
2375   ?\ฆ
2376   ?\ง
2377   ?\จ
2378   ?\ฉ
2379   ?\ช
2380   ?\ซ
2381   ?\ฌ
2382   ?\ญ
2383   ?\ฎ
2384   ?\ฏ
2385   ?\ฐ
2386   ?\ฑ
2387   ?\ฒ
2388   ?\ณ
2389   ?\ด
2390   ?\ต
2391   ?\ถ
2392   ?\ท
2393   ?\ธ
2394   ?\น
2395   ?\บ
2396   ?\ป
2397   ?\ผ
2398   ?\ฝ
2399   ?\พ
2400   ?\ฟ
2401   ?\ภ
2402   ?\ม
2403   ?\ย
2404   ?\ร
2405   ?\ฤ
2406   ?\ล
2407   ?\ฦ
2408   ?\ว
2409   ?\ศ
2410   ?\ษ
2411   ?\ส
2412   ?\ห
2413   ?\ฬ
2414   ?\อ
2415   ?\ฮ
2416   ?\ฯ
2417   ?\ะ
2418   ?\ั
2419   ?\า
2420   ?\ำ
2421   ?\ิ
2422   ?\ี
2423   ?\ึ
2424   ?\ื
2425   ?\ุ
2426   ?\ู
2427   ?\ฺ
2428   nil
2429   nil
2430   nil
2431   nil
2432   ?\฿
2433   ?\เ
2434   ?\แ
2435   ?\โ
2436   ?\ใ
2437   ?\ไ
2438   ?\ๅ
2439   ?\ๆ
2440   ?\็
2441   ?\่
2442   ?\้
2443   ?\๊
2444   ?\๋
2445   ?\์
2446   ?\ํ
2447   ?\๎
2448   ?\๏
2449   ?\๐
2450   ?\๑
2451   ?\๒
2452   ?\๓
2453   ?\๔
2454   ?\๕
2455   ?\๖
2456   ?\๗
2457   ?\๘
2458   ?\๙
2459   ?\๚
2460   ?\๛
2461   nil
2462   nil
2463   nil
2464   nil])
2465
2466 ;;;###autoload(autoload-coding-system 'windows-1250 '(require 'code-pages))
2467 ;;;###autoload(autoload-coding-system 'cp1250 '(require 'code-pages))
2468 (cp-make-coding-system
2469  windows-1250
2470  [?\€
2471   nil
2472   ?\‚
2473   nil
2474   ?\„
2475   ?\…
2476   ?\†
2477   ?\‡
2478   nil
2479   ?\‰
2480   ?\Š
2481   ?\‹
2482   ?\Ś
2483   ?\Ť
2484   ?\Ž
2485   ?\Ź
2486   nil
2487   ?\‘
2488   ?\’
2489   ?\“
2490   ?\”
2491   ?\•
2492   ?\–
2493   ?\—
2494   nil
2495   ?\™
2496   ?\š
2497   ?\›
2498   ?\ś
2499   ?\ť
2500   ?\ž
2501   ?\ź
2502   ?\
2503   ?\ˇ
2504   ?\˘
2505   ?\Ł
2506   ?\¤
2507   ?\Ą
2508   ?\¦
2509   ?\§
2510   ?\¨
2511   ?\©
2512   ?\Ş
2513   ?\«
2514   ?\¬
2515   ?\
2516   ?\®
2517   ?\Ż
2518   ?\°
2519   ?\±
2520   ?\˛
2521   ?\ł
2522   ?\´
2523   ?\µ
2524   ?\¶
2525   ?\·
2526   ?\¸
2527   ?\ą
2528   ?\ş
2529   ?\»
2530   ?\Ľ
2531   ?\˝
2532   ?\ľ
2533   ?\ż
2534   ?\Ŕ
2535   ?\Á
2536   ?\Â
2537   ?\Ă
2538   ?\Ä
2539   ?\Ĺ
2540   ?\Ć
2541   ?\Ç
2542   ?\Č
2543   ?\É
2544   ?\Ę
2545   ?\Ë
2546   ?\Ě
2547   ?\Í
2548   ?\Î
2549   ?\Ď
2550   ?\Đ
2551   ?\Ń
2552   ?\Ň
2553   ?\Ó
2554   ?\Ô
2555   ?\Ő
2556   ?\Ö
2557   ?\×
2558   ?\Ř
2559   ?\Ů
2560   ?\Ú
2561   ?\Ű
2562   ?\Ü
2563   ?\Ý
2564   ?\Ţ
2565   ?\ß
2566   ?\ŕ
2567   ?\á
2568   ?\â
2569   ?\ă
2570   ?\ä
2571   ?\ĺ
2572   ?\ć
2573   ?\ç
2574   ?\č
2575   ?\é
2576   ?\ę
2577   ?\ë
2578   ?\ě
2579   ?\í
2580   ?\î
2581   ?\ď
2582   ?\đ
2583   ?\ń
2584   ?\ň
2585   ?\ó
2586   ?\ô
2587   ?\ő
2588   ?\ö
2589   ?\÷
2590   ?\ř
2591   ?\ů
2592   ?\ú
2593   ?\ű
2594   ?\ü
2595   ?\ý
2596   ?\ţ
2597   ?\˙])
2598
2599 ;;;###autoload(autoload-coding-system 'windows-1253 '(require 'code-pages))
2600 ;;;###autoload(autoload-coding-system 'cp1253 '(require 'code-pages))
2601 (cp-make-coding-system
2602  windows-1253
2603  [?\€
2604   nil
2605   ?\‚
2606   ?\ƒ
2607   ?\„
2608   ?\…
2609   ?\†
2610   ?\‡
2611   nil
2612   ?\‰
2613   nil
2614   ?\‹
2615   nil
2616   nil
2617   nil
2618   nil
2619   nil
2620   ?\‘
2621   ?\’
2622   ?\“
2623   ?\”
2624   ?\•
2625   ?\–
2626   ?\—
2627   nil
2628   ?\™
2629   nil
2630   ?\›
2631   nil
2632   nil
2633   nil
2634   nil
2635   ?\
2636   ?\΅
2637   ?\Ά
2638   ?\£
2639   ?\¤
2640   ?\¥
2641   ?\¦
2642   ?\§
2643   ?\¨
2644   ?\©
2645   nil
2646   ?\«
2647   ?\¬
2648   ?\
2649   ?\®
2650   ?\―
2651   ?\°
2652   ?\±
2653   ?\²
2654   ?\³
2655   ?\΄
2656   ?\µ
2657   ?\¶
2658   ?\·
2659   ?\Έ
2660   ?\Ή
2661   ?\Ί
2662   ?\»
2663   ?\Ό
2664   ?\½
2665   ?\Ύ
2666   ?\Ώ
2667   ?\ΐ
2668   ?\Α
2669   ?\Β
2670   ?\Γ
2671   ?\Δ
2672   ?\Ε
2673   ?\Ζ
2674   ?\Η
2675   ?\Θ
2676   ?\Ι
2677   ?\Κ
2678   ?\Λ
2679   ?\Μ
2680   ?\Ν
2681   ?\Ξ
2682   ?\Ο
2683   ?\Π
2684   ?\Ρ
2685   nil
2686   ?\Σ
2687   ?\Τ
2688   ?\Υ
2689   ?\Φ
2690   ?\Χ
2691   ?\Ψ
2692   ?\Ω
2693   ?\Ϊ
2694   ?\Ϋ
2695   ?\ά
2696   ?\έ
2697   ?\ή
2698   ?\ί
2699   ?\ΰ
2700   ?\α
2701   ?\β
2702   ?\γ
2703   ?\δ
2704   ?\ε
2705   ?\ζ
2706   ?\η
2707   ?\θ
2708   ?\ι
2709   ?\κ
2710   ?\λ
2711   ?\μ
2712   ?\ν
2713   ?\ξ
2714   ?\ο
2715   ?\π
2716   ?\ρ
2717   ?\ς
2718   ?\σ
2719   ?\τ
2720   ?\υ
2721   ?\φ
2722   ?\χ
2723   ?\ψ
2724   ?\ω
2725   ?\ϊ
2726   ?\ϋ
2727   ?\ό
2728   ?\ύ
2729   ?\ώ
2730   nil]
2731  nil ?g) ;; Greek
2732
2733 ;;;###autoload(autoload-coding-system 'windows-1254 '(require 'code-pages))
2734 ;;;###autoload(autoload-coding-system 'cp1254 '(require 'code-pages))
2735 (cp-make-coding-system
2736  windows-1254
2737  [?\€
2738   nil
2739   ?\‚
2740   ?\ƒ
2741   ?\„
2742   ?\…
2743   ?\†
2744   ?\‡
2745   ?\ˆ
2746   ?\‰
2747   ?\Š
2748   ?\‹
2749   ?\Œ
2750   nil
2751   nil
2752   nil
2753   nil
2754   ?\‘
2755   ?\’
2756   ?\“
2757   ?\”
2758   ?\•
2759   ?\–
2760   ?\—
2761   ?\˜
2762   ?\™
2763   ?\š
2764   ?\›
2765   ?\œ
2766   nil
2767   nil
2768   ?\Ÿ
2769   ?\
2770   ?\¡
2771   ?\¢
2772   ?\£
2773   ?\¤
2774   ?\¥
2775   ?\¦
2776   ?\§
2777   ?\¨
2778   ?\©
2779   ?\ª
2780   ?\«
2781   ?\¬
2782   ?\
2783   ?\®
2784   ?\¯
2785   ?\°
2786   ?\±
2787   ?\²
2788   ?\³
2789   ?\´
2790   ?\µ
2791   ?\¶
2792   ?\·
2793   ?\¸
2794   ?\¹
2795   ?\º
2796   ?\»
2797   ?\¼
2798   ?\½
2799   ?\¾
2800   ?\¿
2801   ?\À
2802   ?\Á
2803   ?\Â
2804   ?\Ã
2805   ?\Ä
2806   ?\Å
2807   ?\Æ
2808   ?\Ç
2809   ?\È
2810   ?\É
2811   ?\Ê
2812   ?\Ë
2813   ?\Ì
2814   ?\Í
2815   ?\Î
2816   ?\Ï
2817   ?\Ğ
2818   ?\Ñ
2819   ?\Ò
2820   ?\Ó
2821   ?\Ô
2822   ?\Õ
2823   ?\Ö
2824   ?\×
2825   ?\Ø
2826   ?\Ù
2827   ?\Ú
2828   ?\Û
2829   ?\Ü
2830   ?\İ
2831   ?\Ş
2832   ?\ß
2833   ?\à
2834   ?\á
2835   ?\â
2836   ?\ã
2837   ?\ä
2838   ?\å
2839   ?\æ
2840   ?\ç
2841   ?\è
2842   ?\é
2843   ?\ę
2844   ?\ë
2845   ?\ė
2846   ?\í
2847   ?\î
2848   ?\ī
2849   ?\ğ
2850   ?\ñ
2851   ?\ò
2852   ?\ó
2853   ?\ô
2854   ?\õ
2855   ?\ö
2856   ?\÷
2857   ?\ø
2858   ?\ù
2859   ?\ú
2860   ?\û
2861   ?\ü
2862   ?\ı
2863   ?\ş
2864   ?\ÿ])
2865
2866 ;; yi_US
2867 ;;;###autoload(autoload-coding-system 'windows-1255 '(require 'code-pages))
2868 ;;;###autoload(autoload-coding-system 'cp1255 '(require 'code-pages))
2869 (cp-make-coding-system
2870  windows-1255
2871  [?\€
2872   nil
2873   ?\‚
2874   ?\ƒ
2875   ?\„
2876   ?\…
2877   ?\†
2878   ?\‡
2879   ?\ˆ
2880   ?\‰
2881   nil
2882   ?\‹
2883   nil
2884   nil
2885   nil
2886   nil
2887   nil
2888   ?\‘
2889   ?\’
2890   ?\“
2891   ?\”
2892   ?\•
2893   ?\–
2894   ?\—
2895   ?\˜
2896   ?\™
2897   nil
2898   ?\›
2899   nil
2900   nil
2901   nil
2902   nil
2903   ?\
2904   ?\¡
2905   ?\¢
2906   ?\£
2907   ?\₪
2908   ?\¥
2909   ?\¦
2910   ?\§
2911   ?\¨
2912   ?\©
2913   ?\×
2914   ?\«
2915   ?\¬
2916   ?\
2917   ?\®
2918   ?\¯
2919   ?\°
2920   ?\±
2921   ?\²
2922   ?\³
2923   ?\´
2924   ?\µ
2925   ?\¶
2926   ?\·
2927   ?\¸
2928   ?\¹
2929   ?\÷
2930   ?\»
2931   ?\¼
2932   ?\½
2933   ?\¾
2934   ?\¿
2935   ?\ְ
2936   ?\ֱ
2937   ?\ֲ
2938   ?\ֳ
2939   ?\ִ
2940   ?\ֵ
2941   ?\ֶ
2942   ?\ַ
2943   ?\ָ
2944   ?\ֹ
2945   nil
2946   ?\ֻ
2947   ?\ּ
2948   ?\ֽ
2949   ?\־
2950   ?\ֿ
2951   ?\׀
2952   ?\ׁ
2953   ?\ׂ
2954   ?\׃
2955   ?\װ
2956   ?\ױ
2957   ?\ײ
2958   ?\׳
2959   ?\״
2960   nil
2961   nil
2962   nil
2963   nil
2964   nil
2965   nil
2966   nil
2967   ?\א
2968   ?\ב
2969   ?\ג
2970   ?\ד
2971   ?\ה
2972   ?\ו
2973   ?\ז
2974   ?\ח
2975   ?\ט
2976   ?\י
2977   ?\ך
2978   ?\כ
2979   ?\ל
2980   ?\ם
2981   ?\מ
2982   ?\ן
2983   ?\נ
2984   ?\ס
2985   ?\ע
2986   ?\ף
2987   ?\פ
2988   ?\ץ
2989   ?\צ
2990   ?\ק
2991   ?\ר
2992   ?\ש
2993   ?\ת
2994   nil
2995   nil
2996   ?\‎
2997   ?\‏
2998   nil]
2999  nil ?h) ;; Hebrew
3000
3001 ;;;###autoload(autoload-coding-system 'windows-1256 '(require 'code-pages))
3002 ;;;###autoload(autoload-coding-system 'cp1256 '(require 'code-pages))
3003 (cp-make-coding-system
3004  windows-1256
3005  [?\€
3006   ?\پ
3007   ?\‚
3008   ?\ƒ
3009   ?\„
3010   ?\…
3011   ?\†
3012   ?\‡
3013   ?\ˆ
3014   ?\‰
3015   ?\ٹ
3016   ?\‹
3017   ?\Œ
3018   ?\چ
3019   ?\ژ
3020   ?\ڈ
3021   ?\گ
3022   ?\‘
3023   ?\’
3024   ?\“
3025   ?\”
3026   ?\•
3027   ?\–
3028   ?\—
3029   ?\ک
3030   ?\™
3031   ?\ڑ
3032   ?\›
3033   ?\œ
3034   ?\‌
3035   ?\‍
3036   ?\ں
3037   ?\
3038   ?\،
3039   ?\¢
3040   ?\£
3041   ?\¤
3042   ?\¥
3043   ?\¦
3044   ?\§
3045   ?\¨
3046   ?\©
3047   ?\ھ
3048   ?\«
3049   ?\¬
3050   ?\
3051   ?\®
3052   ?\¯
3053   ?\°
3054   ?\±
3055   ?\²
3056   ?\³
3057   ?\´
3058   ?\µ
3059   ?\¶
3060   ?\·
3061   ?\¸
3062   ?\¹
3063   ?\؛
3064   ?\»
3065   ?\¼
3066   ?\½
3067   ?\¾
3068   ?\؟
3069   ?\ہ
3070   ?\ء
3071   ?\آ
3072   ?\أ
3073   ?\ؤ
3074   ?\إ
3075   ?\ئ
3076   ?\ا
3077   ?\ب
3078   ?\ة
3079   ?\ت
3080   ?\ث
3081   ?\ج
3082   ?\ح
3083   ?\خ
3084   ?\د
3085   ?\ذ
3086   ?\ر
3087   ?\ز
3088   ?\س
3089   ?\ش
3090   ?\ص
3091   ?\ض
3092   ?\×
3093   ?\ط
3094   ?\ظ
3095   ?\ع
3096   ?\غ
3097   ?\ـ
3098   ?\ف
3099   ?\ق
3100   ?\ك
3101   ?\à
3102   ?\ل
3103   ?\â
3104   ?\م
3105   ?\ن
3106   ?\ه
3107   ?\و
3108   ?\ç
3109   ?\è
3110   ?\é
3111   ?\ê
3112   ?\ë
3113   ?\ى
3114   ?\ي
3115   ?\î
3116   ?\ï
3117   ?\ً
3118   ?\ٌ
3119   ?\ٍ
3120   ?\َ
3121   ?\ô
3122   ?\ُ
3123   ?\ِ
3124   ?\÷
3125   ?\ّ
3126   ?\ù
3127   ?\ْ
3128   ?\û
3129   ?\ü
3130   ?\‎
3131   ?\‏
3132   ?\ے]
3133  nil ?a) ;; Arabic
3134
3135 ;;;###autoload(autoload-coding-system 'windows-1257 '(require 'code-pages))
3136 ;;;###autoload(autoload-coding-system 'cp1257 '(require 'code-pages))
3137 (cp-make-coding-system
3138  windows-1257
3139  [?\€
3140   nil
3141   ?\‚
3142   nil
3143   ?\„
3144   ?\…
3145   ?\†
3146   ?\‡
3147   nil
3148   ?\‰
3149   nil
3150   ?\‹
3151   nil
3152   nil
3153   nil
3154   nil
3155   nil
3156   ?\‘
3157   ?\’
3158   ?\“
3159   ?\”
3160   ?\•
3161   ?\–
3162   ?\—
3163   nil
3164   ?\™
3165   nil
3166   ?\›
3167   nil
3168   nil
3169   nil
3170   nil
3171   ?\
3172   nil
3173   ?\¢
3174   ?\£
3175   ?\¤
3176   nil
3177   ?\¦
3178   ?\§
3179   ?\Ø
3180   ?\©
3181   ?\Ŗ
3182   ?\«
3183   ?\¬
3184   ?\
3185   ?\®
3186   ?\Æ
3187   ?\°
3188   ?\±
3189   ?\²
3190   ?\³
3191   nil
3192   ?\µ
3193   ?\¶
3194   ?\·
3195   ?\ø
3196   ?\¹
3197   ?\ŗ
3198   ?\»
3199   ?\¼
3200   ?\½
3201   ?\¾
3202   ?\æ
3203   ?\Ą
3204   ?\Į
3205   ?\Ā
3206   ?\Ć
3207   ?\Ä
3208   ?\Å
3209   ?\Ę
3210   ?\Ē
3211   ?\Č
3212   ?\É
3213   ?\Ź
3214   ?\Ė
3215   ?\Ģ
3216   ?\Ķ
3217   ?\Ī
3218   ?\Ļ
3219   ?\Š
3220   ?\Ń
3221   ?\Ņ
3222   ?\Ó
3223   ?\Ō
3224   ?\Õ
3225   ?\Ö
3226   ?\×
3227   ?\Ų
3228   ?\Ł
3229   ?\Ś
3230   ?\Ū
3231   ?\Ü
3232   ?\Ż
3233   ?\Ž
3234   ?\ß
3235   ?\ą
3236   ?\į
3237   ?\ā
3238   ?\ć
3239   ?\ä
3240   ?\å
3241   ?\ę
3242   ?\ē
3243   ?\č
3244   ?\é
3245   ?\ź
3246   ?\ė
3247   ?\ģ
3248   ?\ķ
3249   ?\ī
3250   ?\ļ
3251   ?\š
3252   ?\ń
3253   ?\ņ
3254   ?\ó
3255   ?\ō
3256   ?\õ
3257   ?\ö
3258   ?\÷
3259   ?\ų
3260   ?\ł
3261   ?\ś
3262   ?\ū
3263   ?\ü
3264   ?\ż
3265   ?\ž
3266   nil])
3267
3268 ;;;###autoload(autoload-coding-system 'windows-1258 '(require 'code-pages))
3269 ;;;###autoload(autoload-coding-system 'cp1258 '(require 'code-pages))
3270 (cp-make-coding-system
3271  windows-1258
3272  [?\€
3273   nil
3274   ?\‚
3275   ?\ƒ
3276   ?\„
3277   ?\…
3278   ?\†
3279   ?\‡
3280   ?\ˆ
3281   ?\‰
3282   nil
3283   ?\‹
3284   ?\Œ
3285   nil
3286   nil
3287   nil
3288   nil
3289   ?\‘
3290   ?\’
3291   ?\“
3292   ?\”
3293   ?\•
3294   ?\–
3295   ?\—
3296   ?\˜
3297   ?\™
3298   nil
3299   ?\›
3300   ?\œ
3301   nil
3302   nil
3303   ?\Ÿ
3304   ?\
3305   ?\¡
3306   ?\¢
3307   ?\£
3308   ?\¤
3309   ?\¥
3310   ?\¦
3311   ?\§
3312   ?\¨
3313   ?\©
3314   ?\ª
3315   ?\«
3316   ?\¬
3317   ?\
3318   ?\®
3319   ?\¯
3320   ?\°
3321   ?\±
3322   ?\²
3323   ?\³
3324   ?\´
3325   ?\µ
3326   ?\¶
3327   ?\·
3328   ?\¸
3329   ?\¹
3330   ?\º
3331   ?\»
3332   ?\¼
3333   ?\½
3334   ?\¾
3335   ?\¿
3336   ?\À
3337   ?\Á
3338   ?\Â
3339   ?\Ă
3340   ?\Ä
3341   ?\Å
3342   ?\Æ
3343   ?\Ç
3344   ?\È
3345   ?\É
3346   ?\Ê
3347   ?\Ë
3348   ?\̀
3349   ?\Í
3350   ?\Î
3351   ?\Ï
3352   ?\Đ
3353   ?\Ñ
3354   ?\̉
3355   ?\Ó
3356   ?\Ô
3357   ?\Ơ
3358   ?\Ö
3359   ?\×
3360   ?\Ø
3361   ?\Ù
3362   ?\Ú
3363   ?\Û
3364   ?\Ü
3365   ?\Ư
3366   ?\̃
3367   ?\ß
3368   ?\à
3369   ?\á
3370   ?\â
3371   ?\ă
3372   ?\ä
3373   ?\å
3374   ?\æ
3375   ?\ç
3376   ?\è
3377   ?\é
3378   ?\ê
3379   ?\ë
3380   ?\́
3381   ?\í
3382   ?\î
3383   ?\ï
3384   ?\đ
3385   ?\ñ
3386   ?\̣
3387   ?\ó
3388   ?\ô
3389   ?\ơ
3390   ?\ö
3391   ?\÷
3392   ?\ø
3393   ?\ù
3394   ?\ú
3395   ?\û
3396   ?\ü
3397   ?\ư
3398   ?\₫
3399   ?\ÿ])
3400
3401 ;;;###autoload(autoload-coding-system 'next '(require 'code-pages))
3402 (cp-make-coding-system
3403  next
3404  [?\
3405   ?\À
3406   ?\Á
3407   ?\Â
3408   ?\Ã
3409   ?\Ä
3410   ?\Å
3411   ?\Ç
3412   ?\È
3413   ?\É
3414   ?\Ê
3415   ?\Ë
3416   ?\Ì
3417   ?\Í
3418   ?\Î
3419   ?\Ï
3420   ?\Ð
3421   ?\Ñ
3422   ?\Ò
3423   ?\Ó
3424   ?\Ô
3425   ?\Õ
3426   ?\Ö
3427   ?\Ù
3428   ?\Ú
3429   ?\Û
3430   ?\Ü
3431   ?\Ý
3432   ?\Þ
3433   ?\µ
3434   ?\×
3435   ?\÷
3436   ?\©
3437   ?\¡
3438   ?\¢
3439   ?\£
3440   ?\⁄
3441   ?\¥
3442   ?\ƒ
3443   ?\§
3444   ?\¤
3445   nil
3446   ?\“
3447   ?\«
3448   nil
3449   nil
3450   ?\ﬁ
3451   ?\ﬂ
3452   ?\®
3453   ?\–
3454   ?\†
3455   ?\‡
3456   ?\·
3457   ?\¦
3458   ?\¶
3459   ?\•
3460   nil
3461   nil
3462   ?\”
3463   ?\»
3464   ?\…
3465   ?\‰
3466   ?\¬
3467   ?\¿
3468   ?\¹
3469   ?\ˋ
3470   ?\´
3471   ?\ˆ
3472   ?\˜
3473   ?\¯
3474   ?\˘
3475   ?\˙
3476   ?\¨
3477   ?\²
3478   ?\˚
3479   ?\¸
3480   ?\³
3481   ?\˝
3482   ?\˛
3483   ?\ˇ
3484   ?\—
3485   ?\±
3486   ?\¼
3487   ?\½
3488   ?\¾
3489   ?\à
3490   ?\á
3491   ?\â
3492   ?\ã
3493   ?\ä
3494   ?\å
3495   ?\ç
3496   ?\è
3497   ?\é
3498   ?\ê
3499   ?\ë
3500   ?\ì
3501   ?\Æ
3502   ?\í
3503   ?\ª
3504   ?\î
3505   ?\ï
3506   ?\ð
3507   ?\ñ
3508   ?\Ł
3509   ?\Ø
3510   ?\Œ
3511   ?\º
3512   ?\ò
3513   ?\ó
3514   ?\ô
3515   ?\õ
3516   ?\ö
3517   ?\æ
3518   ?\ù
3519   ?\ú
3520   ?\û
3521   ?\ı
3522   ?\ü
3523   ?\ý
3524   ?\ł
3525   ?\ø
3526   ?\œ
3527   ?\ß
3528   ?\þ
3529   ?\ÿ
3530   nil
3531   nil]
3532  "NeXTstep encoding." ?N)
3533
3534 ;;;###autoload(autoload-coding-system 'koi8-t '(require 'code-pages))
3535 (cp-make-coding-system
3536  koi8-t                                 ; used by glibc for tg_TJ
3537  [?\қ
3538   ?\ғ
3539   ?\‚
3540   ?\Ғ
3541   ?\„
3542   ?\…
3543   ?\†
3544   ?\‡
3545   nil
3546   ?\‰
3547   ?\ҳ
3548   ?\‹
3549   ?\Ҳ
3550   ?\ҷ
3551   ?\Ҷ
3552   nil
3553   ?\Қ
3554   ?\‘
3555   ?\’
3556   ?\“
3557   ?\”
3558   ?\•
3559   ?\–
3560   ?\—
3561   nil
3562   ?\™
3563   nil
3564   ?\›
3565   nil
3566   nil
3567   nil
3568   nil
3569   nil
3570   ?\ӯ
3571   ?\Ӯ
3572   ?\ё
3573   ?\¤
3574   ?\ӣ
3575   ?\¦
3576   ?\§
3577   nil
3578   nil
3579   nil
3580   ?\«
3581   ?\¬
3582   ?\
3583   ?\®
3584   nil
3585   ?\°
3586   ?\±
3587   ?\²
3588   ?\Ё
3589   nil
3590   ?\Ӣ
3591   ?\¶
3592   ?\·
3593   nil
3594   ?\№
3595   nil
3596   ?\»
3597   nil
3598   nil
3599   nil
3600   ?\©
3601   ?\ю
3602   ?\а
3603   ?\б
3604   ?\ц
3605   ?\д
3606   ?\е
3607   ?\ф
3608   ?\г
3609   ?\х
3610   ?\и
3611   ?\й
3612   ?\к
3613   ?\л
3614   ?\м
3615   ?\н
3616   ?\о
3617   ?\п
3618   ?\я
3619   ?\р
3620   ?\с
3621   ?\т
3622   ?\у
3623   ?\ж
3624   ?\в
3625   ?\ь
3626   ?\ы
3627   ?\з
3628   ?\ш
3629   ?\э
3630   ?\щ
3631   ?\ч
3632   ?\ъ
3633   ?\Ю
3634   ?\А
3635   ?\Б
3636   ?\Ц
3637   ?\Д
3638   ?\Е
3639   ?\Ф
3640   ?\Г
3641   ?\Х
3642   ?\И
3643   ?\Й
3644   ?\К
3645   ?\Л
3646   ?\М
3647   ?\Н
3648   ?\О
3649   ?\П
3650   ?\Я
3651   ?\Р
3652   ?\С
3653   ?\Т
3654   ?\У
3655   ?\Ж
3656   ?\В
3657   ?\Ь
3658   ?\Ы
3659   ?\З
3660   ?\Ш
3661   ?\Э
3662   ?\Щ
3663   ?\Ч
3664   ?\Ъ]
3665  "Unicode-based KOI8-T encoding for Cyrillic")
3666 (coding-system-put 'koi8-t 'mime-charset nil) ; not in the IANA list
3667 (define-coding-system-alias 'cyrillic-koi8-t 'koi8-t)
3668
3669 ;;   Online final ISO draft:
3670
3671 ;;     http://www.evertype.com/standards/iso8859/fdis8859-16-en.pdf
3672
3673 ;;   Equivalent National Standard:
3674 ;;     Romanian Standard SR 14111:1998, Romanian Standards Institution
3675 ;;     (ASRO).
3676
3677 ;; Intended usage:
3678
3679 ;;  "This set of coded graphic characters is intended for use in data and
3680 ;;   text processing applications and also for information interchange. The
3681 ;;   set contains graphic characters used for general purpose applications in
3682 ;;   typical office environments in at least the following languages:
3683 ;;   Albanian, Croatian, English, Finnish, French, German, Hungarian, Irish
3684 ;;   Gaelic (new orthography), Italian, Latin, Polish, Romanian, and
3685 ;;   Slovenian. This set of coded graphic characters may be regarded as a
3686 ;;   version of an 8-bit code according to ISO/IEC 2022 or ISO/IEC 4873 at
3687 ;;   level 1." [ISO 8859-16:2001(E), p. 1]
3688
3689 ;;   This charset is suitable for use in MIME text body parts.
3690
3691 ;;   ISO 8859-16 was primarily designed for single-byte encoding the Romanian
3692 ;;   language. The UTF-8 charset is the preferred and in today's MIME software
3693 ;;   more widely implemented encoding suitable for Romanian.
3694 ;;;###autoload(autoload-coding-system 'iso-8859-16 '(require 'code-pages))
3695 (cp-make-coding-system
3696  iso-latin-10                           ; consistent with, e.g. Latin-1
3697  [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3698   nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3699   ?\
3700   ?\Ą
3701   ?\ą
3702   ?\Ł
3703   ?\€
3704   ?\„
3705   ?\Š
3706   ?\§
3707   ?\š
3708   ?\©
3709   ?\Ș
3710   ?\«
3711   ?\Ź
3712   ?\
3713   ?\ź
3714   ?\Ż
3715   ?\°
3716   ?\±
3717   ?\Č
3718   ?\ł
3719   ?\Ž
3720   ?\”
3721   ?\¶
3722   ?\·
3723   ?\ž
3724   ?\č
3725   ?\ș
3726   ?\»
3727   ?\Œ
3728   ?\œ
3729   ?\Ÿ
3730   ?\ż
3731   ?\À
3732   ?\Á
3733   ?\Â
3734   ?\Ă
3735   ?\Ä
3736   ?\Ć
3737   ?\Æ
3738   ?\Ç
3739   ?\È
3740   ?\É
3741   ?\Ê
3742   ?\Ë
3743   ?\Ì
3744   ?\Í
3745   ?\Î
3746   ?\Ï
3747   ?\Đ
3748   ?\Ń
3749   ?\Ò
3750   ?\Ó
3751   ?\Ô
3752   ?\Ő
3753   ?\Ö
3754   ?\Ś
3755   ?\Ű
3756   ?\Ù
3757   ?\Ú
3758   ?\Û
3759   ?\Ü
3760   ?\Ę
3761   ?\Ț
3762   ?\ß
3763   ?\à
3764   ?\á
3765   ?\â
3766   ?\ă
3767   ?\ä
3768   ?\ć
3769   ?\æ
3770   ?\ç
3771   ?\è
3772   ?\é
3773   ?\ê
3774   ?\ë
3775   ?\ì
3776   ?\í
3777   ?\î
3778   ?\ï
3779   ?\đ
3780   ?\ń
3781   ?\ò
3782   ?\ó
3783   ?\ô
3784   ?\ő
3785   ?\ö
3786   ?\ś
3787   ?\ű
3788   ?\ù
3789   ?\ú
3790   ?\û
3791   ?\ü
3792   ?\ę
3793   ?\ț
3794   ?\ÿ]
3795  "Unicode-based encoding for Latin-10 (MIME: ISO-8859-16)"
3796  ?r) ;; Romanian
3797 (coding-system-put 'iso-latin-10 'mime-charset 'iso-8859-16)
3798 (define-coding-system-alias 'iso-8859-16 'iso-latin-10)
3799 (define-coding-system-alias 'latin-10 'iso-latin-10)
3800
3801 ;; Unicode-based alternative which has the possible advantage of
3802 ;; having its relative sparseness specified.
3803 ;;;###autoload(autoload-coding-system 'iso-8859-6 '(require 'code-pages))
3804 (cp-make-coding-system
3805  ;; The base system uses arabic-iso-8bit, but that's not a MIME charset.
3806  iso-8859-6
3807  [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3808   nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3809   ?\
3810   ?\¤
3811   ?\،
3812   ?\
3813   ?\؛
3814   ?\؟
3815   ?\ء
3816   ?\آ
3817   ?\أ
3818   ?\ؤ
3819   ?\إ
3820   ?\ئ
3821   ?\ا
3822   ?\ب
3823   ?\ة
3824   ?\ت
3825   ?\ث
3826   ?\ج
3827   ?\ح
3828   ?\خ
3829   ?\د
3830   ?\ذ
3831   ?\ر
3832   ?\ز
3833   ?\س
3834   ?\ش
3835   ?\ص
3836   ?\ض
3837   ?\ط
3838   ?\ظ
3839   ?\ع
3840   ?\غ
3841   ?\ـ
3842   ?\ف
3843   ?\ق
3844   ?\ك
3845   ?\ل
3846   ?\م
3847   ?\ن
3848   ?\ه
3849   ?\و
3850   ?\ى
3851   ?\ي
3852   ?\ً
3853   ?\ٌ
3854   ?\ٍ
3855   ?\َ
3856   ?\ُ
3857   ?\ِ
3858   ?\ّ
3859   ?\ْ
3860   nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3861   nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3862   nil nil nil nil nil nil nil nil nil nil nil]
3863  "Unicode-based Arabic ISO/IEC 8859-6 (MIME: ISO-8859-6)"
3864  ?6)
3865 (define-coding-system-alias 'arabic-iso-8bit 'iso-8859-6)
3866
3867 ;;;###autoload(autoload-coding-system 'iso-8859-10 '(require 'code-pages))
3868 (cp-make-coding-system
3869  iso-latin-6
3870  [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3871   nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3872   ?\
3873   ?\Ą
3874   ?\Ē
3875   ?\Ģ
3876   ?\Ī
3877   ?\Ĩ
3878   ?\Ķ
3879   ?\§
3880   ?\Ļ
3881   ?\Đ
3882   ?\Š
3883   ?\Ŧ
3884   ?\Ž
3885   ?\
3886   ?\Ū
3887   ?\Ŋ
3888   ?\°
3889   ?\ą
3890   ?\ē
3891   ?\ģ
3892   ?\ī
3893   ?\ĩ
3894   ?\ķ
3895   ?\·
3896   ?\ļ
3897   ?\đ
3898   ?\š
3899   ?\ŧ
3900   ?\ž
3901   ?\―
3902   ?\ū
3903   ?\ŋ
3904   ?\Ā
3905   ?\Á
3906   ?\Â
3907   ?\Ã
3908   ?\Ä
3909   ?\Å
3910   ?\Æ
3911   ?\Į
3912   ?\Č
3913   ?\É
3914   ?\Ę
3915   ?\Ë
3916   ?\Ė
3917   ?\Í
3918   ?\Î
3919   ?\Ï
3920   ?\Ð
3921   ?\Ņ
3922   ?\Ō
3923   ?\Ó
3924   ?\Ô
3925   ?\Õ
3926   ?\Ö
3927   ?\Ũ
3928   ?\Ø
3929   ?\Ų
3930   ?\Ú
3931   ?\Û
3932   ?\Ü
3933   ?\Ý
3934   ?\Þ
3935   ?\ß
3936   ?\ā
3937   ?\á
3938   ?\â
3939   ?\ã
3940   ?\ä
3941   ?\å
3942   ?\æ
3943   ?\į
3944   ?\č
3945   ?\é
3946   ?\ę
3947   ?\ë
3948   ?\ė
3949   ?\í
3950   ?\î
3951   ?\ï
3952   ?\ð
3953   ?\ņ
3954   ?\ō
3955   ?\ó
3956   ?\ô
3957   ?\õ
3958   ?\ö
3959   ?\ũ
3960   ?\ø
3961   ?\ų
3962   ?\ú
3963   ?\û
3964   ?\ü
3965   ?\ý
3966   ?\þ
3967   ?\ĸ]
3968  "Unicode-based encoding for Latin-6 (MIME: ISO-8859-10)")
3969 (coding-system-put 'iso-latin-6 'mime-charset 'iso-8859-10)
3970 (define-coding-system-alias 'iso-8859-10 'iso-latin-6)
3971 (define-coding-system-alias 'latin-6 'iso-latin-6)
3972
3973 ;; used by lt_LT, lv_LV, mi_NZ
3974 ;;;###autoload(autoload-coding-system 'iso-8859-13 '(require 'code-pages))
3975 (cp-make-coding-system
3976  iso-latin-7
3977  [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3978   nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
3979   ?\
3980   ?\”
3981   ?\¢
3982   ?\£
3983   ?\¤
3984   ?\„
3985   ?\¦
3986   ?\§
3987   ?\Ø
3988   ?\©
3989   ?\Ŗ
3990   ?\«
3991   ?\¬
3992   ?\
3993   ?\®
3994   ?\Æ
3995   ?\°
3996   ?\±
3997   ?\²
3998   ?\³
3999   ?\“
4000   ?\µ
4001   ?\¶
4002   ?\·
4003   ?\ø
4004   ?\¹
4005   ?\ŗ
4006   ?\»
4007   ?\¼
4008   ?\½
4009   ?\¾
4010   ?\æ
4011   ?\Ą
4012   ?\Į
4013   ?\Ā
4014   ?\Ć
4015   ?\Ä
4016   ?\Å
4017   ?\Ę
4018   ?\Ē
4019   ?\Č
4020   ?\É
4021   ?\Ź
4022   ?\Ė
4023   ?\Ģ
4024   ?\Ķ
4025   ?\Ī
4026   ?\Ļ
4027   ?\Š
4028   ?\Ń
4029   ?\Ņ
4030   ?\Ó
4031   ?\Ō
4032   ?\Õ
4033   ?\Ö
4034   ?\×
4035   ?\Ų
4036   ?\Ł
4037   ?\Ś
4038   ?\Ū
4039   ?\Ü
4040   ?\Ż
4041   ?\Ž
4042   ?\ß
4043   ?\ą
4044   ?\į
4045   ?\ā
4046   ?\ć
4047   ?\ä
4048   ?\å
4049   ?\ę
4050   ?\ē
4051   ?\č
4052   ?\é
4053   ?\ź
4054   ?\ė
4055   ?\ģ
4056   ?\ķ
4057   ?\ī
4058   ?\ļ
4059   ?\š
4060   ?\ń
4061   ?\ņ
4062   ?\ó
4063   ?\ō
4064   ?\õ
4065   ?\ö
4066   ?\÷
4067   ?\ų
4068   ?\ł
4069   ?\ś
4070   ?\ū
4071   ?\ü
4072   ?\ż
4073   ?\ž
4074   ?\’
4075   ]
4076  "Unicode-based encoding for Latin-7 (MIME: ISO-8859-13)"
4077  ?l) ;; Lithuanian/Latvian
4078 (coding-system-put 'iso-latin-7 'mime-charset 'iso-8859-13)
4079 (define-coding-system-alias 'iso-8859-13 'iso-latin-7)
4080 (define-coding-system-alias 'latin-7 'iso-latin-7)
4081
4082 ;; Fixme: check on the C1 characters which libiconv includes.  They
4083 ;; are reproduced below, but are probably wrong.  I can't find an
4084 ;; official definition of georgian-ps.
4085 ;;;###autoload(autoload-coding-system 'georgian-ps '(require 'code-pages))
4086 (cp-make-coding-system
4087  georgian-ps                            ; used by glibc for ka_GE
4088  [?\
4089   ?\
4090   ?\‚
4091   ?\ƒ
4092   ?\„
4093   ?\…
4094   ?\†
4095   ?\‡
4096   ?\ˆ
4097   ?\‰
4098   ?\Š
4099   ?\‹
4100   ?\Œ
4101   ?\
4102   ?\
4103   ?\
4104   ?\
4105   ?\‘
4106   ?\’
4107   ?\“
4108   ?\”
4109   ?\•
4110   ?\–
4111   ?\—
4112   ?\˜
4113   ?\™
4114   ?\š
4115   ?\›
4116   ?\œ
4117   ?\
4118   ?\
4119   ?\Ÿ
4120   ?\
4121   ?\¡
4122   ?\¢
4123   ?\£
4124   ?\¤
4125   ?\¥
4126   ?\¦
4127   ?\§
4128   ?\¨
4129   ?\©
4130   ?\ª
4131   ?\«
4132   ?\¬
4133   ?\
4134   ?\®
4135   ?\¯
4136   ?\°
4137   ?\±
4138   ?\²
4139   ?\³
4140   ?\´
4141   ?\µ
4142   ?\¶
4143   ?\·
4144   ?\¸
4145   ?\¹
4146   ?\º
4147   ?\»
4148   ?\¼
4149   ?\½
4150   ?\¾
4151   ?\¿
4152   ?\ა
4153   ?\ბ
4154   ?\გ
4155   ?\დ
4156   ?\ე
4157   ?\ვ
4158   ?\ზ
4159   ?\ჱ
4160   ?\თ
4161   ?\ი
4162   ?\კ
4163   ?\ლ
4164   ?\მ
4165   ?\ნ
4166   ?\ჲ
4167   ?\ო
4168   ?\პ
4169   ?\ჟ
4170   ?\რ
4171   ?\ს
4172   ?\ტ
4173   ?\ჳ
4174   ?\უ
4175   ?\ფ
4176   ?\ქ
4177   ?\ღ
4178   ?\ყ
4179   ?\შ
4180   ?\ჩ
4181   ?\ც
4182   ?\ძ
4183   ?\წ
4184   ?\ჭ
4185   ?\ხ
4186   ?\ჴ
4187   ?\ჯ
4188   ?\ჰ
4189   ?\ჵ
4190   ?\æ
4191   ?\ç
4192   ?\è
4193   ?\é
4194   ?\ê
4195   ?\ë
4196   ?\ì
4197   ?\í
4198   ?\î
4199   ?\ï
4200   ?\ð
4201   ?\ñ
4202   ?\ò
4203   ?\ó
4204   ?\ô
4205   ?\õ
4206   ?\ö
4207   ?\÷
4208   ?\ø
4209   ?\ù
4210   ?\ú
4211   ?\û
4212   ?\ü
4213   ?\ý
4214   ?\þ
4215   ?\ÿ]
4216  nil ?G)
4217 (coding-system-put 'georgian-ps 'mime-charset nil) ; not in IANA list
4218
4219 ;;;###autoload(autoload-coding-system 'cp720 '(require 'code-pages))
4220 ;; From http://www.microsoft.com/globaldev/reference/oem/720.htm
4221 (cp-make-coding-system
4222  cp720
4223  [nil
4224   nil
4225   ?\é
4226   ?\â
4227   nil
4228   ?\à
4229   nil
4230   ?\ç
4231   ?\ê
4232   ?\ë
4233   ?\è
4234   ?\ï
4235   ?\î
4236   nil
4237   nil
4238   nil
4239   nil
4240   ?\ّ
4241   ?\ْ
4242   ?\ô
4243   ?\¤
4244   ?\ـ
4245   ?\û
4246   ?\ù
4247   ?\ء
4248   ?\آ
4249   ?\أ
4250   ?\ؤ
4251   ?\£
4252   ?\إ
4253   ?\ئ
4254   ?\ا
4255   ?\ب
4256   ?\ة
4257   ?\ت
4258   ?\ث
4259   ?\ج
4260   ?\ح
4261   ?\خ
4262   ?\د
4263   ?\ذ
4264   ?\ر
4265   ?\ز
4266   ?\س
4267   ?\ش
4268   ?\ص
4269   ?\«
4270   ?\»
4271   ?\░
4272   ?\▒
4273   ?\▓
4274   ?\│
4275   ?\┤
4276   ?\╡
4277   ?\╢
4278   ?\╖
4279   ?\╕
4280   ?\╣
4281   ?\║
4282   ?\╗
4283   ?\╝
4284   ?\╜
4285   ?\╛
4286   ?\┐
4287   ?\└
4288   ?\┴
4289   ?\┬
4290   ?\├
4291   ?\─
4292   ?\┼
4293   ?\╞
4294   ?\╟
4295   ?\╚
4296   ?\╔
4297   ?\╩
4298   ?\╦
4299   ?\╠
4300   ?\═
4301   ?\╬
4302   ?\╧
4303   ?\╨
4304   ?\╤
4305   ?\╥
4306   ?\╙
4307   ?\╘
4308   ?\╒
4309   ?\╓
4310   ?\╫
4311   ?\╪
4312   ?\┘
4313   ?\┌
4314   ?\█
4315   ?\▄
4316   ?\▌
4317   ?\▐
4318   ?\▀
4319   ?\ض
4320   ?\ط
4321   ?\ظ
4322   ?\ع
4323   ?\غ
4324   ?\ف
4325   ?\µ
4326   ?\ق
4327   ?\ك
4328   ?\ل
4329   ?\م
4330   ?\ن
4331   ?\ه
4332   ?\و
4333   ?\ى
4334   ?\ي
4335   ?\≡
4336   ?\ً
4337   ?\ٌ
4338   ?\ٍ
4339   ?\َ
4340   ?\ُ
4341   ?\ِ
4342   ?\≈
4343   ?\°
4344   ?\∙
4345   ?\·
4346   ?\√
4347   ?\ⁿ
4348   ?\²
4349   ?\■
4350   ?\ ])
4351 (coding-system-put 'cp720 'mime-charset nil) ; not in IANA list
4352
4353 ;;;###autoload(autoload-coding-system 'cp1125 '(require 'code-pages))
4354 ;; http://oss.software.ibm.com/cvs/icu/charset/data/ucm/ibm-1125_P100-2000.ucm
4355 (cp-make-coding-system
4356  cp1125
4357  [?\А
4358   ?\Б
4359   ?\В
4360   ?\Г
4361   ?\Д
4362   ?\Е
4363   ?\Ж
4364   ?\З
4365   ?\И
4366   ?\Й
4367   ?\К
4368   ?\Л
4369   ?\М
4370   ?\Н
4371   ?\О
4372   ?\П
4373   ?\Р
4374   ?\С
4375   ?\Т
4376   ?\У
4377   ?\Ф
4378   ?\Х
4379   ?\Ц
4380   ?\Ч
4381   ?\Ш
4382   ?\Щ
4383   ?\Ъ
4384   ?\Ы
4385   ?\Ь
4386   ?\Э
4387   ?\Ю
4388   ?\Я
4389   ?\а
4390   ?\б
4391   ?\в
4392   ?\г
4393   ?\д
4394   ?\е
4395   ?\ж
4396   ?\з
4397   ?\и
4398   ?\й
4399   ?\к
4400   ?\л
4401   ?\м
4402   ?\н
4403   ?\о
4404   ?\п
4405   ?\░
4406   ?\▒
4407   ?\▓
4408   ?\│
4409   ?\┤
4410   ?\╡
4411   ?\╢
4412   ?\╖
4413   ?\╕
4414   ?\╣
4415   ?\║
4416   ?\╗
4417   ?\╝
4418   ?\╜
4419   ?\╛
4420   ?\┐
4421   ?\└
4422   ?\┴
4423   ?\┬
4424   ?\├
4425   ?\─
4426   ?\┼
4427   ?\╞
4428   ?\╟
4429   ?\╚
4430   ?\╔
4431   ?\╩
4432   ?\╦
4433   ?\╠
4434   ?\═
4435   ?\╬
4436   ?\╧
4437   ?\╨
4438   ?\╤
4439   ?\╥
4440   ?\╙
4441   ?\╘
4442   ?\╒
4443   ?\╓
4444   ?\╫
4445   ?\╪
4446   ?\┘
4447   ?\┌
4448   ?\█
4449   ?\▄
4450   ?\▌
4451   ?\▐
4452   ?\▀
4453   ?\р
4454   ?\с
4455   ?\т
4456   ?\у
4457   ?\ф
4458   ?\х
4459   ?\ц
4460   ?\ч
4461   ?\ш
4462   ?\щ
4463   ?\ъ
4464   ?\ы
4465   ?\ь
4466   ?\э
4467   ?\ю
4468   ?\я
4469   ?\Ё
4470   ?\ё
4471   ?\Ґ
4472   ?\ґ
4473   ?\Є
4474   ?\є
4475   ?\І
4476   ?\і
4477   ?\Ї
4478   ?\ї
4479   ?\·
4480   ?\√
4481   ?\№
4482   ?\¤
4483   ?\■
4484   ?\ ])
4485 (define-coding-system-alias 'ruscii 'cp1125)
4486 ;; Original name for cp1125, says Serhii Hlodin <hlodin@lutsk.bank.gov.ua>
4487 (define-coding-system-alias 'cp866u 'cp1125)
4488 (coding-system-put 'cp1125 'mime-charset nil)
4489
4490 ;; Suggested by Anton Zinoviev <anton@lml.bas.bg>: Bulgarian DOS
4491 ;; codepage.  Table at
4492 ;; <http://en.wikipedia.org/wiki/MIK_Code_page>.
4493 ;;;###autoload(autoload-coding-system 'mik '(require 'code-pages))
4494 (cp-make-coding-system
4495  mik
4496  [?А ?Б ?В ?Г ?Д ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц
4497   ?Ч ?Ш ?Щ ?Ъ ?Ы ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н
4498   ?о ?п ?р ?с ?т ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я ?└ ?┴ ?┬ ?├ ?─
4499   ?┼ ?╣ ?║ ?╚ ?╔ ?╩ ?╦ ?╠ ?═ ?╬ ?┐ ?░ ?▒ ?▓ ?│ ?┤ ?№ ?§ ?╗ ?╝ ?┘ ?┌ ?█
4500   ?▄ ?▌ ?▐ ?▀ ?α ?ß ?Γ ?π ?Σ ?σ ?µ ?τ ?Φ ?Θ ?Ω ?δ ?∞ ?φ ?ε ?∩ ?≡ ?± ?≥
4501   ?≤ ?⌠ ?⌡ ?÷ ?≈ ?° ?∙ ?· ?√ ?ⁿ ?² ?■ ? ])
4502 (coding-system-put 'mik 'mime-charset nil)
4503
4504 ;; Suggested by Anton Zinoviev <anton@lml.bas.bg>: similar to CP1251
4505 ;; and used for some non-Slavic Cyrillic languages.  Table found at
4506 ;; <URL:ftp://ftp.logic.ru/pub/logic/linux/cyr-asian/PT154>.  See also
4507 ;; <URL:http://lists.w3.org/Archives/Public/ietf-charsets/2002AprJun/0092.html,
4508 ;; which suggests it's used in an Asian Cyrillic context.
4509 ;;;###autoload(autoload-coding-system 'pt154 '(require 'code-pages))
4510 (cp-make-coding-system
4511  pt154
4512  [?Җ ?Ғ ?Ӯ ?ғ ?„ ?… ?Ҷ ?Ү ?Ҳ ?ү ?Ҡ ?Ӣ ?Ң ?Қ ?Һ ?Ҹ ?җ ?‘ ?’ ?“ ?” ?• ?–
4513   ?— ?ҳ ?ҷ ?ҡ ?ӣ ?ң ?қ ?һ ?ҹ ?  ?Ў ?ў ?Ј ?Ө ?Ҙ ?Ұ ?§ ?Ё ?© ?Ә ?\« ?¬ ?ӯ
4514   ?® ?Ҝ ?° ?ұ ?І ?і ?ҙ ?ө ?¶ ?· ?ё ?№ ?ә ?\» ?ј ?Ҫ ?ҫ ?ҝ ?А ?Б ?В ?Г ?Д
4515   ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т ?У ?Ф ?Х ?Ц ?Ч ?Ш ?Щ ?Ъ ?Ы
4516   ?Ь ?Э ?Ю ?Я ?а ?б ?в ?г ?д ?е ?ж ?з ?и ?й ?к ?л ?м ?н ?о ?п ?р ?с ?т
4517   ?у ?ф ?х ?ц ?ч ?ш ?щ ?ъ ?ы ?ь ?э ?ю ?я])
4518
4519 ;;;###autoload(autoload-coding-system 'iso-8859-11 '(require 'code-pages))
4520 (cp-make-coding-system
4521  iso-8859-11
4522  [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
4523   nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
4524   ?   ?ก  ?ข  ?ฃ  ?ค  ?ฅ  ?ฆ  ?ง  ?จ  ?ฉ  ?ช  ?ซ  ?ฌ  ?ญ  ?ฎ  ?ฏ
4525   ?ฐ  ?ฑ  ?ฒ  ?ณ  ?ด  ?ต  ?ถ  ?ท  ?ธ  ?น  ?บ  ?ป  ?ผ  ?ฝ  ?พ  ?ฟ
4526   ?ภ  ?ม  ?ย  ?ร  ?ฤ  ?ล  ?ฦ  ?ว  ?ศ  ?ษ  ?ส  ?ห  ?ฬ  ?อ  ?ฮ  ?ฯ
4527   ?ะ  ?ั  ?า  ?ำ  ?ิ  ?ี  ?ึ  ?ื  ?ุ  ?ู  ?ฺ  nil nil nil nil ?฿
4528   ?เ  ?แ  ?โ  ?ใ  ?ไ  ?ๅ  ?ๆ  ?็  ?่  ?้  ?๊  ?๋  ?์  ?ํ  ?๎  ?๏
4529   ?๐  ?๑  ?๒  ?๓  ?๔  ?๕  ?๖  ?๗  ?๘  ?๙  ?๚  ?๛   nil nil nil nil]
4530  "ISO-8859-11.  This is `thai-tis620' with the addition of no-break-space.")
4531
4532 (dotimes (i 9)
4533   (let ((w (intern (format "windows-125%d" i)))
4534         (c (intern (format "cp125%d" i))))
4535     ;; Define cp125* as aliases for all windows-125*, so on Windows
4536     ;; we can just concat "cp" to the ANSI codepage we get from the system
4537     ;; and not have to worry about whether it should be "cp" or "windows-".
4538     (when (coding-system-p w)
4539       (define-coding-system-alias c w)
4540       ;; Compatibility with codepage.el, though cp... are not the
4541       ;; canonical names.
4542       (if (not (assq c non-iso-charset-alist))
4543           (let ((slot (assq w non-iso-charset-alist)))
4544             (if slot
4545                 (push (cons c (cdr slot)) non-iso-charset-alist)))))))
4546
4547 (provide 'code-pages)
4548
4549 ;;; arch-tag: 8b6e3c73-b271-4198-866d-ea6d0ceff1b2
4550 ;;; code-pages.el ends here