From: Kenichi Handa <handa@m17n.org>
Date: Fri, 18 Mar 2005 06:48:58 +0000 (+0000)
Subject: Fix patterns to be registered in composition-function-table.
X-Git-Tag: ttn-vms-21-2-B4~1720
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b6fb4800266620551e8bd1ba5aac9e00f646625;p=emacs.git

Fix patterns to be registered in composition-function-table.
---

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 3f51272cc13..b8577a84b7c 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -57,7 +57,7 @@
 
 
 ;; Register a function to compose Thai characters.
-(let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"
+(let ((patterns '(("\\c0?\\(\\c2\\|\\c3\\|\\c4\\)+"
 		   . thai-composition-function))))
   (aset composition-function-table (make-char 'thai-tis620) patterns)
   (dotimes (i (1+ (- #xe7f #xe00)))