# HG changeset patch # User Kenichi Handa # Date 902730542 0 # Node ID 5fef9d1a7fc235951f462c0011aa62c9330ecd41 # Parent dfc5c82b75265eb2d406c7b434798e96e4c1de20 (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. diff -r dfc5c82b7526 -r 5fef9d1a7fc2 lisp/language/czech.el --- 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)) diff -r dfc5c82b7526 -r 5fef9d1a7fc2 lisp/language/greek.el --- 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 diff -r dfc5c82b7526 -r 5fef9d1a7fc2 lisp/language/hebrew.el --- 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.") )) diff -r dfc5c82b7526 -r 5fef9d1a7fc2 lisp/language/misc-lang.el --- 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."))) diff -r dfc5c82b7526 -r 5fef9d1a7fc2 lisp/language/romanian.el --- 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")) diff -r dfc5c82b7526 -r 5fef9d1a7fc2 lisp/language/slovak.el --- 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"))