;;; latin-unity-latin10.el --- Define language environment;; Copyright (C) 2002 Free Software Foundation, Inc;; Author: Stephen J. Turnbull;; Keywords: mule, charsets;; Created: 2002 October 24;; This file is part of XEmacs.;; XEmacs 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.;; XEmacs 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 XEmacs; see the file COPYING. If not, write to the;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,;; Boston, MA 02111-1307, USA.;;; Commentary:;; Mule bogusly considers the various ISO-8859 extended character sets;; as disjoint, when ISO 8859 itself clearly considers them to be subsets;; of a larger character set. This library provides functions which;; determine the list of coding systems which can encode all of the;; characters in the buffer.;; Provides the latin-10 language environment.;;; Code:;; define ISO-8859-16 for XEmacs 21.4 and earlier;;;###autoload(unless(find-charset'latin-iso8859-16);; Create character set(make-charset'latin-iso8859-16"ISO8859-16 (Latin 10)";; sheesh, what we do for backward compatibility;; #### this test and the similar one below probably should be;; reformulated to use condition-case(append(if(emacs-version>=214)'(short-name"Latin-10"long-name"ISO8859-16 (Latin 10)")nil)'(registry"iso8859-16"dimension1columns1chars96final?f; octet 06/06; cf ISO-IR 226graphic1directionl2r)));; For syntax of Latin-10 characters.(require'cl)(load"cl-macs"nilt)(loopforcfrom64to127do(modify-syntax-entry(make-char'latin-iso8859-16c)"w"))(mapc(lambda(c)(modify-syntax-entry(make-char'latin-iso8859-16c)"w"))'(#xA1#xA2#xA3#xA6#xA8#xAA#xAC#xAE#xAF#xB3#xB4#xB5#xB8#xB9#xBA#xBC#xBD#xBE#xBF)));;;###autoload(unless(find-coding-system'iso-8859-16);; Create coding system(make-coding-system'iso-8859-16'iso2022"MIME ISO-8859-16"'(charset-g0asciicharset-g1latin-iso8859-16charset-g2t; grrrcharset-g3t; grrrmnemonic"MIME/Ltn-10")));;;###autoload(unless(assoc"Latin-10"language-info-alist)(defunsetup-latin10-environment()"Set up multilingual environment (MULE) for European Latin-10 users."(interactive)(set-language-environment"Latin-10"));; sheesh, what we do for backward compatibility(apply#'set-language-info-alist(append`("Latin-10"((charsetasciilatin-iso8859-16)(coding-systemiso-8859-16)(coding-priorityiso-8859-16)(input-method."latin-10-prefix")(sample-text.;; #### OK, who knows some Romanian?,(format"\Hey, if you know Romanian, send sample encoded text (eg, using \"comma-below\"characters) to xemacs-beta@xemacs.org. Please use a MIMEapplication/octet-stream attachment if possible."))(documentation."\This is a generic language environment for Latin-10 (ISO-8859-16). Itsupports Romanian and most Western European languages.")))(if(emacs-version>=21115)'(("European"))nil))))(provide'latin-unity-latin10);;; end of latin-unity-latin10.el