Mercurial > emacs

comparison lisp/language/devan-util.el @ 22520:901451c61b3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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