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     (or (member (downcase language)
  39                 '("latin-1" "latin-2" "latin-3" "latin-4" "latin-5"))
  40         (error "Language environment `%s' not supported in unibyte mode"))
  41     (standard-display-european 1 (downcase language)))
  42
  43   (unless default-enable-multibyte-characters
  44     (if charset
  45         (let ((nonascii-offset (- (make-char charset) 128)))
  46           ;; Set up for insertion of characters in this character set
  47           ;; when codes 0200 - 0377 are typed in.
  48           (setq nonascii-insert-offset nonascii-offset)))
  49
  50     (if input-method
  51         (setq default-input-method input-method)))
  52
  53   ;; If this is a Latin-N character set, set up syntax for it in
  54   ;; single-byte mode.  We can't use require because the file
  55   ;; must be eval'd each time in case we change from one Latin-N to another.
  56   (if (string-match "^Latin-\\([1-9]\\)$" language)
  57       (load (downcase language) nil t)))
  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              (sample-text
  92               . "Hello, Hej, Tere, Hei, Bonjour, Gr\e,A|_\e(B Gott, Ciao, \e,A!\e(BHola!")
  93              (documentation . "\
  94 These languages are supported with the Latin-1 (ISO-8859-1) character set:
  95  Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic,
  96  Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish."))
  97  '("European"))
  98
  99 \f
 100 ;; Latin-2 (ISO-8859-2)
 101
 102 (make-coding-system
 103  'iso-latin-2 2 ?2
 104  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
 105  '(ascii latin-iso8859-2 nil nil
 106    nil nil nil nil nil nil nil)
 107  '((safe-charsets ascii latin-iso8859-2)
 108    (mime-charset . iso-8859-2)))
 109
 110 (define-coding-system-alias 'iso-8859-2 'iso-latin-2)
 111 (define-coding-system-alias 'latin-2 'iso-latin-2)
 112
 113 (defun setup-latin2-environment ()
 114   "Set up multilingual environment (MULE) for European Latin-2 users."
 115   (interactive)
 116   (setup-8-bit-environment "Latin-2" 'latin-iso8859-2 "latin-2-prefix"))
 117
 118 (set-language-info-alist
 119  "Latin-2" '((setup-function . setup-latin2-environment)
 120              (charset ascii latin-iso8859-2)
 121              (coding-system iso-latin-2)
 122              (coding-priority iso-latin-2)
 123              (documentation . "\
 124 These languages are supported with the Latin-2 (ISO-8859-2) character set:
 125  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
 126  Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),
 127  and Swedish."))
 128  '("European"))
 129
 130 \f
 131 ;; Latin-3 (ISO-8859-3)
 132
 133 (make-coding-system
 134  'iso-latin-3 2 ?3
 135  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
 136  '(ascii latin-iso8859-3 nil nil
 137    nil nil nil nil nil nil nil)
 138  '((safe-charsets ascii latin-iso8859-3)
 139    (mime-charset . iso-8859-3)))
 140
 141 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
 142 (define-coding-system-alias 'latin-3 'iso-latin-3)
 143
 144 (defun setup-latin3-environment ()
 145   "Set up multilingual environment (MULE) for European Latin-3 users."
 146   (interactive)
 147   (setup-8-bit-environment "Latin-3" 'latin-iso8859-3 "latin-3-prefix"))
 148
 149 (set-language-info-alist
 150  "Latin-3" '((setup-function . setup-latin3-environment)
 151              (charset ascii latin-iso8859-3)
 152              (coding-system iso-latin-3)
 153              (coding-priority iso-latin-3)
 154              (documentation . "\
 155 These languages are supported with the Latin-3 (ISO-8859-3) character set:
 156  Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
 157  German, Italian, Maltese, Spanish, and Turkish."))
 158  '("European"))
 159
 160 \f
 161 ;; Latin-4 (ISO-8859-4)
 162
 163 (make-coding-system
 164  'iso-latin-4 2 ?4
 165  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
 166  '(ascii latin-iso8859-4 nil nil
 167    nil nil nil nil nil nil nil)
 168  '((safe-charsets ascii latin-iso8859-4)
 169    (mime-charset . iso-8895-4)))
 170
 171 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
 172 (define-coding-system-alias 'latin-4 'iso-latin-4)
 173
 174 (defun setup-latin4-environment ()
 175   "Set up multilingual environment (MULE) for European Latin-4 users."
 176   (interactive)
 177   (setup-8-bit-environment "Latin-4" 'latin-iso8859-4 "latin-4-prefix"))
 178
 179 (set-language-info-alist
 180  "Latin-4" '((setup-function . setup-latin4-environment)
 181              (charset ascii latin-iso8859-4)
 182              (coding-system iso-8859-4)
 183              (coding-priority iso-8859-4)
 184              (documentation . "\
 185 These languages are supported with the Latin-4 (ISO-8859-4) character set:
 186  Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
 187  Latvian, Lithuanian, and Norwegian."))
 188  '("European"))
 189
 190 \f
 191 ;; Latin-5 (ISO-8859-9)
 192
 193 (make-coding-system
 194  'iso-latin-5 2 ?9
 195  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
 196  '(ascii latin-iso8859-9 nil nil
 197    nil nil nil nil nil nil nil)
 198  '((safe-charsets ascii latin-iso8859-9)
 199    (mime-charset . iso-8859-9)))
 200
 201 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
 202 (define-coding-system-alias 'latin-5 'iso-latin-5)
 203
 204 (defun setup-latin5-environment ()
 205   "Set up multilingual environment (MULE) for European Latin-5 users."
 206   (interactive)
 207   (setup-8-bit-environment "Latin-5" 'latin-iso8859-9 "latin-5-prefix"))
 208
 209 (set-language-info-alist
 210  "Latin-5" '((setup-function . setup-latin5-environment)
 211              (charset ascii latin-iso8859-9)
 212              (coding-system iso-latin-5)
 213              (coding-priority iso-latin-5)
 214              (documentation . "\
 215 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
 216  '("European"))
 217
 218 \f
 219 (defun setup-german-environment ()
 220   "Set up multilingual environment (MULE) for German users."
 221   (interactive)
 222   (funcall (get-language-info "Latin-1" 'setup-function))
 223   (setq default-input-method "german-postfix"))
 224
 225 (set-language-info-alist
 226  "German" '((setup-function . setup-german-environment)
 227             (tutorial . "TUTORIAL.de")
 228             (charset ascii latin-iso8859-1)
 229             (coding-system iso-latin-1)
 230             (coding-priority iso-latin-1)
 231             (sample-text . "\
 232 German (Deutsch Nord)   Guten Tag
 233 German (Deutsch S\e,A|\e(Bd)      Gr\e,A|_\e(B Gott")
 234             (documentation . "\
 235 This language environment is almost the same as Latin-1,
 236 but default input method is set to \"german-postfix\"."))
 237  '("European"))
 238
 239 ;;; european.el ends here