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

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 3f51272cc1367660d97e96cf9d7db66b88cbecee..b8577a84b7cd3797d65486d937916ac27cd1005c 100644 (file)
--- 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)))