"Fossies" - the Fresh Open Source Software archive

Member "mule-packages/lisp/latin-euro-standards/latin-euro-latin10.el" of archive xemacs-mule-sumo-2010-07-27.tar.gz:

;;; latin-euro-latin10.el --- Define language environment

;; Copyright (C) 2002 Free Software Foundation, Inc

;; Author: Stephen J. Turnbull
;; Keywords: mule, charsets
;; Created: 2002 October 24 (as latin-unity-latin10.el)
;; Last-modified: 2005 February 7

;; 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:

;; Provides the latin-10 language environment, character set and coding
;; system.

;;; 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)"
   '(short-name "Latin-10"
     long-name "ISO8859-16 (Latin 10)"
     registry "iso8859-16"
     dimension 1
     columns 1
     chars 96
     final ?f			; octet 06/06; cf ISO-IR 226
     graphic 1
     direction l2r))
  ;; For syntax of Latin-10 characters.
  (loop for c from 64 to 127
    do (modify-syntax-entry (make-char 'latin-iso8859-16 c) "w"))
  (loop for c in '(#xA1 #xA2 #xA3 #xA6 #xA8 #xAA #xAC #xAE #xAF
                   #xB3 #xB4 #xB5 #xB8 #xB9 #xBA #xBC #xBD #xBE #xBF)
    do (modify-syntax-entry (make-char 'latin-iso8859-16 c) "w")))

;;;###autoload
(unless (find-coding-system 'iso-8859-16)
  ;; Create coding system. No need for a `safe-charsets' parameter, if an
  ;; XEmacs can handle that, it has this coding system built in.
  (make-coding-system
   'iso-8859-16 'iso2022 "MIME ISO-8859-16"
   '(charset-g0 ascii
     charset-g1 latin-iso8859-16
     charset-g2 t			; grrr
     charset-g3 t			; grrr
     mnemonic "MIME/Ltn-10")))

;;;###autoload
(unless (assoc "Latin-10" language-info-alist)
  (defun setup-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
  (set-language-info-alist
   "Latin-10"
   `((charset ascii latin-iso8859-16)
     (coding-system iso-8859-16)
     (coding-priority iso-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 MIME
application/octet-stream attachment if possible."
                           ))
     (documentation . "\
This is a generic language environment for Latin-10 (ISO-8859-16).  It
supports Romanian and most Western European languages."))
   '("European")))

(provide 'latin-euro-latin10)

;;; end of latin-euro-latin10.el