Mercurial > emacs

changeset 17772:550afdbb31d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 07:00:16 +0000
parents 1db36f7e82d1
children f1ece95d00c2
files lisp/language/cyrillic.el lisp/language/ethiopic.el lisp/language/greek.el lisp/language/hebrew.el lisp/language/indian.el lisp/language/lao.el lisp/language/thai.el lisp/language/vietnamese.el
diffstat 8 files changed, 91 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/cyrillic.el	Mon May 12 07:00:16 1997 +0000
@@ -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
--- a/lisp/language/ethiopic.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/ethiopic.el	Mon May 12 07:00:16 1997 +0000
@@ -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
--- a/lisp/language/greek.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/greek.el	Mon May 12 07:00:16 1997 +0000
@@ -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
--- a/lisp/language/hebrew.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/hebrew.el	Mon May 12 07:00:16 1997 +0000
@@ -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
--- a/lisp/language/indian.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/indian.el	Mon May 12 07:00:16 1997 +0000
@@ -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
--- a/lisp/language/lao.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/lao.el	Mon May 12 07:00:16 1997 +0000
@@ -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)
--- a/lisp/language/thai.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/thai.el	Mon May 12 07:00:16 1997 +0000
@@ -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
--- a/lisp/language/vietnamese.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/vietnamese.el	Mon May 12 07:00:16 1997 +0000
@@ -226,7 +226,9 @@
 (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 @@
   (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