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.

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index d7d82c2397ffafab8e7b452185344a12740a039f..3646521e003e4b3c1838eec1c6bc9aa186801bec 100644 (file)
--- 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 (\e,L@caaZXY\e(B)   \e,L7T`PRabRcYbU\e(B!")))
+             (sample-text . "Russian (\e,L@caaZXY\e(B)   \e,L7T`PRabRcYbU\e(B!")
+             (documentation . nil)))
 
 ;;; cyrillic.el ends here

diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 7ca8e252fa27c684bfce51be43bf412caa771dbd..f51d99fdeac046a7534cc140b3befaf76af53795 100644 (file)
--- 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 . "\e$(3$O#U!.\e(B")))
+             (sample-text . "\e$(3$O#U!.\e(B")
+             (documentation . nil)))
 
 ;;; ethiopic.el ends here

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index c922258b1a6a71d74bdeeab46dc5ef31d66d69a1..6630e6bdb1da047cc251585439f5b6a865dabb38 100644 (file)
--- 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 (\e,FGkk]mija\e(B)       \e,FCei\\e(B \e,Fsar\e(B")))
+          (sample-text . "Greek (\e,FGkk]mija\e(B)       \e,FCei\\e(B \e,Fsar\e(B")
+          (documentation . nil)))
 
 ;;; greek.el ends here

diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 7ba222f1567f41c48d784fb8d33512fb558f1012..592734620bc988b2932f6dadcea146aa23bc3087 100644 (file)
--- 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      \e,Hylem\e(B")))
+           (sample-text . "Hebrew      \e,Hylem\e(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 809ff48ae9df288226b100f1967d219cef24ee54..d2aa5ab8688f5480290e950567fefbf3b3c20166 100644 (file)
--- 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 78e73e1102bb7aecdbcd3c7b3e4edf9dfc74a6c7..1bedb6cc91f6c446e0d1f3f992125537e049d373 100644 (file)
--- 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(\e(1>RJRERG\e(B)            \e(1JP:R-\e04U\e1\e(B, \e0\e(1"i\e1M-`\e0;Q\e19\e0$[\e19ERG\e(B")))
+        (sample-text . "Lao(\e(1>RJRERG\e(B)            \e(1JP:R-\e04U\e1\e(B, \e0\e(1"i\e1M-`\e0;Q\e19\e0$[\e19ERG\e(B")
+        (documentation . nil)))
 
 (aset use-default-ascent ?\e(1;\e(B t)
 (aset use-default-ascent ?\e(1=\e(B t)

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index c279c248141fa7368eb057947b35604afa971c98..8172d7f59a357ba2634d4e3a61364da40b787355 100644 (file)
--- 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 (\e,T@RIRd7B\e(B)          \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")))
+         (sample-text . "Thai (\e,T@RIRd7B\e(B)          \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")
+         (documentation . nil)))
 
 ;;; thai.el ends here

diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index fb62ab33a14d741402931e590af297b68f49b094..d8c09f55ce0dcad81530e6044ef56d2a5a7a0af3 100644 (file)
--- 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\e,1*\e(Bng Vi\e,1.\e(Bt)     Ch\e,1`\e(Bo b\e,1U\e(Bn")))
+               (sample-text . "Vietnamese (Ti\e,1*\e(Bng Vi\e,1.\e(Bt)     Ch\e,1`\e(Bo b\e,1U\e(Bn")
+               (documentation . nil)))
 
 ;;; vietnamese.el ends here