Mercurial > hg > xemacs-beta
annotate lisp/mule/iso-with-esc.el @ 4491:d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
src/ChangeLog addition:
2008-08-05 Aidan Kehoe <kehoea@parhasard.net>
* mule-charset.c (complex_vars_of_mule_charset):
Remove Vcharset_arabic_iso8859_7.
* lisp.h: Remove Vcharset_arabic_iso8859_7.
See commentary in lisp/mule/iso-with-esc.el for motivation.
lisp/ChangeLog addition:
2008-08-05 Aidan Kehoe <kehoea@parhasard.net>
* mule/iso-with-esc.el (greek-iso-8bit-with-esc):
(arabic-iso-8bit-with-esc):
Add these two here. Move the implementation of the
'arabic-iso8859-6 character set here, with commentary on why that
is reasonable.
* mule/arabic.el (iso-8859-6):
Add iso-8859-6, windows-1256 implementations using
make-8-bit-coding-system. Remove our non-standard Mule character
sets.
* unicode.el (load-unicode-tables): Remove Arabic since it's no
longer dumped.
* mule/mule-msw-init-late.el: Remove Arabic.
* mule/mule-category.el (predefined-category-list): Remove
Arabic.
etc/ChangeLog addition:
2008-08-05 Aidan Kehoe <kehoea@parhasard.net>
* HELLO: Encode the Arabic using UTF-8 sequences, not ISO-8859-6.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 05 Aug 2008 08:37:17 +0200 |
parents | cee827542370 |
children | 1d74a1d115ee |
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 | |
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")) | |
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
|
101 |
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
|
102 ;;;###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
|
103 (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
|
104 '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
|
105 '(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
|
106 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
|
107 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
|
108 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
|
109 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
|
110 |
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
|
111 ;; 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
|
112 ;; 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
|
113 ;; |
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 ;; 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
|
115 ;; 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
|
116 ;; |
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 ;; 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
|
118 ;; 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
|
119 ;; 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
|
120 ;; |
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 ;; 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
|
122 ;; 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
|
123 ;; 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
|
124 |
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 (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
|
126 '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
|
127 "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
|
128 '(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
|
129 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
|
130 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
|
131 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
|
132 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
|
133 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
|
134 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
|
135 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
|
136 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
|
137 |
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 (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
|
139 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
|
140 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
|
141 (#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
|
142 (#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
|
143 (#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
|
144 (#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
|
145 (#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
|
146 (#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
|
147 (#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
|
148 (#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
|
149 (#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
|
150 (#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
|
151 (#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
|
152 (#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
|
153 (#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
|
154 (#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
|
155 (#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
|
156 (#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
|
157 (#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
|
158 (#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
|
159 (#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
|
160 (#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
|
161 (#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
|
162 (#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
|
163 (#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
|
164 (#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
|
165 (#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
|
166 (#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
|
167 (#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
|
168 (#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
|
169 (#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
|
170 (#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
|
171 (#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
|
172 (#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
|
173 (#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
|
174 (#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
|
175 (#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
|
176 (#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
|
177 (#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
|
178 (#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
|
179 (#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
|
180 (#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
|
181 (#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
|
182 (#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
|
183 (#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
|
184 (#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
|
185 (#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
|
186 (#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
|
187 (#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
|
188 (#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
|
189 (#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
|
190 (#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
|
191 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
|
192 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
|
193 |
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 ;;;###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
|
195 (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
|
196 '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
|
197 ;; 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
|
198 "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
|
199 '(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
|
200 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
|
201 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
|
202 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
|
203 no-iso6429 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
|
204 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
|
205 |