From dc09922d1e82dbe164379301e242961748c7e67d Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 12 May 1997 07:00:16 +0000 Subject: [PATCH] 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. --- lisp/language/cyrillic.el | 12 ++++++++++-- lisp/language/ethiopic.el | 16 ++++++++++++---- lisp/language/greek.el | 12 ++++++++++-- lisp/language/hebrew.el | 13 +++++++++++-- lisp/language/indian.el | 14 ++++++++++++++ lisp/language/lao.el | 13 +++++++++++-- lisp/language/thai.el | 13 +++++++++++-- lisp/language/vietnamese.el | 16 ++++++++++++---- 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 -- 2.39.2