Mercurial > emacs
comparison lisp/language/devan-util.el @ 22520:901451c61b3f
(devanagari-digit-viram-visarga): Set the
correct value.
(devanagari-composite-glyph-unit): Likewise.
(devanagari-char-to-glyph-rules): Likewise.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sat, 20 Jun 1998 02:59:51 +0000 |
parents | b598d28da979 |
children | 708271862495 |
comparison
equal
deleted
inserted
replaced
22519:a4913922e131 | 22520:901451c61b3f |
---|---|
213 ;; In IS 13194, Avagrah is obtained by Nukta after Viram, and | 213 ;; In IS 13194, Avagrah is obtained by Nukta after Viram, and |
214 ;; OM is obtained by Nukta after Chandrabindu | 214 ;; OM is obtained by Nukta after Chandrabindu |
215 ;; | 215 ;; |
216 | 216 |
217 (defconst devanagari-digit-viram-visarga | 217 (defconst devanagari-digit-viram-visarga |
218 "[$(5!q(B-$(5!z!j!#(B]") | 218 "[$(5!q(B-$(5!z!j!#(B]") |
219 | |
219 (defconst devanagari-other-sign | 220 (defconst devanagari-other-sign |
220 "\\([$(5!!!j(B]$(5!i(B\\)\\|\\([$(5#!#J(B]\\)") | 221 "\\([$(5!!!j(B]$(5!i(B\\)\\|\\([$(5#!#J(B]\\)") |
221 | 222 |
222 (defconst devanagari-composite-glyph-unit | 223 (defconst devanagari-composite-glyph-unit |
223 (concat "\\(" devanagari-cons-syllable | 224 (concat "\\(" devanagari-cons-syllable |
224 "\\)\\|\\(" devanagari-vowel-syllable | 225 "\\)\\|\\(" devanagari-vowel-syllable |
225 "\\)\\|\\(" devanagari-digit-viram-visarga | |
226 "\\)\\|\\(" devanagari-cons-vowel-syllable | 226 "\\)\\|\\(" devanagari-cons-vowel-syllable |
227 "\\)\\|\\(" devanagari-other-sign "\\)") | 227 "\\)\\|\\(" devanagari-other-sign |
228 "\\)\\|\\(" devanagari-digit-viram-visarga "\\)") | |
228 "Regexp matching to Devanagari string to be composed form one glyph.") | 229 "Regexp matching to Devanagari string to be composed form one glyph.") |
229 | 230 |
230 ;;(put-charset-property charset-devanagari-1-column | 231 ;;(put-charset-property charset-devanagari-1-column |
231 ;; 'char-to-glyph 'devanagari-compose-string) | 232 ;; 'char-to-glyph 'devanagari-compose-string) |
232 ;;(put-charset-property charset-devanagari-2-column | 233 ;;(put-charset-property charset-devanagari-2-column |
514 ("\\($(5!\!i(B\\)" "$(5#M(B") | 515 ("\\($(5!\!i(B\\)" "$(5#M(B") |
515 ("\\($(5!_!i(B\\)" "$(5#K(B") | 516 ("\\($(5!_!i(B\\)" "$(5#K(B") |
516 ("\\($(5!j!i(B\\)" "$(5#J(B") | 517 ("\\($(5!j!i(B\\)" "$(5#J(B") |
517 | 518 |
518 ;; Special rule for "r + some vowels" | 519 ;; Special rule for "r + some vowels" |
520 ("\\($(5!O!_!i(B\\)" "$(5#*"p(B") | |
521 ("\\($(5!O![!i(B\\)" "$(5#&"p(B") | |
522 ("\\($(5!O!\!i(B\\)" "$(5#'"p(B") | |
519 ("\\($(5!O!_(B\\)" "$(5!*"p(B") | 523 ("\\($(5!O!_(B\\)" "$(5!*"p(B") |
520 ("\\($(5!O#L(B\\)" "$(5#&"p(B") | |
521 ("\\($(5!O#K(B\\)" "$(5#*"p(B") | |
522 ("\\($(5!O#M(B\\)" "$(5#'"p(B") | |
523 ;; If everything fails, "y" will connect to the front consonant. | 524 ;; If everything fails, "y" will connect to the front consonant. |
524 ("\\($(5!h!M(B\\)" "$(5"](B") | 525 ("\\($(5!h!M(B\\)" "$(5"](B") |
525 ) | 526 ) |
526 "Alist of regexps of Devanagari character sequences vs composed characters.") | 527 "Alist of regexps of Devanagari character sequences vs composed characters.") |
527 | 528 |