# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 898311591 0
# Node ID 901451c61b3f0a991b804d8e15f6e26fa51b48e0
# Parent  a4913922e131bdc0cb0c80a1b58abd82e2339cc7
(devanagari-digit-viram-visarga): Set the
correct value.
(devanagari-composite-glyph-unit): Likewise.
(devanagari-char-to-glyph-rules): Likewise.

diff -r a4913922e131 -r 901451c61b3f lisp/language/devan-util.el
--- 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")
     )