From fba04b4cd2f60afda21f4ca418b9cfc8c1c3843d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 May 1998 19:51:27 +0000 Subject: [PATCH] (setup-czech-environment): Call latin-2's setup function. --- lisp/language/czech.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/language/czech.el b/lisp/language/czech.el index 02708ecf59d..69de792330f 100644 --- a/lisp/language/czech.el +++ b/lisp/language/czech.el @@ -31,8 +31,8 @@ (defun setup-czech-environment () "Setup multilingual environment (MULE) for Czech." (interactive) - (setup-8-bit-environment "Czech" 'latin-iso8859-2 "czech") - (load "latin-2")) + (funcall (get-language-info "Latin-2" 'setup-function)) + (setq default-input-method "czech")) (set-language-info-alist "Czech" '((setup-function . setup-czech-environment) -- 2.39.5