From bb6c9254db0aa946d0d1a11e79cd1aaf3e42f665 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 20 Jun 1998 02:59:51 +0000 Subject: [PATCH] (devanagari-digit-viram-visarga): Set the correct value. (devanagari-composite-glyph-unit): Likewise. (devanagari-char-to-glyph-rules): Likewise. --- lisp/language/devan-util.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index b1de8933962..cd5a978e881 100644 --- a/lisp/language/devan-util.el +++ b/lisp/language/devan-util.el @@ -215,16 +215,17 @@ of '$(5!*!&!'(B' and nukta sign.") ;; (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 @@ of '$(5!*!&!'(B' and nukta sign.") ("\\($(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") ) -- 2.39.5