From: Kenichi Handa Date: Thu, 6 Dec 2007 07:34:14 +0000 (+0000) Subject: Fix the range for recording X-Git-Tag: emacs-pretest-23.0.90~8295^2~167 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16a4c7e925d1a445e4a48e91add30abd6fddc1c0;p=emacs.git 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 b990e130a07..0b966f3d126 100644 --- 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 '((?$(7#!(B . ?$(7#J(B) "$(7#K#L#M"Q"R(B" (?$(7"S(B . ?$(7"^(B) "$(7"a"b"e"_"c"d(B" (?$(7"g(B . ?$(7"l(B) "$(7!I!e!g(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)