changeset 100814:0ec875b853c9

Fix setting of composition-function-table.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 01 Jan 2009 07:47:55 +0000
parents 5b5b576a633d
children 781037532b30
files lisp/language/khmer.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/khmer.el	Thu Jan 01 07:47:37 2009 +0000
+++ b/lisp/language/khmer.el	Thu Jan 01 07:47:55 2009 +0000
@@ -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))