From cdfc5141c979e600cb76fece648c06e07f7a995a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 7 Nov 2002 06:27:55 +0000 Subject: [PATCH] Make all chararacters in the charset tibetan to tibetan script. --- lisp/international/characters.el | 5 +++++ 1 file changed, 5 insertions(+) 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. -- 2.39.5