# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1046084607 0
# Node ID 15e3ed34db0a1fadab75b302aa2fec3f98e99d23
# Parent  d8dc2c9f8adaf1a43878935f4a34980e89cad8e7
(mlm-char-glyph): Fix several composing rules.

diff -r d8dc2c9f8ada -r 15e3ed34db0a lisp/language/mlm-util.el
--- a/lisp/language/mlm-util.el	Mon Feb 24 10:57:59 2003 +0000
+++ b/lisp/language/mlm-util.el	Mon Feb 24 11:03:27 2003 +0000
@@ -157,12 +157,12 @@
     ;; 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 @@
     ("$,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 @@
     ("$,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")