Mercurial > emacs
annotate lisp/language/indian.el @ 106642:33320786e55e
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 26 Dec 2009 15:56:43 +0000 |
parents | 1f0768e4ad7e |
children | 8d23ea9e4ab1 |
rev | line source |
---|---|
92067 | 1 ;;; indian.el --- Indian languages support -*- coding: utf-8; -*- |
17052 | 2 |
100908 | 3 ;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
74544 | 4 ;; Free Software Foundation, Inc. |
100908 | 5 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
62396 | 6 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
7 ;; Registration Number H14PRO021 | |
17052 | 8 |
92067 | 9 ;; Maintainer: Kenichi Handa <handa@m17n.org> |
10 ;; KAWABATA, Taichi <kawabata@m17n.org> | |
42312 | 11 ;; Keywords: multilingual, i18n, Indian |
17052 | 12 |
13 ;; This file is part of GNU Emacs. | |
14 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 16 ;; it under the terms of the GNU General Public License as published by |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
17 ;; the Free Software Foundation, either version 3 of the License, or |
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
18 ;; (at your option) any later version. |
17052 | 19 |
20 ;; GNU Emacs is distributed in the hope that it will be useful, | |
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
23 ;; GNU General Public License for more details. | |
24 | |
25 ;; You should have received a copy of the GNU General Public License | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
26 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 27 |
28 ;;; Commentary: | |
29 | |
92067 | 30 ;; This file contains definitions of Indian language environments, and |
31 ;; setups for displaying the scrtipts used there. | |
17052 | 32 |
33 ;;; Code: | |
34 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
35 (define-coding-system 'in-is13194-devanagari |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
36 "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)." |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
37 :coding-type 'iso-2022 |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
38 :mnemonic ?D |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
39 :designation [ascii indian-is13194 nil nil] |
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
40 :charset-list '(ascii indian-is13194) |
89239
976a610d28e1
(in-is13194-devanagari): Fix
Kenichi Handa <handa@m17n.org>
parents:
89095
diff
changeset
|
41 :post-read-conversion 'in-is13194-post-read-conversion |
976a610d28e1
(in-is13194-devanagari): Fix
Kenichi Handa <handa@m17n.org>
parents:
89095
diff
changeset
|
42 :pre-write-conversion 'in-is13194-pre-write-conversion) |
17052 | 43 |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
44 (define-coding-system-alias 'devanagari 'in-is13194-devanagari) |
46743
d341cac00baf
(in-is13194): Give correct `safe-chars' property.
Kenichi Handa <handa@m17n.org>
parents:
42312
diff
changeset
|
45 |
92067 | 46 (set-language-info-alist |
47 "Devanagari" '((charset unicode) | |
48 (coding-system utf-8) | |
49 (coding-priority utf-8) | |
50 (input-method . "dev-aiba") | |
51 (documentation . "\ | |
52 Such languages using Devanagari script as Hindi and Marathi | |
53 are supported in this language environment.")) | |
54 '("Indian")) | |
50256
104cf4fa2a8e
(indian-font-foundry): New variable.
Kenichi Handa <handa@m17n.org>
parents:
49704
diff
changeset
|
55 |
92067 | 56 (set-language-info-alist |
57 "Bengali" '((charset unicode) | |
58 (coding-system utf-8) | |
59 (coding-priority utf-8) | |
60 (input-method . "bengali-itrans") | |
61 (documentation . "\ | |
62 Such languages using Bengali script as Bengali and Assamese | |
63 are supported in this language environment.")) | |
64 '("Indian")) | |
50256
104cf4fa2a8e
(indian-font-foundry): New variable.
Kenichi Handa <handa@m17n.org>
parents:
49704
diff
changeset
|
65 |
92067 | 66 (set-language-info-alist |
67 "Punjabi" '((charset unicode) | |
68 (coding-system utf-8) | |
69 (coding-priority utf-8) | |
70 (input-method . "punjabi-itrans") | |
71 (documentation . "\ | |
72 North Indian language Punjabi is supported in this language environment.")) | |
73 '("Indian")) | |
74 | |
75 (set-language-info-alist | |
76 "Gujarati" '((charset unicode) | |
77 (coding-system utf-8) | |
78 (coding-priority utf-8) | |
79 (input-method . "gujarati-itrans") | |
80 (documentation . "\ | |
81 North Indian language Gujarati is supported in this language environment.")) | |
82 '("Indian")) | |
50256
104cf4fa2a8e
(indian-font-foundry): New variable.
Kenichi Handa <handa@m17n.org>
parents:
49704
diff
changeset
|
83 |
92067 | 84 (set-language-info-alist |
85 "Oriya" '((charset unicode) | |
86 (coding-system utf-8) | |
87 (coding-priority utf-8) | |
88 (input-method . "oriya-itrans") | |
89 (documentation . "\ | |
90 Such languages using Oriya script as Oriya, Khonti, and Santali | |
91 are supported in this language environment.")) | |
92 '("Indian")) | |
57537
b9687fdf909d
(indian-script-language-alist): Swap value and doc.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
93 |
92067 | 94 (set-language-info-alist |
95 "Tamil" '((charset unicode) | |
96 (coding-system utf-8) | |
97 (coding-priority utf-8) | |
98 (input-method . "tamil-itrans") | |
99 (documentation . "\ | |
100 South Indian Language Tamil is supported in this language environment.")) | |
101 '("Indian")) | |
57537
b9687fdf909d
(indian-script-language-alist): Swap value and doc.
Kim F. Storm <storm@cua.dk>
parents:
52401
diff
changeset
|
102 |
92067 | 103 (set-language-info-alist |
104 "Telugu" '((charset unicode) | |
105 (coding-system utf-8) | |
106 (coding-priority utf-8) | |
107 (input-method . "telugu-itrans") | |
108 (documentation . "\ | |
109 South Indian Language Telugu is supported in this language environment.")) | |
110 '("Indian")) | |
17052 | 111 |
92067 | 112 (set-language-info-alist |
113 "Kannada" '((charset unicode) | |
114 (coding-system mule-utf-8) | |
115 (coding-priority mule-utf-8) | |
116 (input-method . "kannada-itrans") | |
117 (sample-text . "Kannada (ಕನ್ನಡ) ನಮಸ್ಕಾರ") | |
118 (documentation . "\ | |
119 Kannada language and script is supported in this language | |
120 environment.")) | |
121 '("Indian")) | |
17052 | 122 |
92067 | 123 (set-language-info-alist |
124 "Malayalam" '((charset unicode) | |
125 (coding-system utf-8) | |
126 (coding-priority utf-8) | |
127 (input-method . "malayalam-itrans") | |
128 (documentation . "\ | |
129 South Indian language Malayalam is supported in this language environment.")) | |
130 '("Indian")) | |
17052 | 131 |
106541
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
132 ;; Replace mnemonic characters in REGEXP according to TABLE. TABLE is |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
133 ;; an alist of (MNEMONIC-STRING . REPLACEMENT-STRING). |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
134 |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
135 (defun indian-compose-regexp (regexp table) |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
136 (let ((case-fold-search nil)) |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
137 (dolist (elt table) |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
138 (setq regexp (replace-regexp-in-string (car elt) (cdr elt) regexp t t))) |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
139 regexp)) |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
140 |
97841 | 141 (defconst devanagari-composable-pattern |
106634
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
142 (let ((table |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
143 '(("V" . "[\u0904-\u0914\u0960-\u0961\u0972]") ; independent vowel |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
144 ("C" . "[\u0915-\u0939]") ; consonant |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
145 ("R" . "\u0930") ; RA |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
146 ("n" . "\u093C") ; NUKTA |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
147 ("H" . "\u094D") ; HALANT |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
148 ("m" . "\u093F") ; vowel sign (pre) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
149 ("u" . "[\u0945-\u0948\u0955]") ; vowel sign (above) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
150 ("b" . "[\u0941-\u0944\u0962-\u0963]") ; vowel sign (below) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
151 ("p" . "[\u093E\u0940\u0949-\u094C]") ; vowel sign (post) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
152 ("A" . "[\u0900-\u0902\u0953-\u0954]") ; vowel modifier (above) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
153 ("a" . "\u0903") ; vowel modifier (post) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
154 ("S" . "\u0951") ; stress sign (above) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
155 ("s" . "\u0952") ; stress sign (below) |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
156 ("J" . "\u200D") ; ZWJ |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
157 ("N" . "\u200C") ; ZWNJ |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
158 ("X" . "[\u0900-\u097F]")))) ; all coverage |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
159 (indian-compose-regexp |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
160 (concat |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
161 ;; syllables with an independent vowel, or |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
162 "\\(?:RH\\)?Vn?m?b?u?p?n?A?s?S?a?\\|" |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
163 ;; consonant-based syllables, or |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
164 "\\(?:Cn?J?HJ?\\)*Cn?\\(?:H[NJ]?\\|m?b?u?p?n?A?s?S?a?\\)\\|" |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
165 ;; special consonant form, or |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
166 "JHR\\|" |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
167 ;; any other singleton characters |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
168 "X") |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
169 table)) |
97841 | 170 "Regexp matching a composable sequence of Devanagari characters.") |
171 | |
172 (defconst tamil-composable-pattern | |
173 (concat | |
174 "\\([அ-ஔ]\\)\\|" | |
175 "[ஂஃ]\\|" ;; vowel modifier considered independent | |
176 "\\(\\(?:\\(?:க்ஷ\\)\\|[க-ஹ]\\)[்ா-ௌ]?\\)\\|" | |
177 "\\(ஷ்ரீ\\)") | |
178 "Regexp matching a composable sequence of Tamil characters.") | |
179 | |
180 (defconst kannada-composable-pattern | |
181 (concat | |
182 "\\([ಂ-ಔೠಌ]\\)\\|[ಃ]" | |
183 "\\|\\(" | |
184 "\\(?:\\(?:[ಕ-ಹ]್\\)?\\(?:[ಕ-ಹ]್\\)?\\(?:[ಕ-ಹ]್\\)?[ಕ-ಹ]್\\)?" | |
185 "[ಕ-ಹ]\\(?:್\\|[ಾ-್ೕೃ]?\\)?" | |
186 "\\)") | |
187 "Regexp matching a composable sequence of Kannada characters.") | |
188 | |
189 (defconst malayalam-composable-pattern | |
106634
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
190 (let ((table |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
191 '(("V" . "[\u0D05-\u0D14\u0D60-\u0D61]") ; independent vowel |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
192 ("C" . "[\u0D15-\u0D39]") ; consonant |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
193 ("m" . "[\u0D46-\u0D48\u0D4A-\u0D4C]") ; prebase matra |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
194 ("p" . "[\u0D3E-\u0D44\u0D57]") ; postbase matra |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
195 ("b" . "[\u0D62-\u0D63]") ; belowbase matra |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
196 ("a" . "[\u0D02-\u0D03]") ; abovebase sign |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
197 ("H" . "\u0D4D") ; virama sign |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
198 ("N" . "\u200D") ; ZWJ |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
199 ("J" . "\u200C") ; ZWNJ |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
200 ("X" . "[\u0D00-\u0D7F]")))) ; all coverage |
106541
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
201 (indian-compose-regexp |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
202 (concat |
106634
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
203 ;; syllables with an independent vowel, or |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
204 "V\\(?:J?HC\\)?m?b?p?a?\\|" |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
205 ;; consonant-based syllables, or |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
206 "\\(?:CJ?HJ?\\)\\{0,4\\}C\\(?:H[NJ]?\\|m?b?p?a?\\)\\|" |
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
207 ;; special consonant form, or |
106541
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
208 "JHC\\|" |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
209 ;; any other singleton characters |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
210 "X") |
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
211 table)) |
97841 | 212 "Regexp matching a composable sequence of Malayalam characters.") |
213 | |
91322
fc05151881d9
Set font-shape-text for all Indic characters
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
214 (let ((script-regexp-alist |
106634
1f0768e4ad7e
(devanagari-composable-pattern): Fixed to
Kenichi Handa <handa@m17n.org>
parents:
106543
diff
changeset
|
215 `((devanagari . ,devanagari-composable-pattern) |
91322
fc05151881d9
Set font-shape-text for all Indic characters
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
216 (bengali . "[\x980-\x9FF\x200C\x200D]+") |
fc05151881d9
Set font-shape-text for all Indic characters
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
217 (gurmukhi . "[\xA00-\xA7F\x200C\x200D]+") |
fc05151881d9
Set font-shape-text for all Indic characters
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
218 (gujarati . "[\xA80-\xAFF\x200C\x200D]+") |
fc05151881d9
Set font-shape-text for all Indic characters
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
219 (oriya . "[\xB00-\xB7F\x200C\x200D]+") |
106374
d869f6255c19
Include ZWJ and ZWNJ in the patterns to shape for all Indic scripts.
Kenichi Handa <handa@m17n.org>
parents:
100908
diff
changeset
|
220 (tamil . "[\xB80-\xBFF\x200C\x200D]+") |
91322
fc05151881d9
Set font-shape-text for all Indic characters
Kenichi Handa <handa@m17n.org>
parents:
90996
diff
changeset
|
221 (telugu . "[\xC00-\xC7F\x200C\x200D]+") |
106374
d869f6255c19
Include ZWJ and ZWNJ in the patterns to shape for all Indic scripts.
Kenichi Handa <handa@m17n.org>
parents:
100908
diff
changeset
|
222 (kannada . "[\xC80-\xCFF\x200C\x200D]+") |
106541
0697cb4477c8
(indian-compose-regexp): New function.
Kenichi Handa <handa@m17n.org>
parents:
106374
diff
changeset
|
223 (malayalam . ,malayalam-composable-pattern)))) |
97841 | 224 (map-char-table |
225 #'(lambda (key val) | |
226 (let ((slot (assq val script-regexp-alist))) | |
227 (if slot | |
228 (set-char-table-range | |
229 composition-function-table key | |
230 (list (vector (cdr slot) 0 'font-shape-gstring)))))) | |
231 char-script-table)) | |
50256
104cf4fa2a8e
(indian-font-foundry): New variable.
Kenichi Handa <handa@m17n.org>
parents:
49704
diff
changeset
|
232 |
33778 | 233 (provide 'indian) |
41469 | 234 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92067
diff
changeset
|
235 ;; arch-tag: 83aa8fc7-7ee2-4364-a6e5-498f5e3b8c2f |
17052 | 236 ;;; indian.el ends here |