From: Kenichi Handa <handa@m17n.org>
Date: Sat, 20 Jun 1998 02:59:51 +0000 (+0000)
Subject: (devanagari-digit-viram-visarga): Set the
X-Git-Tag: emacs-20.3~559
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb6c9254db0aa946d0d1a11e79cd1aaf3e42f665;p=emacs.git

(devanagari-digit-viram-visarga): Set the
correct value.
(devanagari-composite-glyph-unit): Likewise.
(devanagari-char-to-glyph-rules): Likewise.
---

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")
     )