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.

diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index d54689119c6e20488924ddcee8ba159f46cae63b..5c4d621e68dd43050a1bc088fc14ae621cfb46ac 100644 (file)
--- 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
-                 ("\e$(7"!\e(B-\e$(7"J\e(B"                "w"     ?0) ; consonant
-                 ("\e$(7#!\e(B-\e$(7#J#P#Q\e(B"          "w"     ?0) ;
-                 ("\e$(7$!\e(B-\e$(7$e\e(B"              "w"     ?0) ;
-                 ("\e$(7%!\e(B-\e$(7%u\e(B"              "w"     ?0) ;
-                 ("\e$(7"S"["\"]"^"a\e(B"       "w"      ?2) ; upper vowel
-                 ("\e$(7"_"c"d"g"h"i"j"k"l\e(B" "w"      ?2) ; upper modifier
-                 ("\e$(7!I"Q"U"e!e!g\e(B"       "w"      ?3) ; lowel vowel/modifier
-                 ("\e$(7!P\e(B-\e$(7!Y!Z\e(B-\e$(7!c\e(B"            "w"     ?6) ; digit
-                 ("\e$(7!;!=\e(B-\e$(7!B!D"`\e(B"        "."     ?|) ; line-break char
-                 ("\e$(8!;!=!?!@!A!D"`\e(B"            "."     ?|) ;
-                 ("\e$(7!8!;!=\e(B-\e$(7!B!D"`!m!d\e(B"  "."     ?>) ; prohibition
-                 ("\e$(8!;!=!?!@!A!D"`\e(B"            "."     ?>) ;
-                 ("\e$(7!0\e(B-\e$(7!:!l#R#S"f\e(B"      "."     ?<) ; prohibition
-                 ("\e$(7!C!E\e(B-\e$(7!H!J\e(B-\e$(7!O!f!h\e(B-\e$(7!k!n!o\e(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