diff options
| author | Kenichi Handa | 2002-11-07 06:27:55 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-11-07 06:27:55 +0000 |
| commit | cdfc5141c979e600cb76fece648c06e07f7a995a (patch) | |
| tree | 8b991f0a22c14fc724f75113a7b3ae0693493cd8 | |
| parent | 68fbe6508f306a5aec2f4fb1a36136cba700e3fb (diff) | |
| download | emacs-cdfc5141c979e600cb76fece648c06e07f7a995a.tar.gz emacs-cdfc5141c979e600cb76fece648c06e07f7a995a.zip | |
Make all chararacters in the charset tibetan to tibetan script.
| -rw-r--r-- | lisp/international/characters.el | 5 |
1 files changed, 5 insertions, 0 deletions
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 @@ | |||
| 937 | (setq script-list (cons (nth 2 elt) script-list)))) | 937 | (setq script-list (cons (nth 2 elt) script-list)))) |
| 938 | (set-char-table-extra-slot char-script-table 0 (nreverse script-list))) | 938 | (set-char-table-extra-slot char-script-table 0 (nreverse script-list))) |
| 939 | 939 | ||
| 940 | (map-charset-chars | ||
| 941 | #'(lambda (range ignore) | ||
| 942 | (set-char-table-range char-script-table range 'tibetan)) | ||
| 943 | 'tibetan) | ||
| 944 | |||
| 940 | 945 | ||
| 941 | ;;; Setting word boundary. | 946 | ;;; Setting word boundary. |
| 942 | 947 | ||