Mercurial > emacs
changeset 22982:5fef9d1a7fc2
(setup-XXX-environment): Just call set-language-environment. If
they used to do some other jobs than what done by
set-language-environment, those jobs are done in
setup-XXX-environment-internal now.
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
the value to setup-XXX-environment-internal. Add properties
nonascii-translation, input-method, features, unibyte-syntax, and
unibyte-display.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 10 Aug 1998 06:29:02 +0000 |
| parents | dfc5c82b7526 |
| children | 7a010b8c0d99 |
| files | lisp/language/czech.el lisp/language/greek.el lisp/language/hebrew.el lisp/language/misc-lang.el lisp/language/romanian.el lisp/language/slovak.el |
| diffstat | 6 files changed, 34 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/czech.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/czech.el Mon Aug 10 06:29:02 1998 +0000 @@ -31,14 +31,16 @@ (defun setup-czech-environment () "Setup multilingual environment (MULE) for Czech." (interactive) - (funcall (get-language-info "Latin-2" 'setup-function)) - (setq default-input-method "czech")) + (set-language-environment "Latin-2")) (set-language-info-alist - "Czech" '((setup-function . setup-czech-environment) - (charset . (ascii latin-iso8859-2)) + "Czech" '((charset . (ascii latin-iso8859-2)) (coding-system . (iso-8859-2)) (coding-priority . (iso-8859-2)) + (input-method . "czech") + (nonascii-translation . latin-iso8859-2) + (unibyte-syntax . "latin-2") + (unibyte-display . iso-8859-2) (tutorial . "TUTORIAL.cs") (sample-text . "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!") (documentation . t))
--- a/lisp/language/greek.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/greek.el Mon Aug 10 06:29:02 1998 +0000 @@ -41,14 +41,15 @@ (defun setup-greek-environment () "Setup multilingual environment (MULE) for Greek." (interactive) - (setup-8-bit-environment "Greek" 'greek-iso8859-7 "greek-postfix")) + (set-language-environment "Greek")) (set-language-info-alist - "Greek" '((setup-function . setup-greek-environment) - (charset . (greek-iso8859-7)) + "Greek" '((charset . (greek-iso8859-7)) (coding-system . (greek-iso-8bit)) (coding-priority greek-iso-8bit) - (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") + (nonascii-translation . greek-iso8859-7) + (input-method . "greek") + (unibyte-display . greek-iso-8bit) (documentation . t))) ;;; greek.el ends here
--- a/lisp/language/hebrew.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/hebrew.el Mon Aug 10 06:29:02 1998 +0000 @@ -42,14 +42,16 @@ "Setup multilingual environment (MULE) for Hebrew. But, please note that right-to-left writing is not yet supported." (interactive) - (setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 "hebrew")) + (set-language-environment "Hebrew")) (set-language-info-alist - "Hebrew" '((setup-function . setup-hebrew-environment) - (describe-function . describe-hebrew-support) + "Hebrew" '((describe-function . describe-hebrew-support) (charset . (hebrew-iso8859-8)) (coding-priority hebrew-iso-8bit) (coding-system . (hebrew-iso-8bit)) + (nonascii-translation . hebrew-iso8859-8) + (input-method . "hebrew") + (unibyte-display . hebrew-iso-8bit) (sample-text . "Hebrew ,Hylem(B") (documentation . "Right-to-left writing is not yet supported.") ))
--- a/lisp/language/misc-lang.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/misc-lang.el Mon Aug 10 06:29:02 1998 +0000 @@ -29,13 +29,15 @@ (defun setup-ipa-environment () "Setup multilingual environment (MULE) for IPA." (interactive) - (setup-english-environment)) + (set-language-environment "IPA")) (set-language-info-alist - "IPA" '((setup-function . setup-ipa-environment) - (charset . (ipa)) + "IPA" '((charset . (ipa)) (coding-priority iso-2022-7bit) (coding-system iso-2022-7bit) + (input-method . "ipa") + (nonascii-translation . ipa) + (unibyte-display . iso-2022-7bit) (documentation . "\ IPA is International Phonetic Alphabet for English, French, German and Italian.")))
--- a/lisp/language/romanian.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/romanian.el Mon Aug 10 06:29:02 1998 +0000 @@ -31,15 +31,17 @@ (defun setup-romanian-environment () "Setup multilingual environment (MULE) for Romanian." (interactive) - (setup-8-bit-environment "Romanian" 'latin-iso8859-2 "latin-2-postfix") - (load "latin-2")) + (set-language-environment "Romanian")) (set-language-info-alist - "Romanian" '((setup-function . setup-romanian-environment) - (charset . (ascii latin-iso8859-2)) + "Romanian" '((charset . (ascii latin-iso8859-2)) (coding-system . (iso-8859-2)) (coding-priority . (iso-8859-2)) - (sample-text . "Bun-Aă-B ziua, bine a-Ați-B venit!") + (nonascii-translation . latin-iso8859-2) + (input-method . "latin-2-postfix") + (unibyte-syntax . "latin-2") + (unibyte-display . iso-8859-2) + (sample-text . "Bună ziua, bine ați venit!") (documentation . t)) '("European"))
--- a/lisp/language/slovak.el Mon Aug 10 06:29:02 1998 +0000 +++ b/lisp/language/slovak.el Mon Aug 10 06:29:02 1998 +0000 @@ -33,14 +33,16 @@ (defun setup-slovak-environment () "Setup multilingual environment (MULE) for Slovak." (interactive) - (funcall (get-language-info "Latin-2" 'setup-function)) - (setq default-input-method "slovak")) + (set-language-environment "Slovak")) (set-language-info-alist - "Slovak" '((setup-function . setup-slovak-environment) - (charset . (ascii latin-iso8859-2)) + "Slovak" '((charset . (ascii latin-iso8859-2)) (coding-system . (iso-8859-2)) (coding-priority . (iso-8859-2)) + (nonascii-translation . latin-iso8859-2) + (input-method . "slovak") + (unibyte-syntax . "latin-2") + (unibyte-display . iso-8859-2) (sample-text . "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!") (documentation . t)) '("European"))