(mlm-char-glyph): Fix several composing rules.

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac995bf2557..6cadf60d353 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-24  Ramakrishnan M  <rama@gnu.org>  (tiny change)
+
+        * language/mlm-util.el (mlm-char-glyph): Fix several composing
+        rules.
+
 2003-02-24  Kenichi Handa  <handa@m17n.org>
 
         * international/characters.el: Fix syntaxes of gb2312 and big5.
diff --git a/lisp/language/mlm-util.el b/lisp/language/mlm-util.el
index 70fffcca800..3d6e1db2360 100644
--- a/lisp/language/mlm-util.el
+++ b/lisp/language/mlm-util.el
@@ -157,12 +157,12 @@ PATTERN regexp."
     ;; Consonants
     ("$,1@5(B" . "$,46)(B")
     ("$,1@5@m@5(B" . "$,47!(B")
-    ("$,1@5@m@7(B" . "$,47"(B")
+    ("$,1@5@m@S(B" . "$,47"(B")
     ("$,1@5@m@W(B" . "$,47#(B")
     ("$,1@5@m@?(B" . "$,47N(B") ;; ?
     ("$,1@5@m@D(B" . "$,47`(B")
-    ("$,1@5@m@F(B" . "$,47f(B") ;; ? ;; vowel u?
-    ("$,1@5@m@5@m@F(B" . "$,47g(B") ;; ? ;; vowel u?
+    ("$,1@5@a(B" . "$,47f(B") ;; ? ;; vowel u?
+    ("$,1@5@m@5@m@a(B" . "$,47g(B") ;; ? ;; vowel u?
 
     ("$,1@6(B" . "$,46*(B")
 
@@ -177,7 +177,7 @@ PATTERN regexp."
     ("$,1@9(B" . "$,46-(B")
     ("$,1@9@m@5(B" . "$,47&(B")
     ("$,1@9@m@9(B" . "$,47'(B")
-    ("$,1@9@m@5@m@F(B" . "$,47h(B") ;; ? ;; vowel u?
+    ("$,1@9@m@5@a(B" . "$,47h(B") ;; ? ;; vowel u?
 
     ("$,1@:(B" . "$,46.(B")
     ("$,1@:@m@:(B" . "$,47((B") ;; duplicate
@@ -217,7 +217,7 @@ PATTERN regexp."
     ("$,1@D@m@X(B" . "$,47U(B")
     ("$,1@D@m@M(B" . "$,47[(B")
     ("$,1@D@m@N(B" . "$,47_(B")
-    ("$,1@D@m@F(B" . "$,47j(B") ;; ? ;; vowel u ?
+    ("$,1@D@a(B" . "$,47j(B") ;; ? ;; vowel u ?
 
     ("$,1@E(B" . "$,469(B")