Mercurial > hg > xemacs-beta

comparison lisp/mule/arabic.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 257b468bf2ca
children 980575c76541
comparison
equal deleted inserted replaced
4783:e29fcfd8df5f 4784:a67bfb29dd8b
26 26
27 ;; Synched up with: Mule 2.3, FSF 21.1. 27 ;; Synched up with: Mule 2.3, FSF 21.1.
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 ;; See iso-with-esc.el for commentary on the ISO standard Arabic character 31 ;; ISO 8859-6 is such a useless character set that it seems a waste of
32 ;; set. 32 ;; codespace to dump it. Let me count the ways:
33 ;;
34 ;; 1. It doesn't support Persian or Urdu, let alone Sinhalese, despite
35 ;; plenty of unallocated code points.
36 ;;
37 ;; 2. It doesn't encode all the vowel diacritics (the Harakaat) despite that
38 ;; they are necessary, even for the Arabs, for basic things like
39 ;; dictionary entries, children's books, and occasional disambiguation.
40 ;;
41 ;; 3. The Arabs don't use it, they use Windows-1256, which also supports
42 ;; Persian, at least, as well as the French characters necessary in
43 ;; Lebanon and North Africa.
44
45 ;; But; it's necessary for input on X11.
46
47 (make-charset
48 'arabic-iso8859-6
49 "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127"
50 '(dimension 1
51 registry "ISO8859-6"
52 chars 96
53 columns 1
54 direction r2l
55 final ?G
56 graphic 1
57 short-name "RHP of ISO8859/6"
58 long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127"))
33 59
34 (make-coding-system 60 (make-coding-system
35 'iso-8859-6 'fixed-width "ISO 8859-6 (Arabic)" 61 'iso-8859-6 'fixed-width "ISO 8859-6 (Arabic)"
36 '(unicode-map 62 '(unicode-map
37 ((#x80 ?\u0080) ;; <control> 63 ((#x80 ?\u0080) ;; <control>