Mercurial > emacs
changeset 89291:b73d29dcc8c0
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 | adbc95471ef8 |
| children | 1bc1e30ea8d5 |
| files | lisp/international/characters.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
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.