# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1111128538 0
# Node ID 8ae87ebc392b5c78cf201b7301f258923078a7a0
# Parent  cd94feb048c7ab7452fb76e16f136f5ec793dafd
Fix patterns to be registered in composition-function-table.

diff -r cd94feb048c7 -r 8ae87ebc392b lisp/language/thai.el
--- a/lisp/language/thai.el	Fri Mar 18 06:43:15 2005 +0000
+++ b/lisp/language/thai.el	Fri Mar 18 06:48:58 2005 +0000
@@ -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)))