From: Kenichi Handa <handa@m17n.org>
Date: Thu, 7 Nov 2002 06:27:55 +0000 (+0000)
Subject: Make all chararacters in the charset tibetan to tibetan script.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~170
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cdfc5141c979e600cb76fece648c06e07f7a995a;p=emacs.git

Make all chararacters in the charset tibetan to tibetan script.
---

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index c1927b0d3ba..b1f15dfe01a 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -937,6 +937,11 @@
 	(setq script-list (cons (nth 2 elt) script-list))))
   (set-char-table-extra-slot char-script-table 0 (nreverse script-list)))
 
+(map-charset-chars 
+ #'(lambda (range ignore)
+     (set-char-table-range char-script-table range 'tibetan))
+ 'tibetan)
+
 
 ;;; Setting word boundary.