code.delx.au - gnu-emacs/blob - lisp/language/european.el

   1 ;;; european.el --- Support for European languages
   2
   3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, European
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported.
  28
  29 ;;; Code:
  30
  31 ;; Setup for LANGAUGE which uses one-byte 8-bit CHARSET, one-byte
  32 ;; 8-bit coding system, and INPUT-METHOD.
  33 (defun setup-8-bit-environment (language charset input-method)
  34   (setup-english-environment)
  35   (set-language-environment-coding-systems language)
  36
  37   (when default-enable-multibyte-characters
  38     (if charset
  39         (let ((nonascii-offset (- (make-char charset) 128)))
  40           ;; Set up for insertion of characters in this character set
  41           ;; when codes 0200 - 0377 are typed in.
  42           (setq nonascii-insert-offset nonascii-offset)))
  43
  44     (if input-method
  45         (setq default-input-method input-method)))
  46
  47   ;; If this language environment supports unibyte operation,
  48   ;; load the proper syntax definitions for codes 0240-0377.
  49   (when (get-language-info language 'unibyte-syntax)
  50     (let ((set-case-syntax-set-multibyte nil))
  51       (load (get-language-info language 'unibyte-syntax) nil t)
  52       (set-standard-case-table (standard-case-table))
  53       (let ((list (buffer-list)))
  54         (while list
  55           (with-current-buffer (car list)
  56             (set-case-table (standard-case-table)))
  57           (setq list (cdr list)))))))
  58 \f
  59 ;; Latin-1 (ISO-8859-1)
  60
  61 (make-coding-system
  62  'iso-latin-1 2 ?1
  63  "ISO 2022 based 8-bit encoding for Laint-1 (MIME:ISO-8859-1)"
  64  '(ascii latin-iso8859-1 nil nil
  65    nil nil nil nil nil nil nil nil nil nil nil nil t)
  66  '((safe-charsets ascii latin-iso8859-1)
  67    (mime-charset . iso-8859-1)))
  68
  69 (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
  70 (define-coding-system-alias 'latin-1 'iso-latin-1)
  71
  72 (make-coding-system
  73  'compound-text 2 ?1
  74  "ISO 2022 based encoding used in inter client communication of X"
  75  '((ascii t) (latin-iso8859-1 t) nil nil
  76    nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
  77  '((safe-charsets . t)))
  78
  79 (define-coding-system-alias 'ctext 'compound-text)
  80
  81 (defun setup-latin1-environment ()
  82   "Set up multilingual environment (MULE) for European Latin-1 users."
  83   (interactive)
  84   (setup-8-bit-environment "Latin-1" 'latin-iso8859-1 "latin-1-prefix"))
  85
  86 (set-language-info-alist
  87  "Latin-1" '((setup-function . setup-latin1-environment)
  88              (charset ascii latin-iso8859-1)
  89              (coding-system iso-latin-1)
  90              (coding-priority iso-latin-1)
  91              (unibyte-syntax . "latin-1")
  92              (sample-text
  93               . "Hello, Hej, Tere, Hei, Bonjour, Gr\e,A|_\e(B Gott, Ciao, \e,A!\e(BHola!")
  94              (documentation . "\
  95 These languages are supported with the Latin-1 (ISO-8859-1) character set:
  96  Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
  97  Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish."))
  98  '("European"))
  99
 100 \f
 101 ;; Latin-2 (ISO-8859-2)
 102
 103 (make-coding-system
 104  'iso-latin-2 2 ?2
 105  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
 106  '(ascii latin-iso8859-2 nil nil
 107    nil nil nil nil nil nil nil)
 108  '((safe-charsets ascii latin-iso8859-2)
 109    (mime-charset . iso-8859-2)))
 110
 111 (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
 112 (define-coding-system-alias 'latin-2 'iso-latin-2)
 113
 114 (defun setup-latin2-environment ()
 115   "Set up multilingual environment (MULE) for European Latin-2 users."
 116   (interactive)
 117   (setup-8-bit-environment "Latin-2" 'latin-iso8859-2 "latin-2-prefix"))
 118
 119 (set-language-info-alist
 120  "Latin-2" '((setup-function . setup-latin2-environment)
 121              (charset ascii latin-iso8859-2)
 122              (coding-system iso-latin-2)
 123              (coding-priority iso-latin-2)
 124              (unibyte-syntax . "latin-2")
 125              (documentation . "\
 126 These languages are supported with the Latin-2 (ISO-8859-2) character set:
 127  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
 128  Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),
 129  and Swedish."))
 130  '("European"))
 131
 132 \f
 133 ;; Latin-3 (ISO-8859-3)
 134
 135 (make-coding-system
 136  'iso-latin-3 2 ?3
 137  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
 138  '(ascii latin-iso8859-3 nil nil
 139    nil nil nil nil nil nil nil)
 140  '((safe-charsets ascii latin-iso8859-3)
 141    (mime-charset . iso-8859-3)))
 142
 143 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
 144 (define-coding-system-alias 'latin-3 'iso-latin-3)
 145
 146 (defun setup-latin3-environment ()
 147   "Set up multilingual environment (MULE) for European Latin-3 users."
 148   (interactive)
 149   (setup-8-bit-environment "Latin-3" 'latin-iso8859-3 "latin-3-prefix"))
 150
 151 (set-language-info-alist
 152  "Latin-3" '((setup-function . setup-latin3-environment)
 153              (charset ascii latin-iso8859-3)
 154              (coding-system iso-latin-3)
 155              (coding-priority iso-latin-3)
 156              (unibyte-syntax . "latin-3")
 157              (documentation . "\
 158 These languages are supported with the Latin-3 (ISO-8859-3) character set:
 159  Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
 160  German, Italian, Maltese, Spanish, and Turkish."))
 161  '("European"))
 162
 163 \f
 164 ;; Latin-4 (ISO-8859-4)
 165
 166 (make-coding-system
 167  'iso-latin-4 2 ?4
 168  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
 169  '(ascii latin-iso8859-4 nil nil
 170    nil nil nil nil nil nil nil)
 171  '((safe-charsets ascii latin-iso8859-4)
 172    (mime-charset . iso-8895-4)))
 173
 174 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
 175 (define-coding-system-alias 'latin-4 'iso-latin-4)
 176
 177 (defun setup-latin4-environment ()
 178   "Set up multilingual environment (MULE) for European Latin-4 users."
 179   (interactive)
 180   (setup-8-bit-environment "Latin-4" 'latin-iso8859-4 "latin-4-prefix"))
 181
 182 (set-language-info-alist
 183  "Latin-4" '((setup-function . setup-latin4-environment)
 184              (charset ascii latin-iso8859-4)
 185              (coding-system iso-8859-4)
 186              (coding-priority iso-8859-4)
 187              (unibyte-syntax . "latin-4")
 188              (documentation . "\
 189 These languages are supported with the Latin-4 (ISO-8859-4) character set:
 190  Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
 191  Latvian, Lithuanian, and Norwegian."))
 192  '("European"))
 193
 194 \f
 195 ;; Latin-5 (ISO-8859-9)
 196
 197 (make-coding-system
 198  'iso-latin-5 2 ?9
 199  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
 200  '(ascii latin-iso8859-9 nil nil
 201    nil nil nil nil nil nil nil)
 202  '((safe-charsets ascii latin-iso8859-9)
 203    (mime-charset . iso-8859-9)))
 204
 205 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
 206 (define-coding-system-alias 'latin-5 'iso-latin-5)
 207
 208 (defun setup-latin5-environment ()
 209   "Set up multilingual environment (MULE) for European Latin-5 users."
 210   (interactive)
 211   (setup-8-bit-environment "Latin-5" 'latin-iso8859-9 "latin-5-prefix"))
 212
 213 (set-language-info-alist
 214  "Latin-5" '((setup-function . setup-latin5-environment)
 215              (charset ascii latin-iso8859-9)
 216              (coding-system iso-latin-5)
 217              (coding-priority iso-latin-5)
 218              (unibyte-syntax . "latin-5")
 219              (documentation . "\
 220 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
 221  '("European"))
 222
 223 \f
 224 (defun setup-german-environment ()
 225   "Set up multilingual environment (MULE) for German users."
 226   (interactive)
 227   (funcall (get-language-info "Latin-1" 'setup-function))
 228   (setq default-input-method "german-postfix"))
 229
 230 (set-language-info-alist
 231  "German" '((setup-function . setup-german-environment)
 232             (tutorial . "TUTORIAL.de")
 233             (charset ascii latin-iso8859-1)
 234             (coding-system iso-latin-1)
 235             (coding-priority iso-latin-1)
 236             (unibyte-syntax . "latin-1")
 237             (sample-text . "\
 238 German (Deutsch Nord)   Guten Tag
 239 German (Deutsch S\e,A|\e(Bd)      Gr\e,A|_\e(B Gott")
 240             (documentation . "\
 241 This language environment is almost the same as Latin-1,
 242 but default input method is set to \"german-postfix\"."))
 243  '("European"))
 244
 245 ;;; european.el ends here