Mercurial > emacs

comparison lisp/language/czech.el @ 21894:a770caf1f7c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-czech-environment): Call latin-2's setup function.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 May 1998 19:51:27 +0000
parents 1f46ca9f3ff3
children 5fef9d1a7fc2
comparison
equal deleted inserted replaced
21893:d3cd4d2e83ea 21894:a770caf1f7c5
29 ;;; Code: 29 ;;; Code:
30 30
31 (defun setup-czech-environment () 31 (defun setup-czech-environment ()
32 "Setup multilingual environment (MULE) for Czech." 32 "Setup multilingual environment (MULE) for Czech."
33 (interactive) 33 (interactive)
34 (setup-8-bit-environment "Czech" 'latin-iso8859-2 "czech") 34 (funcall (get-language-info "Latin-2" 'setup-function))
35 (load "latin-2")) 35 (setq default-input-method "czech"))
36 36
37 (set-language-info-alist 37 (set-language-info-alist
38 "Czech" '((setup-function . setup-czech-environment) 38 "Czech" '((setup-function . setup-czech-environment)
39 (charset . (ascii latin-iso8859-2)) 39 (charset . (ascii latin-iso8859-2))
40 (coding-system . (iso-8859-2)) 40 (coding-system . (iso-8859-2))