diff options
| author | Kenichi Handa <handa@m17n.org> | 2010-08-25 14:13:27 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2010-08-25 14:13:27 +0900 |
| commit | b60f961f6cdc1095e778ad624657bb57788512af (patch) | |
| tree | 6849297db574b29c5a650a1ab8c9aa3c70014ef4 /lisp/language/misc-lang.el | |
| parent | 2c0ac86767b5b7f362a287b5282d8397777b98a2 (diff) | |
| download | emacs-b60f961f6cdc1095e778ad624657bb57788512af.tar.gz emacs-b60f961f6cdc1095e778ad624657bb57788512af.tar.bz2 emacs-b60f961f6cdc1095e778ad624657bb57788512af.zip | |
Add Arabic support.
Diffstat (limited to 'lisp/language/misc-lang.el')
| -rw-r--r-- | lisp/language/misc-lang.el | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el index 2431c9d9e99..e2e4f29dd9e 100644 --- a/lisp/language/misc-lang.el +++ b/lisp/language/misc-lang.el @@ -40,8 +40,9 @@ IPA is International Phonetic Alphabet for English, French, German and Italian."))) -;; This is for Arabic. But, as we still don't have Arabic language -;; support, we at least define a coding system here. +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Arabic +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-coding-system 'iso-8859-6 "ISO-8859-6 based encoding (MIME:ISO-8859-6)." @@ -58,6 +59,19 @@ and Italian."))) :mime-charset 'windows-1256) (define-coding-system-alias 'cp1256 'windows-1256) +(set-language-info-alist + "Arabic" '((charset unicode) + (coding-system utf-8 iso-8859-6 windows-1256) + (coding-priority utf-8 iso-8859-6 windows-1256) + (input-method . "arabic") + (sample-text . "Arabic السّلام عليكم") + (documentation . "Bidirectional editing is supported."))) + +(set-char-table-range + composition-function-table + '(#x600 . #x6FF) + (list ["[\u0600-\u06FF]+" 0 font-shape-gstring])) + (provide 'misc-lang) ;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074 |