Mercurial > emacs

changeset 91281:585e7f50637d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Register font-shape-text in composition-function-table.
author Kenichi Handa <handa@m17n.org>
date Tue, 25 Dec 2007 11:01:12 +0000
parents 5f6a28bb4a31
children acc3a08a4484
files lisp/language/lao.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/lao.el	Tue Dec 25 10:59:23 2007 +0000
+++ b/lisp/language/lao.el	Tue Dec 25 11:01:12 2007 +0000
@@ -47,10 +47,12 @@
 	 (documentation . t)))
 
 ;; For automatic composition.
-(let ((chars "(1QTUVWXY[\hijklm(B"))
-  (dotimes (i (length chars))
-    (aset composition-function-table (aref chars i)
-	  'lao-composition-function)))
+;; (let ((chars "(1QTUVWXY[\hijklm(B"))
+;;  (dotimes (i (length chars))
+;;    (aset composition-function-table (aref chars i)
+;;	  'lao-composition-function)))
+(set-char-table-range composition-function-table '(#xE80 . #xEDF)
+		      '(("[\xE80-\xEDF]+" . font-shape-text)))
 
 (provide 'lao)