Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b60f961f
Commit
b60f961f
authored
Aug 25, 2010
by
Kenichi Handa
Browse files
Add Arabic support.
parent
2c0ac867
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
32 additions
and
6 deletions
+32
-6
etc/ChangeLog
etc/ChangeLog
+4
-0
etc/HELLO
etc/HELLO
+2
-2
lisp/ChangeLog
lisp/ChangeLog
+8
-0
lisp/international/fontset.el
lisp/international/fontset.el
+1
-1
lisp/international/mule-cmds.el
lisp/international/mule-cmds.el
+1
-1
lisp/language/misc-lang.el
lisp/language/misc-lang.el
+16
-2
No files found.
etc/ChangeLog
View file @
b60f961f
2010-08-25 Kenichi Handa <handa@m17n.org>
* HELLO: Change designation sequences for Arabic text.
2010-08-14 Eli Zaretskii <eliz@gnu.org>
* tutorials/TUTORIAL.he: Use MAQAF instead of hyphen where appropriate.
...
...
etc/HELLO
View file @
b60f961f
...
...
@@ -4,7 +4,7 @@ Non-ASCII examples:
Europe: ,A!(BHola!, Gr,A|_(B Gott, Hyv,Add(B p,Ad(Biv,Add(B, Tere ,Au(Bhtust, Bon,Cu(Bu
Cze,B6f(B!, Dobr,B}(B den, ,L7T`PRabRcYbU(B!, ,FCei\(B ,Fsar(B, $,1J2J0J;J0J@JOJ=J1J0(B
Africa: $(3!A!,!>(B
Middle/Near East: ,Hylem(B,
,GGdSqdGe(B ,GYdjce
(B
Middle/Near East: ,Hylem(B,
$,1-g.$-s.1.$-g.%(B $,1-y.$.*.#.%
(B
South Asia: $,19h9n9x:-9d:'(B, $,15h5n5x6-5d6'(B, $,1?(?.?8?M>u?>?0(B, $,1@H@N@X@m@5@^@P@"(B, $,1;6;A;#;?;,;G(B,
$,1AFAzB4AvB=B AqB*(B, $,1<U<C<5<m<5<N<m(B, $,1=h=n=x>-=U=~=p=B(B, $(7"7"!#C!;"E"S"G!;"7"2"[!;"D"["#"G!>(B
South East Asia: $,1\'\f\:\V\4\?\]\:(B, (1JP:R-4U(B, $,1H9H$HZHYH"H<HLH5HK(B, ,TJGQJ4U$CQ:(B, Ch,1`(Bo b,1U(Bn
...
...
@@ -16,7 +16,7 @@ Non-ASCII examples:
LANGUAGE (NATIVE NAME) HELLO
---------------------- -----
Amharic ($,1O M[MmN{(B) $,1M`MKM](B
Arabic $,1ro(B(
,GGdYQHjqI(B) ,GGdSqdGe(B ,GYdjce
(B
Arabic $,1ro(B(
$,1-g.$-y-q-h.*.1-i(B) $,1-g.$-s.1.$-g.%(B $,1-y.$.*.#.%
(B
Bengali ($,17,7>6b727>(B) $,17(7.787M6u7>70(B
Braille $,2(3(1('('(5(B
Burmese ($,1H9H\H4HZH9HL(B) $,1H9H$HZHYH"H<HLH5HK(B
...
...
lisp/ChangeLog
View file @
b60f961f
2010-08-25 Kenichi Handa <handa@m17n.org>
* language/misc-lang.el ("Arabic"): New language environment.
Setup composition-function-table for Arabic characters.
* international/fontset.el (setup-default-fontset): Fix typo for
arabic OTF spec (fini->fina).
2010-08-18 Stefan Monnier <monnier@iro.umontreal.ca>
* simple.el (prog-mode-map): New var.
...
...
lisp/international/fontset.el
View file @
b60f961f
...
...
@@ -433,7 +433,7 @@
(
nil
.
"koi8-r"
))
(
arabic
,
(
font-spec
:registry
"iso10646-1"
:otf
'
(
arab
nil
(
init
medi
fin
i
liga
)))
:otf
'
(
arab
nil
(
init
medi
fin
a
liga
)))
(
nil
.
"MuleArabic-0"
)
(
nil
.
"MuleArabic-1"
)
(
nil
.
"MuleArabic-2"
)
...
...
lisp/international/mule-cmds.el
View file @
b60f961f
...
...
@@ -2179,7 +2179,7 @@ See `set-language-info-alist' for use in programs."
("
af
" . "
Latin-1
") ; Afrikaans
("
am
" "
Ethiopic
" utf-8) ; Amharic
("
an
" . "
Latin-9
") ; Aragonese
; ar Arabic glibc uses 8859-6
("
ar
" . "
Arabic
")
; as Assamese
; ay Aymara
("
az
" . "
UTF-8
") ; Azerbaijani
...
...
lisp/language/misc-lang.el
View file @
b60f961f
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment