|
4303
|
1 ;;; iso-with-esc.el --
|
|
|
2 ;;; Provision of the hateful and never widely implemented Latin, Greek and
|
|
|
3 ;;; Cyrillic variable-length ISO 2022 coding systems that passed for Latin
|
|
|
4 ;;; 2, Latin 10, (etc) support in XEmacs for so long.
|
|
|
5 ;;
|
|
|
6 ;; Copyright (C) 2006 Free Software Foundation
|
|
|
7
|
|
|
8 ;; Author: Aidan Kehoe
|
|
|
9
|
|
|
10 ;; This file is part of XEmacs.
|
|
|
11
|
|
|
12 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
13 ;; under the terms of the GNU General Public License as published by
|
|
|
14 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
15 ;; any later version.
|
|
|
16
|
|
|
17 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
20 ;; General Public License for more details.
|
|
|
21
|
|
|
22 ;; You should have received a copy of the GNU General Public License
|
|
|
23 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
25 ;; Boston, MA 02110-1301, USA.
|
|
|
26
|
|
|
27 ;;; Commentary:
|
|
|
28
|
|
|
29 ;;; Code:
|
|
|
30
|
|
|
31 ;;;###autoload
|
|
|
32 (define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8)
|
|
|
33
|
|
|
34 ;;;###autoload
|
|
|
35 (make-coding-system
|
|
|
36 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)"
|
|
|
37 '(charset-g0 ascii
|
|
|
38 charset-g1 latin-iso8859-2
|
|
|
39 charset-g2 t
|
|
|
40 charset-g3 t
|
|
|
41 mnemonic "MIME/Ltn-2"))
|
|
|
42
|
|
|
43 ;;;###autoload
|
|
|
44 (make-coding-system
|
|
|
45 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)"
|
|
|
46 '(charset-g0 ascii
|
|
|
47 charset-g1 latin-iso8859-3
|
|
|
48 charset-g2 t
|
|
|
49 charset-g3 t
|
|
|
50 mnemonic "MIME/Ltn-3"))
|
|
|
51
|
|
|
52 ;;;###autoload
|
|
|
53 (make-coding-system
|
|
|
54 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)"
|
|
|
55 '(charset-g0 ascii
|
|
|
56 charset-g1 latin-iso8859-4
|
|
|
57 charset-g2 t
|
|
|
58 charset-g3 t
|
|
|
59 mnemonic "MIME/Ltn-4"))
|
|
|
60
|
|
|
61 ;;;###autoload
|
|
|
62 (make-coding-system
|
|
|
63 'iso-latin-9-with-esc 'iso2022
|
|
|
64 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
|
|
|
65 '(mnemonic "MIME/Ltn-9" ; bletch
|
|
|
66 eol-type nil
|
|
|
67 charset-g0 ascii
|
|
|
68 charset-g1 latin-iso8859-15
|
|
|
69 charset-g2 t
|
|
|
70 charset-g3 t))
|
|
|
71
|
|
|
72 ;;;###autoload
|
|
|
73 (make-coding-system
|
|
|
74 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)"
|
|
|
75 '(charset-g0 ascii
|
|
|
76 charset-g1 latin-iso8859-9
|
|
|
77 charset-g2 t
|
|
|
78 charset-g3 t
|
|
|
79 mnemonic "MIME/Ltn-5"))
|
|
|
80
|
|
|
81 ;;;###autoload
|
|
|
82 (make-coding-system
|
|
|
83 'cyrillic-iso-8bit-with-esc 'iso2022
|
|
|
84 "ISO-8859-5 (Cyrillic)"
|
|
|
85 '(charset-g0 ascii
|
|
|
86 charset-g1 cyrillic-iso8859-5
|
|
|
87 charset-g2 t
|
|
|
88 charset-g3 t
|
|
|
89 mnemonic "ISO8/Cyr"))
|
|
|
90
|
|
|
91 ;;;###autoload
|
|
|
92 (make-coding-system
|
|
|
93 'hebrew-iso-8bit-with-esc 'iso2022
|
|
|
94 "ISO-8859-8 (Hebrew)"
|
|
|
95 '(charset-g0 ascii
|
|
|
96 charset-g1 hebrew-iso8859-8
|
|
|
97 charset-g2 t
|
|
|
98 charset-g3 t
|
|
|
99 no-iso6429 t
|
|
|
100 mnemonic "MIME/Hbrw"))
|
