275 |
("$(5!3(B-$(5!X(B" "w" ?0) ; consonant |
("$(5!3(B-$(5!X(B" "w" ?0) ; consonant |
276 |
("$(5!Z(B-$(5!g(B" "w" ?8) ; matra |
("$(5!Z(B-$(5!g(B" "w" ?8) ; matra |
277 |
("$(5!q(B-$(5!z(B" "w" ?6) ; digit |
("$(5!q(B-$(5!z(B" "w" ?6) ; digit |
|
;; Unicode equivalents |
|
|
("$,15A5B5C(B" "w" ?7) ; vowel-modifying diacritical mark |
|
|
; chandrabindu, anuswar, visarga |
|
|
("$,15E(B-$,15M(B" "w" ?1) ; independent vowel |
|
|
("$,15U(B-$,15y(B" "w" ?0) ; consonant |
|
|
("$,15~(B-$,16)(B" "w" ?8) ; matra |
|
|
("$,16F(B-$,16O(B" "w" ?6) ; digit |
|
278 |
)) |
)) |
279 |
elm chars len syntax category to ch i) |
elm chars len syntax category to ch i) |
280 |
(while deflist |
(while deflist |
372 |
(modify-category-entry (make-char 'indian-is13194) ?i) |
(modify-category-entry (make-char 'indian-is13194) ?i) |
373 |
(modify-category-entry (make-char 'indian-2-column) ?I) |
(modify-category-entry (make-char 'indian-2-column) ?I) |
374 |
(modify-category-entry (make-char 'indian-1-column) ?I) |
(modify-category-entry (make-char 'indian-1-column) ?I) |
375 |
|
(let ((c #x901)) ; Unicode Devanagari range |
376 |
|
(while (<= c #x970) |
377 |
|
(modify-category-entry (decode-char 'ucs c) ?i) |
378 |
|
(setq c (1+ c)))) |
379 |
|
|
380 |
(let ((deflist |
(let ((deflist |
381 |
'(;; chars syntax category |
'(;; chars syntax category |
385 |
("(53(B-(5X(B" "w" ?0) ; consonant |
("(53(B-(5X(B" "w" ?0) ; consonant |
386 |
("(5Z(B-(5g(B" "w" ?8) ; matra |
("(5Z(B-(5g(B" "w" ?8) ; matra |
387 |
("(5q(B-(5z(B" "w" ?6) ; digit |
("(5q(B-(5z(B" "w" ?6) ; digit |
388 |
|
;; Unicode equivalents (ranges somewhat extended from the above) |
389 |
|
("$,15A5B5C(B" "w" ?7) ; vowel-modifying diacritical mark |
390 |
|
; chandrabindu, anuswar, visarga |
391 |
|
("$,15E(B-$,15T(B" "w" ?1) ; independent vowel |
392 |
|
("$,15U(B-$,15y(B" "w" ?0) ; consonant |
393 |
|
("$,15~(B-$,16,(B" "w" ?8) ; matra |
394 |
|
("$,16F(B-$,16O(B" "w" ?6) ; digit |
395 |
)) |
)) |
396 |
elm chars len syntax category to ch i) |
elm chars len syntax category to ch i) |
397 |
(while deflist |
(while deflist |