Mercurial > hg > xemacs-beta

comparison lisp/mule/iso-with-esc.el @ 4303:cee827542370

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-04 20:18:33 by aidan] Implement coding system autoloads; use them for the variable-length ISO 2022 Latin coding systems.
author aidan
date Tue, 04 Dec 2007 20:18:43 +0000
parents
children d402d7b18bd8
comparison
equal deleted inserted replaced
4302:2f5ccbd44293 4303:cee827542370
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"))