Fix setting of composition-function-table.

f07ed73c · Chong Yidong · eaf582ba · f07ed73c · f07ed73c
Commit f07ed73c authored Jan 01, 2009 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/language/cham.el lisp/language/cham.el +1 -1

lisp/language/khmer.el lisp/language/khmer.el +2 -1

No files found.
--- 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)

--- a/lisp/language/khmer.el
+++ b/lisp/language/khmer.el
@@ -30,7 +30,8 @@
 	   (sample-text . "Khmer (ភាសាខ្មែរ)	ជំរាបសួរ")
 	   (documentation . t)))

-(let ((val '(("[\x1780-\x17FF\x19E0-\x19FF\x200C\x200D]+" . font-shape-text))))
+(let ((val (list (vector "[\x1780-\x17FF\x19E0-\x19FF\x200C\x200D]+"
+			 0 'font-shape-gstring))))
  (set-char-table-range composition-function-table '(#x1780 . #x17FF) val)
  (set-char-table-range composition-function-table '(#x19E0 . #x19FF) val))