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
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
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
31 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
32 (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
33
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
34 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
35 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
36 '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
37 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
38 charset-g1 latin-iso8859-2
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
39 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
40 charset-g3 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
41 mnemonic "MIME/Ltn-2"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
42
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
43 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
44 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
45 '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
46 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
47 charset-g1 latin-iso8859-3
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
48 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
49 charset-g3 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
50 mnemonic "MIME/Ltn-3"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
51
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
52 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
53 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
54 '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
55 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
56 charset-g1 latin-iso8859-4
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
57 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
58 charset-g3 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
59 mnemonic "MIME/Ltn-4"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
60
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
61 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
62 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
63 'iso-latin-9-with-esc 'iso2022
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
64 "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
65 '(mnemonic "MIME/Ltn-9" ; bletch
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
66 eol-type nil
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
67 charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
68 charset-g1 latin-iso8859-15
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
69 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
70 charset-g3 t))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
71
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
72 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
73 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
74 '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
75 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
76 charset-g1 latin-iso8859-9
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 mnemonic "MIME/Ltn-5"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
80
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
81 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
82 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
83 'cyrillic-iso-8bit-with-esc 'iso2022
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
84 "ISO-8859-5 (Cyrillic)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
85 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
86 charset-g1 cyrillic-iso8859-5
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
87 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
88 charset-g3 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
89 mnemonic "ISO8/Cyr"))
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
90
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
91 ;;;###autoload
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
92 (make-coding-system
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
93 'hebrew-iso-8bit-with-esc 'iso2022
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
94 "ISO-8859-8 (Hebrew)"
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
95 '(charset-g0 ascii
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
96 charset-g1 hebrew-iso8859-8
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
97 charset-g2 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
98 charset-g3 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
99 no-iso6429 t
cee827542370 [xemacs-hg @ 2007-12-04 20:18:33 by aidan]
aidan
parents:
diff changeset
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