From 4699a15aedf6ee20abee438c84fcabe874a79aa7 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 29 Aug 2008 07:59:57 +0000 Subject: [PATCH] Fix setting up of composition-function-table. --- lisp/language/sinhala.el | 2 +- lisp/language/thai.el | 8 +++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/language/sinhala.el b/lisp/language/sinhala.el index d3e75af965f..b488ee5488f 100644 --- a/lisp/language/sinhala.el +++ b/lisp/language/sinhala.el @@ -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 diff --git a/lisp/language/thai.el b/lisp/language/thai.el index 311e3675779..2eb83f32fa6 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -76,10 +76,12 @@ This is the same as `thai-tis620' with the addition of no-break-space." :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) -- 2.39.5