Make all chararacters in the charset tibetan to tibetan script.

2002-11-07 06:27:55 +00:00
parent 68fbe6508f
commit cdfc5141c9
1 changed files with 5 additions and 0 deletions
--- 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.