Mercurial > emacs
view lisp/language/czech.el @ 22311:599c0971ae49
(Finsert_file_contents): Fix char signedness mismatches.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 01 Jun 1998 03:32:52 +0000 |
parents | a770caf1f7c5 |
children | 5fef9d1a7fc2 |
line wrap: on
line source
;;; czech.el -- support for Czech ;; Copyright (C) 1998 Free Software Foundation. ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz> ;; Keywords: multilingual, Czech ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Czech ISO 8859-2 environment. ;;; Code: (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-info-alist "Czech" '((setup-function . setup-czech-environment) (charset . (ascii latin-iso8859-2)) (coding-system . (iso-8859-2)) (coding-priority . (iso-8859-2)) (tutorial . "TUTORIAL.cs") (sample-text . "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!") (documentation . t)) '("European")) (provide 'czech) ;; czech.el ends here