Fix setting of composition-function-table.

[gnu-emacs] / lisp / language / cham.el

diff --git a/lisp/language/cham.el b/lisp/language/cham.el
index 80e92243c42eb3d9fea22debf8313003c762d067..5dbc0b6383349782a72e2e8042636fc96acd6f25 100644 (file)
--- a/lisp/language/cham.el
+++ b/lisp/language/cham.el
@@ -29,7 +29,7 @@
 
 (set-char-table-range composition-function-table
                      '(#xAA00 . #xAA5F)
-                     '(("[\xAA00-\xAA5F]+" . font-shape-text)))
+                     (list (vector "[\xAA00-\xAA5F]+" 0 'font-shape-gstring)))
 
 (set-language-info-alist
  "Cham" '((charset unicode)