From: Kenichi Handa <handa@m17n.org>
Date: Mon, 24 Feb 2003 11:03:44 +0000 (+0000)
Subject: (mlm-char-glyph): Fix several composing rules.
X-Git-Tag: ttn-vms-21-2-B4~11053
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7b43558c6b0651bfc88ca03b555c100a2c8e89d;p=emacs.git

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

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