Mercurial > hg > xemacs-beta
changeset 4784:a67bfb29dd8b
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 | e29fcfd8df5f |
children | d6cfba1cc388 2302bb5fa67d |
files | lisp/ChangeLog lisp/mule/arabic.el lisp/mule/iso-with-esc.el lisp/unicode.el |
diffstat | 4 files changed, 39 insertions(+), 85 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Dec 18 17:49:43 2009 +0000 +++ b/lisp/ChangeLog Mon Dec 21 17:48:56 2009 +0000 @@ -1,3 +1,13 @@ +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. + 2009-12-18 Aidan Kehoe <kehoea@parhasard.net> * alist.el (modify-alist):
--- a/lisp/mule/arabic.el Fri Dec 18 17:49:43 2009 +0000 +++ b/lisp/mule/arabic.el Mon Dec 21 17:48:56 2009 +0000 @@ -28,8 +28,34 @@ ;;; Code: -;; See iso-with-esc.el for commentary on the ISO standard Arabic character -;; set. +;; ISO 8859-6 is such a useless character set that it seems a waste of +;; codespace to dump it. Let me count the ways: +;; +;; 1. It doesn't support Persian or Urdu, let alone Sinhalese, despite +;; plenty of unallocated code points. +;; +;; 2. It doesn't encode all the vowel diacritics (the Harakaat) despite that +;; they are necessary, even for the Arabs, for basic things like +;; dictionary entries, children's books, and occasional disambiguation. +;; +;; 3. The Arabs don't use it, they use Windows-1256, which also supports +;; Persian, at least, as well as the French characters necessary in +;; Lebanon and North Africa. + +;; But; it's necessary for input on X11. + +(make-charset + 'arabic-iso8859-6 + "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127" + '(dimension 1 + registry "ISO8859-6" + chars 96 + columns 1 + direction r2l + final ?G + graphic 1 + short-name "RHP of ISO8859/6" + long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127")) (make-coding-system 'iso-8859-6 'fixed-width "ISO 8859-6 (Arabic)"
--- a/lisp/mule/iso-with-esc.el Fri Dec 18 17:49:43 2009 +0000 +++ b/lisp/mule/iso-with-esc.el Mon Dec 21 17:48:56 2009 +0000 @@ -120,89 +120,6 @@ safe-charsets (ascii greek-iso8859-7) mnemonic "Grk")) -;; ISO 8859-6 is such a useless character set that it seems a waste of -;; codespace to dump it. Let me count the ways: -;; -;; 1. It doesn't support Persian or Urdu, let alone Sinhalese, despite -;; plenty of unallocated code points. -;; -;; 2. It doesn't encode all the vowel diacritics (the Harakaat) despite that -;; they are necessary, even for the Arabs, for basic things like -;; dictionary entries, children's books, and occasional disambiguation. -;; -;; 3. The Arabs don't use it, they use Windows-1256, which also supports -;; Persian, at least, as well as the French characters necessary in -;; Lebanon and North Africa. - -(make-charset - 'arabic-iso8859-6 - "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127" - '(dimension 1 - registry "ISO8859-6" - chars 96 - columns 1 - direction r2l - final ?G - graphic 1 - short-name "RHP of ISO8859/6" - long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127")) - -(loop - for (iso8859-6 unicode) - in '((#xA0 #x00A0) ;; NO-BREAK SPACE - (#xA4 #x00A4) ;; CURRENCY SIGN - (#xAC #x060C) ;; ARABIC COMMA - (#xAD #x00AD) ;; SOFT HYPHEN - (#xBB #x061B) ;; ARABIC SEMICOLON - (#xBF #x061F) ;; ARABIC QUESTION MARK - (#xC1 #x0621) ;; ARABIC LETTER HAMZA - (#xC2 #x0622) ;; ARABIC LETTER ALEF WITH MADDA ABOVE - (#xC3 #x0623) ;; ARABIC LETTER ALEF WITH HAMZA ABOVE - (#xC4 #x0624) ;; ARABIC LETTER WAW WITH HAMZA ABOVE - (#xC5 #x0625) ;; ARABIC LETTER ALEF WITH HAMZA BELOW - (#xC6 #x0626) ;; ARABIC LETTER YEH WITH HAMZA ABOVE - (#xC7 #x0627) ;; ARABIC LETTER ALEF - (#xC8 #x0628) ;; ARABIC LETTER BEH - (#xC9 #x0629) ;; ARABIC LETTER TEH MARBUTA - (#xCA #x062A) ;; ARABIC LETTER TEH - (#xCB #x062B) ;; ARABIC LETTER THEH - (#xCC #x062C) ;; ARABIC LETTER JEEM - (#xCD #x062D) ;; ARABIC LETTER HAH - (#xCE #x062E) ;; ARABIC LETTER KHAH - (#xCF #x062F) ;; ARABIC LETTER DAL - (#xD0 #x0630) ;; ARABIC LETTER THAL - (#xD1 #x0631) ;; ARABIC LETTER REH - (#xD2 #x0632) ;; ARABIC LETTER ZAIN - (#xD3 #x0633) ;; ARABIC LETTER SEEN - (#xD4 #x0634) ;; ARABIC LETTER SHEEN - (#xD5 #x0635) ;; ARABIC LETTER SAD - (#xD6 #x0636) ;; ARABIC LETTER DAD - (#xD7 #x0637) ;; ARABIC LETTER TAH - (#xD8 #x0638) ;; ARABIC LETTER ZAH - (#xD9 #x0639) ;; ARABIC LETTER AIN - (#xDA #x063A) ;; ARABIC LETTER GHAIN - (#xE0 #x0640) ;; ARABIC TATWEEL - (#xE1 #x0641) ;; ARABIC LETTER FEH - (#xE2 #x0642) ;; ARABIC LETTER QAF - (#xE3 #x0643) ;; ARABIC LETTER KAF - (#xE4 #x0644) ;; ARABIC LETTER LAM - (#xE5 #x0645) ;; ARABIC LETTER MEEM - (#xE6 #x0646) ;; ARABIC LETTER NOON - (#xE7 #x0647) ;; ARABIC LETTER HEH - (#xE8 #x0648) ;; ARABIC LETTER WAW - (#xE9 #x0649) ;; ARABIC LETTER ALEF MAKSURA - (#xEA #x064A) ;; ARABIC LETTER YEH - (#xEB #x064B) ;; ARABIC FATHATAN - (#xEC #x064C) ;; ARABIC DAMMATAN - (#xED #x064D) ;; ARABIC KASRATAN - (#xEE #x064E) ;; ARABIC FATHA - (#xEF #x064F) ;; ARABIC DAMMA - (#xF0 #x0650) ;; ARABIC KASRA - (#xF1 #x0651) ;; ARABIC SHADDA - (#xF2 #x0652));; ARABIC SUKUN - do (set-unicode-conversion (make-char 'arabic-iso8859-6 iso8859-6) - unicode)) - ;;;###autoload (make-coding-system 'arabic-iso-8bit-with-esc 'iso2022 ;; GNU's iso-8859-6 is
--- a/lisp/unicode.el Fri Dec 18 17:49:43 2009 +0000 +++ b/lisp/unicode.el Mon Dec 21 17:48:56 2009 +0000 @@ -73,6 +73,7 @@ ("8859-3.TXT" latin-iso8859-3 #xA0 #xFF #x-80) ("8859-4.TXT" latin-iso8859-4 #xA0 #xFF #x-80) ("8859-5.TXT" cyrillic-iso8859-5 #xA0 #xFF #x-80) + ("8859-6.TXT" arabic-iso8859-6 #xA0 #xFF #x-80) ("8859-7.TXT" greek-iso8859-7 #xA0 #xFF #x-80) ("8859-8.TXT" hebrew-iso8859-8 #xA0 #xFF #x-80) ("8859-9.TXT" latin-iso8859-9 #xA0 #xFF #x-80)