diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-12-06 07:34:14 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-12-06 07:34:14 +0000 |
| commit | f1caed6d60c855c0fb39aa9205d9b323e3bef685 (patch) | |
| tree | a55b42a9b5a8c83b20ad775a24f08958d65408b9 /lisp/language | |
| parent | 14973a41343f1b3d45597eb8ad48c7dc9adc822c (diff) | |
| download | emacs-f1caed6d60c855c0fb39aa9205d9b323e3bef685.tar.gz | |
Fix the range for recording
tibetan-composition-function in composition-function-table.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/tibetan.el | 10 |
1 files changed, 2 insertions, 8 deletions
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) |