changeset 60702:8ae87ebc392b

Fix patterns to be registered in composition-function-table.
author Kenichi Handa <handa@m17n.org>
date Fri, 18 Mar 2005 06:48:58 +0000
parents cd94feb048c7
children e3798cf289c0
files lisp/language/thai.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))