annotate lisp/mule/iso-with-esc.el @ 4692:dc3c2f298857

Support last two arguments to #'make-coding-system being optional, again. 2009-09-20 Aidan Kehoe <kehoea@parhasard.net> * mule/make-coding-system.el (make-coding-system): Require a minimum of two, not four, arguments; thank you for the problem report, Adam Sjoegren!
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 20 Sep 2009 17:19:54 +0100
parents 1d74a1d115ee
children a67bfb29dd8b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4303
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
1 ;;; iso-with-esc.el --
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
2 ;;; Provision of the hateful and never widely implemented Latin, Greek and
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
3 ;;; Cyrillic variable-length ISO 2022 coding systems that passed for Latin
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
4 ;;; 2, Latin 10, (etc) support in XEmacs for so long.
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
5 ;;
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
6 ;; Copyright (C) 2006 Free Software Foundation
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
7
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
8 ;; Author: Aidan Kehoe
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
9
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
10 ;; This file is part of XEmacs.
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
11
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
12 ;; XEmacs is free software; you can redistribute it and/or modify it
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
13 ;; under the terms of the GNU General Public License as published by
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
15 ;; any later version.
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
16
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
17 ;; XEmacs is distributed in the hope that it will be useful, but
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
20 ;; General Public License for more details.
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
21
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
23 ;; along with XEmacs; see the file COPYING. If not, write to the
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
25 ;; Boston, MA 02110-1301, USA.
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
26
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
27 ;;; Commentary:
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
28
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
29 ;;; Code:
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
35 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
36 (define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8)
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
37
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
38 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
39 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
40 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
41 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
42 charset-g1 latin-iso8859-2
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
43 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
46 mnemonic "MIME/Ltn-2"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
47
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
48 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
49 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
50 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
51 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
52 charset-g1 latin-iso8859-3
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
53 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
56 mnemonic "MIME/Ltn-3"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
57
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
58 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
59 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
60 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
61 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
62 charset-g1 latin-iso8859-4
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
63 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
66 mnemonic "MIME/Ltn-4"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
67
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
68 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
69 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
70 'iso-latin-9-with-esc 'iso2022
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
71 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
74 eol-type nil
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
75 charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
76 charset-g1 latin-iso8859-15
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
77 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
78 charset-g3 t))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
79
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
80 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
81 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
82 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
83 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
84 charset-g1 latin-iso8859-9
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
85 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
88 mnemonic "MIME/Ltn-5"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
89
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
90 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
91 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
92 'cyrillic-iso-8bit-with-esc 'iso2022
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
93 "ISO-8859-5 (Cyrillic)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
94 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
95 charset-g1 cyrillic-iso8859-5
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
96 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
99 mnemonic "ISO8/Cyr"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
100
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
101 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
102 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
103 'hebrew-iso-8bit-with-esc 'iso2022
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
104 "ISO-8859-8 (Hebrew)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
105 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
106 charset-g1 hebrew-iso8859-8
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
107 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
108 charset-g3 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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 ;; ISO 8859-6 is such a useless character set that it seems a waste of
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 ;; codespace to dump it. Let me count the ways:
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 ;;
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 ;; 1. It doesn't support Persian or Urdu, let alone Sinhalese, despite
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 ;; plenty of unallocated code points.
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 ;;
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 ;; 2. It doesn't encode all the vowel diacritics (the Harakaat) despite that
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 ;; they are necessary, even for the Arabs, for basic things like
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 ;; dictionary entries, children's books, and occasional disambiguation.
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 ;;
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
133 ;; 3. The Arabs don't use it, they use Windows-1256, which also supports
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 ;; Persian, at least, as well as the French characters necessary in
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 ;; Lebanon and North Africa.
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
136
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
137 (make-charset
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
138 '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
139 "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127"
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
140 '(dimension 1
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
141 registry "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
142 chars 96
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
143 columns 1
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
144 direction r2l
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
145 final ?G
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
146 graphic 1
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
147 short-name "RHP of 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
148 long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127"))
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
149
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
150 (loop
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
151 for (iso8859-6 unicode)
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
152 in '((#xA0 #x00A0) ;; NO-BREAK SPACE
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
153 (#xA4 #x00A4) ;; CURRENCY SIGN
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
154 (#xAC #x060C) ;; ARABIC COMMA
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
155 (#xAD #x00AD) ;; SOFT HYPHEN
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
156 (#xBB #x061B) ;; ARABIC SEMICOLON
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
157 (#xBF #x061F) ;; ARABIC QUESTION MARK
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
158 (#xC1 #x0621) ;; ARABIC LETTER HAMZA
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
159 (#xC2 #x0622) ;; ARABIC LETTER ALEF WITH MADDA ABOVE
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
160 (#xC3 #x0623) ;; ARABIC LETTER ALEF WITH HAMZA ABOVE
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
161 (#xC4 #x0624) ;; ARABIC LETTER WAW WITH HAMZA ABOVE
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
162 (#xC5 #x0625) ;; ARABIC LETTER ALEF WITH HAMZA BELOW
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
163 (#xC6 #x0626) ;; ARABIC LETTER YEH WITH HAMZA ABOVE
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
164 (#xC7 #x0627) ;; ARABIC LETTER ALEF
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
165 (#xC8 #x0628) ;; ARABIC LETTER BEH
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
166 (#xC9 #x0629) ;; ARABIC LETTER TEH MARBUTA
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
167 (#xCA #x062A) ;; ARABIC LETTER TEH
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
168 (#xCB #x062B) ;; ARABIC LETTER THEH
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
169 (#xCC #x062C) ;; ARABIC LETTER JEEM
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
170 (#xCD #x062D) ;; ARABIC LETTER HAH
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
171 (#xCE #x062E) ;; ARABIC LETTER KHAH
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
172 (#xCF #x062F) ;; ARABIC LETTER DAL
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
173 (#xD0 #x0630) ;; ARABIC LETTER THAL
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
174 (#xD1 #x0631) ;; ARABIC LETTER REH
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
175 (#xD2 #x0632) ;; ARABIC LETTER ZAIN
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
176 (#xD3 #x0633) ;; ARABIC LETTER SEEN
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
177 (#xD4 #x0634) ;; ARABIC LETTER SHEEN
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
178 (#xD5 #x0635) ;; ARABIC LETTER SAD
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
179 (#xD6 #x0636) ;; ARABIC LETTER DAD
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
180 (#xD7 #x0637) ;; ARABIC LETTER TAH
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
181 (#xD8 #x0638) ;; ARABIC LETTER ZAH
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
182 (#xD9 #x0639) ;; ARABIC LETTER AIN
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
183 (#xDA #x063A) ;; ARABIC LETTER GHAIN
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
184 (#xE0 #x0640) ;; ARABIC TATWEEL
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
185 (#xE1 #x0641) ;; ARABIC LETTER FEH
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
186 (#xE2 #x0642) ;; ARABIC LETTER QAF
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
187 (#xE3 #x0643) ;; ARABIC LETTER KAF
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
188 (#xE4 #x0644) ;; ARABIC LETTER LAM
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
189 (#xE5 #x0645) ;; ARABIC LETTER MEEM
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
190 (#xE6 #x0646) ;; ARABIC LETTER NOON
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
191 (#xE7 #x0647) ;; ARABIC LETTER HEH
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
192 (#xE8 #x0648) ;; ARABIC LETTER WAW
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
193 (#xE9 #x0649) ;; ARABIC LETTER ALEF MAKSURA
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
194 (#xEA #x064A) ;; ARABIC LETTER YEH
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
195 (#xEB #x064B) ;; ARABIC FATHATAN
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
196 (#xEC #x064C) ;; ARABIC DAMMATAN
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
197 (#xED #x064D) ;; ARABIC KASRATAN
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
198 (#xEE #x064E) ;; ARABIC FATHA
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
199 (#xEF #x064F) ;; ARABIC DAMMA
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
200 (#xF0 #x0650) ;; ARABIC KASRA
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
201 (#xF1 #x0651) ;; ARABIC SHADDA
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
202 (#xF2 #x0652));; ARABIC SUKUN
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
203 do (set-unicode-conversion (make-char 'arabic-iso8859-6 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
204 unicode))
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
205
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
206 ;;;###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
207 (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
208 '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
209 ;; 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
210 "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
211 '(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
212 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
213 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
214 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
215 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
216 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
217 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
218