Mercurial > emacs
changeset 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 | a4913922e131 |
| children | da62a50f7cff |
| files | lisp/language/devan-util.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/devan-util.el Sat Jun 20 02:59:51 1998 +0000 +++ b/lisp/language/devan-util.el Sat Jun 20 02:59:51 1998 +0000 @@ -215,16 +215,17 @@ ;; (defconst devanagari-digit-viram-visarga - "[$(5!q(B-$(5!z!j!#(B]") + "[$(5!q(B-$(5!z!j!#(B]") + (defconst devanagari-other-sign "\\([$(5!!!j(B]$(5!i(B\\)\\|\\([$(5#!#J(B]\\)") (defconst devanagari-composite-glyph-unit (concat "\\(" devanagari-cons-syllable "\\)\\|\\(" devanagari-vowel-syllable - "\\)\\|\\(" devanagari-digit-viram-visarga "\\)\\|\\(" devanagari-cons-vowel-syllable - "\\)\\|\\(" devanagari-other-sign "\\)") + "\\)\\|\\(" devanagari-other-sign + "\\)\\|\\(" devanagari-digit-viram-visarga "\\)") "Regexp matching to Devanagari string to be composed form one glyph.") ;;(put-charset-property charset-devanagari-1-column @@ -516,10 +517,10 @@ ("\\($(5!j!i(B\\)" "$(5#J(B") ;; Special rule for "r + some vowels" + ("\\($(5!O!_!i(B\\)" "$(5#*"p(B") + ("\\($(5!O![!i(B\\)" "$(5#&"p(B") + ("\\($(5!O!\!i(B\\)" "$(5#'"p(B") ("\\($(5!O!_(B\\)" "$(5!*"p(B") - ("\\($(5!O#L(B\\)" "$(5#&"p(B") - ("\\($(5!O#K(B\\)" "$(5#*"p(B") - ("\\($(5!O#M(B\\)" "$(5#'"p(B") ;; If everything fails, "y" will connect to the front consonant. ("\\($(5!h!M(B\\)" "$(5"](B") )