diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:15 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:15 +0000 |
| commit | fb8c8b4731971565fe497d6090d9a999b06ea8ef (patch) | |
| tree | 4b9c799c4a350cb8b18277d71a53f6bbc955ddef /lisp/language/tibetan.el | |
| parent | 710b5fab9f53139df529ca47565c882289494ee3 (diff) | |
| download | emacs-fb8c8b4731971565fe497d6090d9a999b06ea8ef.tar.gz emacs-fb8c8b4731971565fe497d6090d9a999b06ea8ef.tar.bz2 emacs-fb8c8b4731971565fe497d6090d9a999b06ea8ef.zip | |
Make functions setup-LANGUAGE-environment
interactive and add new functions describe-LANGUAGE-support for
all LANGUAGEs supported. Remove resisterations of input methods
which use the function encoded-kbd-select-terminal.
Setting of syntax and category is moved to characters.el.
Diffstat (limited to 'lisp/language/tibetan.el')
| -rw-r--r-- | lisp/language/tibetan.el | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index d54689119c6..5c4d621e68d 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -31,55 +31,6 @@ ;;; Code: -(define-category ?q "Tibetan") -(modify-category-entry (make-char 'tibetan) ?q) -(modify-category-entry (make-char 'tibetan-1-column) ?q) - -(let ((row 33)) - (while (< row 38) - (modify-category-entry (make-char 'tibetan row) ?q) - (setq row (1+ row)))) - -(modify-category-entry (make-char 'tibetan-1-column 33) ?q) - -(let ((deflist '(;; chars syntax category - ("$(7"!(B-$(7"J(B" "w" ?0) ; consonant - ("$(7#!(B-$(7#J#P#Q(B" "w" ?0) ; - ("$(7$!(B-$(7$e(B" "w" ?0) ; - ("$(7%!(B-$(7%u(B" "w" ?0) ; - ("$(7"S"["\"]"^"a(B" "w" ?2) ; upper vowel - ("$(7"_"c"d"g"h"i"j"k"l(B" "w" ?2) ; upper modifier - ("$(7!I"Q"U"e!e!g(B" "w" ?3) ; lowel vowel/modifier - ("$(7!P(B-$(7!Y!Z(B-$(7!c(B" "w" ?6) ; digit - ("$(7!;!=(B-$(7!B!D"`(B" "." ?|) ; line-break char - ("$(8!;!=!?!@!A!D"`(B" "." ?|) ; - ("$(7!8!;!=(B-$(7!B!D"`!m!d(B" "." ?>) ; prohibition - ("$(8!;!=!?!@!A!D"`(B" "." ?>) ; - ("$(7!0(B-$(7!:!l#R#S"f(B" "." ?<) ; prohibition - ("$(7!C!E(B-$(7!H!J(B-$(7!O!f!h(B-$(7!k!n!o(B" "." ?q) ; others - )) - elm chars len syntax category to ch i) - (while deflist - (setq elm (car deflist)) - (setq chars (car elm) - len (length chars) - syntax (nth 1 elm) - category (nth 2 elm) - i 0) - (while (< i len) - (if (= (aref chars i) ?-) - (setq i (1+ i) - to (sref chars i)) - (setq ch (sref chars i) - to ch)) - (while (<= ch to) - (modify-syntax-entry ch syntax) - (modify-category-entry ch category) - (setq ch (1+ ch))) - (setq i (+ i (char-bytes to)))) - (setq deflist (cdr deflist)))) - - ;;; Tibetan Character set. ;;; \x2130 -- \x234a is a subset of Unicode v.2 \x0f00 - \x0fb9 ;;; with a slight modification. And there are some subjoined |