Make all chararacters in the charset tibetan to tibetan script.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index c1927b0d3ba35484c8be65de4100fd1f35b074c2..b1f15dfe01ade8977c03f1e7f7fec80902388169 100644 (file)
--- 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)
+
 \f
 ;;; Setting word boundary.