(setup-czech-environment): Call latin-2's setup function.

fba04b4c · Richard M. Stallman · 23c81514 · fba04b4c
Commit fba04b4c authored May 01, 1998 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/language/czech.el lisp/language/czech.el +2 -2

No files found.
--- 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)