Mercurial > hg > xemacs-beta

comparison lisp/mule/arabic.el @ 4805:980575c76541

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move the arabic-iso8859-6 character set back to C, otherwise X11 lookup fails. src/ChangeLog addition: 2010-01-07 Aidan Kehoe <kehoea@parhasard.net> * mule-charset.c: (syms_of_mule_charset, complex_vars_of_mule_charset): * lisp.h: Restore the creation of arabic-iso8859-6 in C, having it in Lisp isn't sufficient for X11 input to work. lisp/ChangeLog addition: 2010-01-07 Aidan Kehoe <kehoea@parhasard.net> * unicode.el (load-unicode-tables): * mule/mule-msw-init-late.el: * mule/mule-category.el (predefined-category-list): * mule/arabic.el: Move arabic-iso8859-6 back to C, it needs to be there, otherwise X11 character input lookup fails.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 07 Jan 2010 15:52:10 +0000
parents a67bfb29dd8b
children 308d34e9f07d
comparison
equal deleted inserted replaced
4804:3be2c7c0ef4b 4805:980575c76541
25 ;;; Commentary: 25 ;;; Commentary:
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
31 ;; ISO 8859-6 is such a useless character set that it seems a waste of
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"))
59 30
60 (make-coding-system 31 (make-coding-system
61 'iso-8859-6 'fixed-width "ISO 8859-6 (Arabic)" 32 'iso-8859-6 'fixed-width "ISO 8859-6 (Arabic)"
62 '(unicode-map 33 '(unicode-map
63 ((#x80 ?\u0080) ;; <control> 34 ((#x80 ?\u0080) ;; <control>