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.

8 files changed, 91 insertions, 18 deletions

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index d7d82c2397f..3646521e003 100644
--- a/lisp/language/cyrillic.el
+++ b/lisp/language/cyrillic.el
@@ -187,6 +187,8 @@
  "Cyrillic" '("quail-yawerty" quail-use-package "quail/cyrillic"))
 
 (defun setup-cyrillic-environment ()
+  "Setup multilingual environment for Cyrillic users."
+  (interactive)
   (setq primary-language "Cyrillic")
 
   (setq coding-category-iso-8-1 'iso-8859-5)
@@ -202,11 +204,17 @@
   (setq default-input-method '("Cyrillic" . "quail-yawerty"))
   )
 
+(defun describe-cyrillic-support ()
+  "Describe how Emacs support Cyrillic."
+  (interactive)
+  (describe-language-support-internal "Cyrillic"))
+
 (set-language-info-alist
  "Cyrillic" '((setup-function . setup-cyrillic-environment)
+              (describe-function . describe-cyrillic-support)
               (charset . (cyrillic-iso8859-5))
               (coding-system . (iso-8859-5 koi8 alternativnyj))
-              (documentation . t)
-              (sample-text . "Russian (,L@caaZXY(B)   ,L7T`PRabRcYbU(B!")))
+              (sample-text . "Russian (,L@caaZXY(B)   ,L7T`PRabRcYbU(B!")
+              (documentation . nil)))
 
 ;;; cyrillic.el ends here
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 7ca8e252fa2..f51d99fdeac 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -51,7 +51,9 @@
 (register-input-method
  "Ethiopic" '("quail-ethio" quail-use-package "quail/ethiopic"))
 
-(defun setup-ethio-environment ()
+(defun setup-ethiopic-environment ()
+  "Setup multilingual environment for Ethiopic."
+  (interactive)
   (setq primary-language "Ethiopic")
 
   (setq default-input-method '("Ethiopic" . "quail-ethio"))
@@ -83,10 +85,16 @@
       (define-key mail-mode-map [C-f5] 'fidel-to-sera-mail)))
   )
 
+(defun describe-ethiopic-support ()
+  "Describe how Emacs supports Ethiopic."
+  (interactive)
+  (describe-language-support-internal "Ethiopic"))
+
 (set-language-info-alist
- "Ethiopic" '((setup-function . setup-ethio-environment)
+ "Ethiopic" '((setup-function . setup-ethiopic-environment)
+              (describe-function . describe-ethiopic-support)
               (charset . (ethiopic))
-              (documentation . t)
-              (sample-text . "$(3$O#U!.(B")))
+              (sample-text . "$(3$O#U!.(B")
+              (documentation . nil)))
 
 ;;; ethiopic.el ends here
diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index c922258b1a6..6630e6bdb1d 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -37,6 +37,8 @@
  "Greek" '("quail-greek" quail-use-package "quail/greek"))
 
 (defun setup-greek-environment ()
+  "Setup multilingual environment (MULE) for Greek."
+  (interactive)
   (setq coding-category-iso-8-1 'iso-8859-7)
 
   (set-coding-priority
@@ -50,11 +52,17 @@
   (setq default-input-method '("Greek" . "quail-greek"))
   )
 
+(defun describe-greek-support ()
+  "Describe how Emacs supports Greek."
+  (interactive)
+  (describe-language-support-internal "Greek"))
+
 (set-language-info-alist
  "Greek" '((setup-function . setup-greek-environment)
+           (describe-function. describe-greek-support)
            (charset . (greek-iso8859-7))
            (coding-system . (iso-8859-7))
-           (documentation . t)
-           (sample-text . "Greek (,FGkk]mija(B)       ,FCei\(B ,Fsar(B")))
+           (sample-text . "Greek (,FGkk]mija(B)       ,FCei\(B ,Fsar(B")
+           (documentation . nil)))
 
 ;;; greek.el ends here
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 7ba222f1567..592734620bc 100644
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -37,6 +37,9 @@
  "Hebrew" '("quail-hebrew" quail-use-package "quail/hebrew"))
 
 (defun setup-hebrew-environment ()
+  "Setup multilingual environment (MULE) for Hebrew.
+But, please note that right-to-left writing is not yet supported."
+  (interactive)
   (setq coding-category-iso-8-1 'iso-8859-8)
 
   (set-coding-priority
@@ -51,11 +54,17 @@
   (setq default-input-method '("Hebrew" . "quail-hebrew"))
   )
 
+(defun describe-hebrew-support ()
+  "Describe how Emacs supports Hebrew."
+  (interactive)
+  (describe-language-support-internal "Hebrew"))
+
 (set-language-info-alist
  "Hebrew" '((setup-function . setup-hebrew-environment)
+            (describe-function . describe-hebrew-support)
             (charset . (hebrew-iso8859-8))
             (coding-system . (iso-8859-8))
-            (documentation . "Right-to-left writing is Not yet supported")
-            (sample-text . "Hebrew      ,Hylem(B")))
+            (sample-text . "Hebrew      ,Hylem(B")
+            (documentation . "Right-to-left writing is not yet supported.")))
 
 ;;; hebew.el ends here
diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 809ff48ae9d..d2aa5ab8688 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -51,6 +51,20 @@
 
 ;;; Code:
 
+(defun describe-indian-support ()
+  "Describe how Emacs support Indian languages."
+  (interactive)
+  (describe-language-support-internal "Indian"))
+
+(set-language-info-alist
+ "Indian" '((describe-function . describe-indian-support)
+            (charset . (indian-is13194))
+            (documentation . "\
+Among Indian languages, such languages using Devanagari scripts as
+Hindi and Marathi are supproted.  For them, please specify Devanagari
+for more detail.")
+            ))
+
 ;;  Followings are what you see when you refer to the Emacs
 ;;  representations of IS 13194 charcters.  However, this is merely
 ;;  tentative apperance, and you must convert them by
diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index 78e73e1102b..1bedb6cc91f 100644
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -37,6 +37,9 @@
  "Lao" '("quail-lrt" quail-use-package "quail/lrt"))
 
 (defun setup-lao-environment ()
+  "Setup multilingual environment (MULE) for Lao."
+  (interactive)
+  (setup-english-environment)
   (setq coding-category-iso-8-1 'lao)
 
   (set-coding-priority
@@ -47,12 +50,18 @@
 
   (setq default-input-method '("Lao" . "quail-lao")))
 
+(defun describe-lao-support ()
+  "Describe how Emacs supports Lao."
+  (interactive)
+  (describe-language-support-internal "Lao"))
+
 (set-language-info-alist
  "Lao" '((setup-function . setup-lao-environment)
+         (describe-function . describe-lao-support)
          (charset . (lao))
          (coding-system . (lao))
-         (documentation . t)
-         (sample-text . "Lao((1>RJRERG(B)            (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")))
+         (sample-text . "Lao((1>RJRERG(B)            (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")
+         (documentation . nil)))
 
 (aset use-default-ascent ?(1;(B t)
 (aset use-default-ascent ?(1=(B t)
diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index c279c248141..8172d7f59a3 100644
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -42,6 +42,9 @@
  "Thai" '("quail-thai" quail-use-package "quail/thai"))
 
 (defun setup-thai-environment ()
+  "Setup multilingual environment (MULE) for Thai."
+  (interactive)
+  (setup-english-environment)
   (setq coding-category-iso-8-1 'th-tis620)
 
   (set-coding-priority
@@ -53,12 +56,18 @@
   (setq default-input-method '("Thai" . "quail-thai"))
   )
 
+(defun describe-thai-support ()
+  "Describe how Emacs supports Thai."
+  (interactive)
+  (describe-language-support-internal "Thai"))
+
 (set-language-info-alist
  "Thai" '((tutorial . "TUTORIAL.th")
           (setup-function . setup-thai-environment)
+          (describe-function . describe-thai-support)
           (charset . (thai-tis620))
           (coding-system . (th-tis620))
-          (documentation . t)
-          (sample-text . "Thai (,T@RIRd7B(B)          ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))
+          (sample-text . "Thai (,T@RIRd7B(B)          ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
+          (documentation . nil)))
 
 ;;; thai.el ends here
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index fb62ab33a14..d8c09f55ce0 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -226,7 +226,9 @@ Both tables are indexed by the position code of Vietnamese characters.")
 (register-input-method
  "Vietnamese" '("quail-viqr" quail-use-package "quail/viqr"))
 
-(defun setup-viet-environment ()
+(defun setup-vietnamese-environment ()
+  "Setup multilingual environment (MULE) for Vietnamese."
+  (interactive)
   ;; for VISCII users
   (setq coding-category-binary 'viscii)
 
@@ -242,12 +244,18 @@ Both tables are indexed by the position code of Vietnamese characters.")
   (setq default-input-method '("Vietnamese" . "quail-viqr"))
   )
 
+(defun describe-vietnamese-support ()
+  "Describe how Emacs supports Vietnamese."
+  (interactive)
+  (describe-language-support-internal "Vietnamese"))
+
 (set-language-info-alist
- "Vietnamese" '((setup-function . setup-viet-environment)
+ "Vietnamese" '((setup-function . setup-vietnamese-environment)
+                (describe-function . describe-vietnamese-support)
                 (charset . (vietnamese-viscii-lower
                             vietnamese-viscii-upper))
                 (coding-system . (viscii vscii viqr))
-                (documentation . t)
-                (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt)     Ch,1`(Bo b,1U(Bn")))
+                (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt)     Ch,1`(Bo b,1U(Bn")
+                (documentation . nil)))
 
 ;;; vietnamese.el ends here