]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix the range for recording
authorKenichi Handa <handa@m17n.org>
Thu, 6 Dec 2007 07:34:14 +0000 (07:34 +0000)
committerKenichi Handa <handa@m17n.org>
Thu, 6 Dec 2007 07:34:14 +0000 (07:34 +0000)
tibetan-composition-function in composition-function-table.

lisp/language/tibetan.el

index b990e130a0701c591d138cc487d02281dc25c5be..0b966f3d1269d2acf3b6dcc5055cf8e43863a4bd 100644 (file)
@@ -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)