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 is a Latin-N character set, set up syntax for it in
  48   ;; single-byte mode.  We can't use require because the file
  49   ;; must be eval'd each time in case we change from one Latin-N to another.
  50   (if (string-match "^Latin-\\([1-9]\\)$" language)
  51       (let ((set-case-syntax-set-multibyte nil))
  52         (load (downcase language) nil t)
  53         (set-standard-case-table (standard-case-table))
  54         (let ((list (buffer-list)))
  55           (while list
  56             (with-current-buffer (car list)
  57               (set-case-table (standard-case-table)))
  58             (setq list (cdr list)))))))
  59 \f
  60 ;; Latin-1 (ISO-8859-1)
  61
  62 (make-coding-system
  63  'iso-latin-1 2 ?1
  64  "ISO 2022 based 8-bit encoding for Laint-1 (MIME:ISO-8859-1)"
  65  '(ascii latin-iso8859-1 nil nil
  66    nil nil nil nil nil nil nil nil nil nil nil nil t)
  67  '((safe-charsets ascii latin-iso8859-1)
  68    (mime-charset . iso-8859-1)))
  69
  70 (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
  71 (define-coding-system-alias 'latin-1 'iso-latin-1)
  72
  73 (make-coding-system
  74  'compound-text 2 ?1
  75  "ISO 2022 based encoding used in inter client communication of X"
  76  '((ascii t) (latin-iso8859-1 t) nil nil
  77    nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t)
  78  '((safe-charsets . t)))
  79
  80 (define-coding-system-alias 'ctext 'compound-text)
  81
  82 (defun setup-latin1-environment ()
  83   "Set up multilingual environment (MULE) for European Latin-1 users."
  84   (interactive)
  85   (setup-8-bit-environment "Latin-1" 'latin-iso8859-1 "latin-1-prefix"))
  86
  87 (set-language-info-alist
  88  "Latin-1" '((setup-function . setup-latin1-environment)
  89              (charset ascii latin-iso8859-1)
  90              (coding-system iso-latin-1)
  91              (coding-priority iso-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              (documentation . "\
 125 These languages are supported with the Latin-2 (ISO-8859-2) character set:
 126  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
 127  Serbo-Croatian or Croatian, Slovak, Slovene, Sorbian (upper and lower),
 128  and Swedish."))
 129  '("European"))
 130
 131 \f
 132 ;; Latin-3 (ISO-8859-3)
 133
 134 (make-coding-system
 135  'iso-latin-3 2 ?3
 136  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
 137  '(ascii latin-iso8859-3 nil nil
 138    nil nil nil nil nil nil nil)
 139  '((safe-charsets ascii latin-iso8859-3)
 140    (mime-charset . iso-8859-3)))
 141
 142 (define-coding-system-alias 'iso-8859-3 'iso-latin-3)
 143 (define-coding-system-alias 'latin-3 'iso-latin-3)
 144
 145 (defun setup-latin3-environment ()
 146   "Set up multilingual environment (MULE) for European Latin-3 users."
 147   (interactive)
 148   (setup-8-bit-environment "Latin-3" 'latin-iso8859-3 "latin-3-prefix"))
 149
 150 (set-language-info-alist
 151  "Latin-3" '((setup-function . setup-latin3-environment)
 152              (charset ascii latin-iso8859-3)
 153              (coding-system iso-latin-3)
 154              (coding-priority iso-latin-3)
 155              (documentation . "\
 156 These languages are supported with the Latin-3 (ISO-8859-3) character set:
 157  Afrikaans, Catalan, Dutch, English, Esperanto, French, Galician,
 158  German, Italian, Maltese, Spanish, and Turkish."))
 159  '("European"))
 160
 161 \f
 162 ;; Latin-4 (ISO-8859-4)
 163
 164 (make-coding-system
 165  'iso-latin-4 2 ?4
 166  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
 167  '(ascii latin-iso8859-4 nil nil
 168    nil nil nil nil nil nil nil)
 169  '((safe-charsets ascii latin-iso8859-4)
 170    (mime-charset . iso-8895-4)))
 171
 172 (define-coding-system-alias 'iso-8859-4 'iso-latin-4)
 173 (define-coding-system-alias 'latin-4 'iso-latin-4)
 174
 175 (defun setup-latin4-environment ()
 176   "Set up multilingual environment (MULE) for European Latin-4 users."
 177   (interactive)
 178   (setup-8-bit-environment "Latin-4" 'latin-iso8859-4 "latin-4-prefix"))
 179
 180 (set-language-info-alist
 181  "Latin-4" '((setup-function . setup-latin4-environment)
 182              (charset ascii latin-iso8859-4)
 183              (coding-system iso-8859-4)
 184              (coding-priority iso-8859-4)
 185              (documentation . "\
 186 These languages are supported with the Latin-4 (ISO-8859-4) character set:
 187  Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
 188  Latvian, Lithuanian, and Norwegian."))
 189  '("European"))
 190
 191 \f
 192 ;; Latin-5 (ISO-8859-9)
 193
 194 (make-coding-system
 195  'iso-latin-5 2 ?9
 196  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
 197  '(ascii latin-iso8859-9 nil nil
 198    nil nil nil nil nil nil nil)
 199  '((safe-charsets ascii latin-iso8859-9)
 200    (mime-charset . iso-8859-9)))
 201
 202 (define-coding-system-alias 'iso-8859-9 'iso-latin-5)
 203 (define-coding-system-alias 'latin-5 'iso-latin-5)
 204
 205 (defun setup-latin5-environment ()
 206   "Set up multilingual environment (MULE) for European Latin-5 users."
 207   (interactive)
 208   (setup-8-bit-environment "Latin-5" 'latin-iso8859-9 "latin-5-prefix"))
 209
 210 (set-language-info-alist
 211  "Latin-5" '((setup-function . setup-latin5-environment)
 212              (charset ascii latin-iso8859-9)
 213              (coding-system iso-latin-5)
 214              (coding-priority iso-latin-5)
 215              (documentation . "\
 216 These languages are supported with the Latin-5 (ISO-8859-9) character set."))
 217  '("European"))
 218
 219 \f
 220 (defun setup-german-environment ()
 221   "Set up multilingual environment (MULE) for German users."
 222   (interactive)
 223   (funcall (get-language-info "Latin-1" 'setup-function))
 224   (setq default-input-method "german-postfix"))
 225
 226 (set-language-info-alist
 227  "German" '((setup-function . setup-german-environment)
 228             (tutorial . "TUTORIAL.de")
 229             (charset ascii latin-iso8859-1)
 230             (coding-system iso-latin-1)
 231             (coding-priority iso-latin-1)
 232             (sample-text . "\
 233 German (Deutsch Nord)   Guten Tag
 234 German (Deutsch S\e,A|\e(Bd)      Gr\e,A|_\e(B Gott")
 235             (documentation . "\
 236 This language environment is almost the same as Latin-1,
 237 but default input method is set to \"german-postfix\"."))
 238  '("European"))
 239
 240 ;;; european.el ends here