From 8f76845d7eef977f60ef1e95d9bdeccb8249638c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 10 Aug 1998 06:29:02 +0000 Subject: (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. --- lisp/language/czech.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'lisp/language/czech.el') diff --git a/lisp/language/czech.el b/lisp/language/czech.el index 69de792330f..b905cef4cea 100644 --- a/lisp/language/czech.el +++ b/lisp/language/czech.el @@ -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)) -- cgit v1.2.1