mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

Fix setting up of composition-function-table.

Browse source
This commit is contained in:
Kenichi Handa 2008-08-29 07:59:57 +00:00
parent 39a7775db4
commit 4699a15aed
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/language/sinhala.el
View file

@ -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

8
lisp/language/thai.el
View file

@ -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)