Mercurial > hg > xemacs-beta
annotate lisp/mule/iso-with-esc.el @ 4787:2302bb5fa67d
Goodbye dk.xemacs.org
| author | Adrian Aichner <adrian@xemacs.org> |
|---|---|
| date | Mon, 21 Dec 2009 19:21:30 +0100 |
| parents | a67bfb29dd8b |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 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 | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
31 ;; It is not particularly reasonable that iso-latin-1-with-esc has a |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
32 ;; value of t for the safe-charsets property. We discourage its use, |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
33 ;; though, and this behaviour is compatible with GNU. |
|
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
34 |
| 4303 | 35 ;;;###autoload |
| 36 (define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8) | |
| 37 | |
| 38 ;;;###autoload | |
| 39 (make-coding-system | |
| 40 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)" | |
| 41 '(charset-g0 ascii | |
| 42 charset-g1 latin-iso8859-2 | |
| 43 charset-g2 t | |
| 44 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
45 safe-charsets (ascii latin-iso8859-2) |
| 4303 | 46 mnemonic "MIME/Ltn-2")) |
| 47 | |
| 48 ;;;###autoload | |
| 49 (make-coding-system | |
| 50 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)" | |
| 51 '(charset-g0 ascii | |
| 52 charset-g1 latin-iso8859-3 | |
| 53 charset-g2 t | |
| 54 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
55 safe-charsets (ascii latin-iso8859-3) |
| 4303 | 56 mnemonic "MIME/Ltn-3")) |
| 57 | |
| 58 ;;;###autoload | |
| 59 (make-coding-system | |
| 60 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)" | |
| 61 '(charset-g0 ascii | |
| 62 charset-g1 latin-iso8859-4 | |
| 63 charset-g2 t | |
| 64 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
65 safe-charsets (ascii latin-iso8859-4) |
| 4303 | 66 mnemonic "MIME/Ltn-4")) |
| 67 | |
| 68 ;;;###autoload | |
| 69 (make-coding-system | |
| 70 'iso-latin-9-with-esc 'iso2022 | |
| 71 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)" | |
| 72 '(mnemonic "MIME/Ltn-9" ; bletch | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
73 safe-charsets (ascii latin-iso8859-15) |
| 4303 | 74 eol-type nil |
| 75 charset-g0 ascii | |
| 76 charset-g1 latin-iso8859-15 | |
| 77 charset-g2 t | |
| 78 charset-g3 t)) | |
| 79 | |
| 80 ;;;###autoload | |
| 81 (make-coding-system | |
| 82 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)" | |
| 83 '(charset-g0 ascii | |
| 84 charset-g1 latin-iso8859-9 | |
| 85 charset-g2 t | |
| 86 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
87 safe-charsets (ascii latin-iso8859-9) |
| 4303 | 88 mnemonic "MIME/Ltn-5")) |
| 89 | |
| 90 ;;;###autoload | |
| 91 (make-coding-system | |
| 92 'cyrillic-iso-8bit-with-esc 'iso2022 | |
| 93 "ISO-8859-5 (Cyrillic)" | |
| 94 '(charset-g0 ascii | |
| 95 charset-g1 cyrillic-iso8859-5 | |
| 96 charset-g2 t | |
| 97 charset-g3 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
98 safe-charsets (ascii cyrillic-iso8859-5) |
| 4303 | 99 mnemonic "ISO8/Cyr")) |
| 100 | |
| 101 ;;;###autoload | |
| 102 (make-coding-system | |
| 103 'hebrew-iso-8bit-with-esc 'iso2022 | |
| 104 "ISO-8859-8 (Hebrew)" | |
| 105 '(charset-g0 ascii | |
| 106 charset-g1 hebrew-iso8859-8 | |
| 107 charset-g2 t | |
| 108 charset-g3 t | |
| 109 no-iso6429 t | |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
110 safe-charsets (ascii hebrew-iso8859-8) |
| 4303 | 111 mnemonic "MIME/Hbrw")) |
|
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
112 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
113 ;;;###autoload |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
114 (make-coding-system |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
115 'greek-iso-8bit-with-esc 'iso2022 "MIME ISO-8859-7" |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
116 '(charset-g0 ascii |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
117 charset-g1 greek-iso8859-7 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
118 charset-g2 t |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
119 charset-g3 t |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
120 safe-charsets (ascii greek-iso8859-7) |
|
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
121 mnemonic "Grk")) |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
122 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
123 ;;;###autoload |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
124 (make-coding-system |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
125 'arabic-iso-8bit-with-esc 'iso2022 ;; GNU's iso-8859-6 is |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
126 ;; iso2022-compatible. |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
127 "ISO-8859-6 (Arabic)" |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
128 '(charset-g0 ascii |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
129 charset-g1 arabic-iso8859-6 |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
130 charset-g2 t |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
131 charset-g3 t |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
132 no-iso6429 t |
|
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
133 safe-charsets (ascii arabic-iso8859-6) |
|
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
134 mnemonic "MIME/Arbc")) |
|
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
135 |
