Fix the range for recording

tibetan-composition-function in composition-function-table.

diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index b990e130a0701c591d138cc487d02281dc25c5be..0b966f3d1269d2acf3b6dcc5055cf8e43863a4bd 100644 (file)
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -604,15 +604,9 @@ This also matches some punctuation characters which need conversion.")
 (defvar tibetan-decomposed nil)
 (defvar tibetan-decomposed-temp nil)
 
-
 ;; For automatic composition.
-(dolist (range '((?\e$(7#!\e(B . ?\e$(7#J\e(B) "\e$(7#K#L#M"Q"R\e(B" (?\e$(7"S\e(B . ?\e$(7"^\e(B) "\e$(7"a"b"e"_"c"d\e(B" (?\e$(7"g\e(B . ?\e$(7"l\e(B) "\e$(7!I!e!g\e(B"))
-  (if (stringp range)
-      (dotimes (i (length range))
-       (aset composition-function-table (aref range i)
-             'tibetan-composition-function))
-    (set-char-table-range composition-function-table range
-                         'tibetan-composition-function)))
+(set-char-table-range composition-function-table '(#xF00 . #xFD1)
+                     'tibetan-composition-function)
 
 (provide 'tibetan)