(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)