Mercurial > emacs

changeset 91200:d7ab840d0941

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix the range for recording tibetan-composition-function in composition-function-table.
author Kenichi Handa <handa@m17n.org>
date Thu, 06 Dec 2007 07:34:14 +0000
parents 06f583f75d55
children 20eba9f5ae64
files lisp/language/tibetan.el
diffstat 1 files changed, 2 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/tibetan.el	Thu Dec 06 07:33:28 2007 +0000
+++ b/lisp/language/tibetan.el	Thu Dec 06 07:34:14 2007 +0000
@@ -604,15 +604,9 @@
 (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)