diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-08-29 07:59:57 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-08-29 07:59:57 +0000 |
| commit | 4699a15aedf6ee20abee438c84fcabe874a79aa7 (patch) | |
| tree | 079f2b3778b58a5659e8a0d7cdff2ecd5549171c /lisp/language | |
| parent | 39a7775db4c03021630940758e8ece6d85d92c94 (diff) | |
| download | emacs-4699a15aedf6ee20abee438c84fcabe874a79aa7.tar.gz emacs-4699a15aedf6ee20abee438c84fcabe874a79aa7.tar.bz2 emacs-4699a15aedf6ee20abee438c84fcabe874a79aa7.zip | |
Fix setting up of composition-function-table.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/sinhala.el | 2 | ||||
| -rw-r--r-- | 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) |