Mercurial > emacs

changeset 97839:6954172db216

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix setting up of composition-function-table.
author Kenichi Handa <handa@m17n.org>
date Fri, 29 Aug 2008 07:59:57 +0000
parents 5752f49a8314
children 8e246e0bdbba
files lisp/language/sinhala.el lisp/language/thai.el
diffstat 2 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/sinhala.el	Fri Aug 29 07:59:39 2008 +0000
+++ b/lisp/language/sinhala.el	Fri Aug 29 07:59:57 2008 +0000
@@ -33,7 +33,7 @@
 (set-char-table-range 
  composition-function-table
  '(#xD80 . #xDFF)
- (list (cons "[\xD80-\xDFF\x200C\x200D]+" 'font-shape-text)))
+ (list (vector "[\xD80-\xDFF\x200C\x200D]+" 0 'font-shape-gstring)))
 
 ;; arch-tag: 87b9ad3b-5090-422f-b942-eb85b9d52e7c
 ;; sinhala.el ends here
--- a/lisp/language/thai.el	Fri Aug 29 07:59:39 2008 +0000
+++ b/lisp/language/thai.el	Fri Aug 29 07:59:57 2008 +0000
@@ -76,10 +76,12 @@
   :charset-list '(iso-8859-11))
 
 ;; For automatic composition.
-(let ((chars ",TQTUVWXYZghijklmn(B"))
+(let ((chars ",TQTUVWXYZghijklmn(B")
+      (elt '(["[,T!(B-,TO(B].[,Thijkl(B]?,TS(B?" 1 thai-composition-function]
+	     [nil 0 thai-composition-function])))
   (dotimes (i (length chars))
-    (aset composition-function-table (aref chars i)
-	  'thai-composition-function)))
+    (aset composition-function-table (aref chars i) elt)))
+(aset composition-function-table ?,TS(B '(["[,T!(B-,TO(B]." 1 thai-composition-function]))
 
 (provide 'thai)