Fix setting of composition-function-table.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd7e5bc9bc6666a4229d00ae197fdab94d94928d..831b191832dff02e414c24bb4810d0ac92c96000 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2008-09-05  Kenichi Handa  <handa@m17n.org>
+
+       * language/tibetan.el: Fix setting of composition-function-table.
+
+       * composite.el (find-composition): Mention about the automatic
+       composition in the docstring.
+
+       * descr-text.el (describe-char): Fix handling of automatic
+       composition.
+
 2008-09-04  Juanma Barranquero  <lekktu@gmail.com>
 
        * net/tramp-cache.el (tramp-flush-file-function): Fix typo in docstring.

diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index b22bfd6711e10246d813200bf2e263565a705129..cf4f98296d587f762862e5780b16bc22fa040668 100644 (file)
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -604,8 +604,9 @@ This also matches some punctuation characters which need conversion.")
 (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)