Mercurial > hg > xemacs-beta
annotate lisp/mule/iso-with-esc.el @ 4568:1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
lisp/ChangeLog addition:
2008-12-28 Aidan Kehoe <kehoea@parhasard.net>
* coding.el (default-query-coding-region):
Declare using defun*, so we can #'return-from to it on
encountering a safe-charsets value of t. Comment out a few
debug messages.
(query-coding-region):
Correct the docstring, it deals with a region, not a string.
(unencodable-char-position):
Correct the implementation for non-nil COUNT, special-case a zero
value for count, treat it as one. Don't rely on dynamic scope when
calling the main lambda.
* unicode.el (unicode-query-coding-region):
Comment out some debug messages here.
* mule/mule-coding.el (8-bit-fixed-query-coding-region):
Comment out some debug messages here.
* code-init.el (raw-text):
Add a safe-charsets property to this coding system.
* mule/korean.el (iso-2022-int-1):
* mule/korean.el (euc-kr):
* mule/korean.el (iso-2022-kr):
Add safe-charsets properties for these coding systems.
* mule/japanese.el (iso-2022-jp):
* mule/japanese.el (jis7):
* mule/japanese.el (jis8):
* mule/japanese.el (shift-jis):
* mule/japanese.el (iso-2022-jp-1978-irv):
* mule/japanese.el (euc-jp):
Add safe-charsets properties for all these coding systems.
* mule/iso-with-esc.el:
Add safe-charsets properties to all the coding systems in
here. Comment on the downside of a safe-charsets value of t for
iso-latin-1-with-esc.
* mule/hebrew.el (ctext-hebrew):
Add a safe-charsets property for this coding system.
* mule/devanagari.el (in-is13194-devanagari):
Add a safe-charsets property for this coding system.
* mule/chinese.el (cn-gb-2312):
* mule/chinese.el (hz-gb-2312):
* mule/chinese.el (big5):
Add safe-charsets properties for these coding systems.
* mule/latin.el (iso-8859-14):
Add an implementation for this, using #'make-8-bit-coding-system.
* mule/mule-coding.el (ctext):
* mule/mule-coding.el (iso-2022-8bit-ss2):
* mule/mule-coding.el (iso-2022-7bit-ss2):
* mule/mule-coding.el (iso-2022-jp-2):
* mule/mule-coding.el (iso-2022-7bit):
* mule/mule-coding.el (iso-2022-8):
* mule/mule-coding.el (escape-quoted):
* mule/mule-coding.el (iso-2022-lock):
Add safe-charsets properties for all these coding systems.
src/ChangeLog addition:
2008-12-28 Aidan Kehoe <kehoea@parhasard.net>
* file-coding.c (Fmake_coding_system):
Document our use of the safe-chars and safe-charsets properties,
and the differences compared to GNU.
(make_coding_system_1): Don't drop the safe-chars and
safe-charsets properties.
(Fcoding_system_property): Return the safe-chars and safe-charsets
properties when asked for them.
* file-coding.h (CODING_SYSTEM_SAFE_CHARSETS):
* coding-system-slots.h:
Make the safe-chars and safe-charsets slots available in these
headers.
tests/ChangeLog addition:
2008-12-28 Aidan Kehoe <kehoea@parhasard.net>
* automated/query-coding-tests.el:
New file, testing the functionality of #'query-coding-region and
#'query-coding-string.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 28 Dec 2008 14:46:24 +0000 |
parents | d402d7b18bd8 |
children | a67bfb29dd8b |
rev | line source |
---|---|
4303 | 1 ;;; iso-with-esc.el -- |
2 ;;; Provision of the hateful and never widely implemented Latin, Greek and | |
3 ;;; Cyrillic variable-length ISO 2022 coding systems that passed for Latin | |
4 ;;; 2, Latin 10, (etc) support in XEmacs for so long. | |
5 ;; | |
6 ;; Copyright (C) 2006 Free Software Foundation | |
7 | |
8 ;; Author: Aidan Kehoe | |
9 | |
10 ;; This file is part of XEmacs. | |
11 | |
12 ;; XEmacs is free software; you can redistribute it and/or modify it | |
13 ;; under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; XEmacs is distributed in the hope that it will be useful, but | |
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
20 ;; General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with XEmacs; see the file COPYING. If not, write to the | |
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
25 ;; Boston, MA 02110-1301, USA. | |
26 | |
27 ;;; Commentary: | |
28 | |
29 ;;; Code: | |
30 | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
31 ;; It is not particularly reasonable that iso-latin-1-with-esc has a |
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
32 ;; value of t for the safe-charsets property. We discourage its use, |
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
33 ;; though, and this behaviour is compatible with GNU. |
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
34 |
4303 | 35 ;;;###autoload |
36 (define-coding-system-alias 'iso-latin-1-with-esc 'iso-2022-8) | |
37 | |
38 ;;;###autoload | |
39 (make-coding-system | |
40 'iso-latin-2-with-esc 'iso2022 "ISO-8859-2 (Latin-2)" | |
41 '(charset-g0 ascii | |
42 charset-g1 latin-iso8859-2 | |
43 charset-g2 t | |
44 charset-g3 t | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
45 safe-charsets (ascii latin-iso8859-2) |
4303 | 46 mnemonic "MIME/Ltn-2")) |
47 | |
48 ;;;###autoload | |
49 (make-coding-system | |
50 'iso-latin-3-with-esc 'iso2022 "ISO-8859-3 (Latin-3)" | |
51 '(charset-g0 ascii | |
52 charset-g1 latin-iso8859-3 | |
53 charset-g2 t | |
54 charset-g3 t | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
55 safe-charsets (ascii latin-iso8859-3) |
4303 | 56 mnemonic "MIME/Ltn-3")) |
57 | |
58 ;;;###autoload | |
59 (make-coding-system | |
60 'iso-latin-4-with-esc 'iso2022 "ISO-8859-4 (Latin-4)" | |
61 '(charset-g0 ascii | |
62 charset-g1 latin-iso8859-4 | |
63 charset-g2 t | |
64 charset-g3 t | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
65 safe-charsets (ascii latin-iso8859-4) |
4303 | 66 mnemonic "MIME/Ltn-4")) |
67 | |
68 ;;;###autoload | |
69 (make-coding-system | |
70 'iso-latin-9-with-esc 'iso2022 | |
71 "ISO 4873 conforming 8-bit code (ASCII + Latin 9; aka Latin-1 with Euro)" | |
72 '(mnemonic "MIME/Ltn-9" ; bletch | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
73 safe-charsets (ascii latin-iso8859-15) |
4303 | 74 eol-type nil |
75 charset-g0 ascii | |
76 charset-g1 latin-iso8859-15 | |
77 charset-g2 t | |
78 charset-g3 t)) | |
79 | |
80 ;;;###autoload | |
81 (make-coding-system | |
82 'iso-latin-5-with-esc 'iso2022 "ISO-8859-9 (Latin-5)" | |
83 '(charset-g0 ascii | |
84 charset-g1 latin-iso8859-9 | |
85 charset-g2 t | |
86 charset-g3 t | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
87 safe-charsets (ascii latin-iso8859-9) |
4303 | 88 mnemonic "MIME/Ltn-5")) |
89 | |
90 ;;;###autoload | |
91 (make-coding-system | |
92 'cyrillic-iso-8bit-with-esc 'iso2022 | |
93 "ISO-8859-5 (Cyrillic)" | |
94 '(charset-g0 ascii | |
95 charset-g1 cyrillic-iso8859-5 | |
96 charset-g2 t | |
97 charset-g3 t | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
98 safe-charsets (ascii cyrillic-iso8859-5) |
4303 | 99 mnemonic "ISO8/Cyr")) |
100 | |
101 ;;;###autoload | |
102 (make-coding-system | |
103 'hebrew-iso-8bit-with-esc 'iso2022 | |
104 "ISO-8859-8 (Hebrew)" | |
105 '(charset-g0 ascii | |
106 charset-g1 hebrew-iso8859-8 | |
107 charset-g2 t | |
108 charset-g3 t | |
109 no-iso6429 t | |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
110 safe-charsets (ascii hebrew-iso8859-8) |
4303 | 111 mnemonic "MIME/Hbrw")) |
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
112 |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
113 ;;;###autoload |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
114 (make-coding-system |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
115 'greek-iso-8bit-with-esc 'iso2022 "MIME ISO-8859-7" |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
116 '(charset-g0 ascii |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
117 charset-g1 greek-iso8859-7 |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
118 charset-g2 t |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
119 charset-g3 t |
4568
1d74a1d115ee
Add #'query-coding-region tests; do the work necessary to get them running.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4491
diff
changeset
|
120 safe-charsets (ascii greek-iso8859-7) |
4491
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
121 mnemonic "Grk")) |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
122 |
d402d7b18bd8
Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4303
diff
changeset
|
123 ;; 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 |