Mercurial > emacs

comparison lisp/language/misc-lang.el @ 109984:92cc550cda9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add Arabic support.
author Kenichi Handa <handa@m17n.org>
date Wed, 25 Aug 2010 14:13:27 +0900
parents 9ce60f5ba0af
children 417b1e4d63cd
comparison
equal deleted inserted replaced
109848:637005c4c3ca 109984:92cc550cda9a
38 (nonascii-translation . ipa) 38 (nonascii-translation . ipa)
39 (documentation . "\ 39 (documentation . "\
40 IPA is International Phonetic Alphabet for English, French, German 40 IPA is International Phonetic Alphabet for English, French, German
41 and Italian."))) 41 and Italian.")))
42 42
43 ;; This is for Arabic. But, as we still don't have Arabic language 43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44 ;; support, we at least define a coding system here. 44 ;; Arabic
45 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
45 46
46 (define-coding-system 'iso-8859-6 47 (define-coding-system 'iso-8859-6
47 "ISO-8859-6 based encoding (MIME:ISO-8859-6)." 48 "ISO-8859-6 based encoding (MIME:ISO-8859-6)."
48 :coding-type 'charset 49 :coding-type 'charset
49 :mnemonic ?6 50 :mnemonic ?6
56 :mnemonic ?A 57 :mnemonic ?A
57 :charset-list '(windows-1256) 58 :charset-list '(windows-1256)
58 :mime-charset 'windows-1256) 59 :mime-charset 'windows-1256)
59 (define-coding-system-alias 'cp1256 'windows-1256) 60 (define-coding-system-alias 'cp1256 'windows-1256)
60 61
62 (set-language-info-alist
63 "Arabic" '((charset unicode)
64 (coding-system utf-8 iso-8859-6 windows-1256)
65 (coding-priority utf-8 iso-8859-6 windows-1256)
66 (input-method . "arabic")
67 (sample-text . "Arabic السّلام عليكم")
68 (documentation . "Bidirectional editing is supported.")))
69
70 (set-char-table-range
71 composition-function-table
72 '(#x600 . #x6FF)
73 (list ["[\u0600-\u06FF]+" 0 font-shape-gstring]))
74
61 (provide 'misc-lang) 75 (provide 'misc-lang)
62 76
63 ;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074 77 ;; arch-tag: 6953585c-1a1a-4c09-be82-a2518afb6074
64 ;;; misc-lang.el ends here 78 ;;; misc-lang.el ends here