# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1220576430 0
# Node ID 64b0e68e3313cbbe524bacb8eac79d4e16fe9bce
# Parent  26069577e76b400461c48eed5bc293d48394697b
Fix setting of composition-function-table.

diff -r 26069577e76b -r 64b0e68e3313 lisp/language/tibetan.el
--- a/lisp/language/tibetan.el	Fri Sep 05 00:53:00 2008 +0000
+++ b/lisp/language/tibetan.el	Fri Sep 05 01:00:30 2008 +0000
@@ -604,8 +604,9 @@
 (defvar tibetan-decomposed-temp nil)
 
 ;; For automatic composition.
-(set-char-table-range composition-function-table '(#xF00 . #xFD1)
-		      '(("[\xF00-\xFD1]+" . tibetan-composition-function)))
+(set-char-table-range 
+ composition-function-table '(#xF00 . #xFD1)
+ (list (vector tibetan-composable-pattern 0 'font-shape-gstring)))
 
 (provide 'tibetan)