Mercurial > hg > xemacs-beta

comparison lisp/mule/iso-with-esc.el @ 4784:a67bfb29dd8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Dump the arabic-iso8859-6 character set, again. 2009-12-21 Aidan Kehoe <kehoea@parhasard.net> * mule/arabic.el (arabic-iso8859-6): Move the creation of this character set to this (dumped) file, since it's needed for input on X11. * mule/iso-with-esc.el: Remove arabic-iso8859-6 and its Unicode map from this file. * unicode.el (load-unicode-tables): Load arabic-iso8859-6 on startup again.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 21 Dec 2009 17:48:56 +0000
parents 1d74a1d115ee
children 308d34e9f07d
comparison
equal deleted inserted replaced
4783:e29fcfd8df5f 4784:a67bfb29dd8b
118 charset-g2 t 118 charset-g2 t
119 charset-g3 t 119 charset-g3 t
120 safe-charsets (ascii greek-iso8859-7) 120 safe-charsets (ascii greek-iso8859-7)
121 mnemonic "Grk")) 121 mnemonic "Grk"))
122 122
123 ;; ISO 8859-6 is such a useless character set that it seems a waste of
124 ;; codespace to dump it. Let me count the ways:
125 ;;
126 ;; 1. It doesn't support Persian or Urdu, let alone Sinhalese, despite
127 ;; plenty of unallocated code points.
128 ;;
129 ;; 2. It doesn't encode all the vowel diacritics (the Harakaat) despite that
130 ;; they are necessary, even for the Arabs, for basic things like
131 ;; dictionary entries, children's books, and occasional disambiguation.
132 ;;
133 ;; 3. The Arabs don't use it, they use Windows-1256, which also supports
134 ;; Persian, at least, as well as the French characters necessary in
135 ;; Lebanon and North Africa.
136
137 (make-charset
138 'arabic-iso8859-6
139 "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127"
140 '(dimension 1
141 registry "ISO8859-6"
142 chars 96
143 columns 1
144 direction r2l
145 final ?G
146 graphic 1
147 short-name "RHP of ISO8859/6"
148 long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127"))
149
150 (loop
151 for (iso8859-6 unicode)
152 in '((#xA0 #x00A0) ;; NO-BREAK SPACE
153 (#xA4 #x00A4) ;; CURRENCY SIGN
154 (#xAC #x060C) ;; ARABIC COMMA
155 (#xAD #x00AD) ;; SOFT HYPHEN
156 (#xBB #x061B) ;; ARABIC SEMICOLON
157 (#xBF #x061F) ;; ARABIC QUESTION MARK
158 (#xC1 #x0621) ;; ARABIC LETTER HAMZA
159 (#xC2 #x0622) ;; ARABIC LETTER ALEF WITH MADDA ABOVE
160 (#xC3 #x0623) ;; ARABIC LETTER ALEF WITH HAMZA ABOVE
161 (#xC4 #x0624) ;; ARABIC LETTER WAW WITH HAMZA ABOVE
162 (#xC5 #x0625) ;; ARABIC LETTER ALEF WITH HAMZA BELOW
163 (#xC6 #x0626) ;; ARABIC LETTER YEH WITH HAMZA ABOVE
164 (#xC7 #x0627) ;; ARABIC LETTER ALEF
165 (#xC8 #x0628) ;; ARABIC LETTER BEH
166 (#xC9 #x0629) ;; ARABIC LETTER TEH MARBUTA
167 (#xCA #x062A) ;; ARABIC LETTER TEH
168 (#xCB #x062B) ;; ARABIC LETTER THEH
169 (#xCC #x062C) ;; ARABIC LETTER JEEM
170 (#xCD #x062D) ;; ARABIC LETTER HAH
171 (#xCE #x062E) ;; ARABIC LETTER KHAH
172 (#xCF #x062F) ;; ARABIC LETTER DAL
173 (#xD0 #x0630) ;; ARABIC LETTER THAL
174 (#xD1 #x0631) ;; ARABIC LETTER REH
175 (#xD2 #x0632) ;; ARABIC LETTER ZAIN
176 (#xD3 #x0633) ;; ARABIC LETTER SEEN
177 (#xD4 #x0634) ;; ARABIC LETTER SHEEN
178 (#xD5 #x0635) ;; ARABIC LETTER SAD
179 (#xD6 #x0636) ;; ARABIC LETTER DAD
180 (#xD7 #x0637) ;; ARABIC LETTER TAH
181 (#xD8 #x0638) ;; ARABIC LETTER ZAH
182 (#xD9 #x0639) ;; ARABIC LETTER AIN
183 (#xDA #x063A) ;; ARABIC LETTER GHAIN
184 (#xE0 #x0640) ;; ARABIC TATWEEL
185 (#xE1 #x0641) ;; ARABIC LETTER FEH
186 (#xE2 #x0642) ;; ARABIC LETTER QAF
187 (#xE3 #x0643) ;; ARABIC LETTER KAF
188 (#xE4 #x0644) ;; ARABIC LETTER LAM
189 (#xE5 #x0645) ;; ARABIC LETTER MEEM
190 (#xE6 #x0646) ;; ARABIC LETTER NOON
191 (#xE7 #x0647) ;; ARABIC LETTER HEH
192 (#xE8 #x0648) ;; ARABIC LETTER WAW
193 (#xE9 #x0649) ;; ARABIC LETTER ALEF MAKSURA
194 (#xEA #x064A) ;; ARABIC LETTER YEH
195 (#xEB #x064B) ;; ARABIC FATHATAN
196 (#xEC #x064C) ;; ARABIC DAMMATAN
197 (#xED #x064D) ;; ARABIC KASRATAN
198 (#xEE #x064E) ;; ARABIC FATHA
199 (#xEF #x064F) ;; ARABIC DAMMA
200 (#xF0 #x0650) ;; ARABIC KASRA
201 (#xF1 #x0651) ;; ARABIC SHADDA
202 (#xF2 #x0652));; ARABIC SUKUN
203 do (set-unicode-conversion (make-char 'arabic-iso8859-6 iso8859-6)
204 unicode))
205
206 ;;;###autoload 123 ;;;###autoload
207 (make-coding-system 124 (make-coding-system
208 'arabic-iso-8bit-with-esc 'iso2022 ;; GNU's iso-8859-6 is 125 'arabic-iso-8bit-with-esc 'iso2022 ;; GNU's iso-8859-6 is
209 ;; iso2022-compatible. 126 ;; iso2022-compatible.
210 "ISO-8859-6 (Arabic)" 127 "ISO-8859-6 (Arabic)"