Mercurial > emacs

diff lisp/international/characters.el @ 89291:b73d29dcc8c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make all chararacters in the charset tibetan to tibetan script.
author Kenichi Handa <handa@m17n.org>
date Thu, 07 Nov 2002 06:27:55 +0000
parents f0d0b7118166
children f040012c16bb
line wrap: on
line diff
--- a/lisp/international/characters.el	Thu Nov 07 06:27:27 2002 +0000
+++ b/lisp/international/characters.el	Thu Nov 07 06:27:55 2002 +0000
@@ -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.