latin-9.el 5.41 KB
Newer Older
Dave Love's avatar
Dave Love committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
;;; latin-9.el --- set up case-conversion and syntax tables for ISO Latin-9

;; Copyright (C) 1988,1997,1999 Free Software Foundation, Inc.

;; Author: Dave Love
;; Maintainer: FSF
;; Keywords: i18n

;; This file is part of GNU Emacs.

;; GNU Emacs 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.

;; GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; Case-conversion and syntax tables for ISO-8859-15 (Latin-9),
;; adapted from latin-1.el.

31 32
;; <URL:http://czyborra.com/charsets/iso8859.html> (edited to remove
;;   non-ASCII characters!):
Dave Love's avatar
Dave Love committed
33
;; The new Latin9 nicknamed Latin0 aims to update Latin1 by
34
;; replacing less needed symbols with forgotten French and
Dave Love's avatar
Dave Love committed
35
;; Finnish letters and placing the U+20AC Euro sign in the cell =A4 of
36
;; the former international currency sign.
Dave Love's avatar
Dave Love committed
37

Dave Love's avatar
Dave Love committed
38
;; The differences from Latin-1 are starred on the comments below.
Dave Love's avatar
Dave Love committed
39 40 41

;; This is now ISO/IEC 8859-15:1999.  As of 1999-05, there was a `final
;; proof' at <URL:http://www.indigo.ie/egt/standards/iso8859/8859-15-en.pdf>.
Dave Love's avatar
Dave Love committed
42
;; See also <URL:http://www.itscj.ipsj.or.jp/ISO-IR/203.pdf>.
Dave Love's avatar
Dave Love committed
43 44 45 46 47

;;; Code:

(require 'case-table)

48 49
(let ((tbl (standard-case-table))
      (set-case-syntax-charset 'iso-8859-15))
Dave Love's avatar
Dave Love committed
50 51 52 53 54 55 56 57 58 59 60 61 62 63
  (set-case-syntax 160 " " tbl)		;no-break space
  (set-case-syntax 161 "." tbl)		;inverted exclamation mark
  (set-case-syntax 162 "w" tbl)		;cent sign
  (set-case-syntax 163 "w" tbl)		;pound sign
  (set-case-syntax 164 "w" tbl)		;euro sign *
  (set-case-syntax 165 "w" tbl)		;yen sign
  (set-case-syntax-pair 166 168 tbl)	;latin letter s with caron *
  (set-case-syntax 167 "." tbl)		;section sign
  (set-case-syntax 169 "_" tbl)		;copyright sign
  (set-case-syntax 170 "w" tbl)		;feminine ordinal indicator
  (set-case-syntax-delims 171 187 tbl)	;left-pointing double angle quotation mark
  (set-case-syntax 172 "_" tbl)		;not sign
  (set-case-syntax 173 "_" tbl)		;soft hyphen
  (set-case-syntax 174 "_" tbl)		;registered sign
Dave Love's avatar
Dave Love committed
64
  (set-case-syntax 175 "w" tbl)		;macron
Dave Love's avatar
Dave Love committed
65 66 67 68 69 70
  (set-case-syntax 176 "_" tbl)		;degree sign
  (set-case-syntax 177 "_" tbl)		;plus-minus sign
  (set-case-syntax 178 "w" tbl)		;superscript two
  (set-case-syntax 179 "w" tbl)		;superscript three
  (set-case-syntax-pair 180 184 tbl)	;latin letter z with caron *
  (set-case-syntax 181 "_" tbl)		;micro sign
71
  (set-case-syntax 182 "." tbl)		;pilcrow sign
Dave Love's avatar
Dave Love committed
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109
  (set-case-syntax 183 "_" tbl)		;middle dot
  (set-case-syntax 185 "w" tbl)		;superscript one
  (set-case-syntax 186 "w" tbl)		;masculine ordinal indicator
  (set-case-syntax-pair 188 189 tbl)	;latin ligature oe *
  (set-case-syntax-pair 190 255 tbl)	;latin letter y with diaeresis *
  (set-case-syntax 191 "." tbl)		;inverted question mark
  (set-case-syntax-pair 192 224 tbl)	;latin letter a with grave
  (set-case-syntax-pair 193 225 tbl)	;latin letter a with acute
  (set-case-syntax-pair 194 226 tbl)	;latin letter a with circumflex
  (set-case-syntax-pair 195 227 tbl)	;latin letter a with tilde
  (set-case-syntax-pair 196 228 tbl)	;latin letter a with diaeresis
  (set-case-syntax-pair 197 229 tbl)	;latin letter a with ring above
  (set-case-syntax-pair 198 230 tbl)	;latin letter ae
  (set-case-syntax-pair 199 231 tbl)	;latin letter c with cedilla
  (set-case-syntax-pair 200 232 tbl)	;latin letter e with grave
  (set-case-syntax-pair 201 233 tbl)	;latin letter e with acute
  (set-case-syntax-pair 202 234 tbl)	;latin letter e with circumflex
  (set-case-syntax-pair 203 235 tbl)	;latin letter e with diaeresis
  (set-case-syntax-pair 204 236 tbl)	;latin letter i with grave
  (set-case-syntax-pair 205 237 tbl)	;latin letter i with acute
  (set-case-syntax-pair 206 238 tbl)	;latin letter i with circumflex
  (set-case-syntax-pair 207 239 tbl)	;latin letter i with diaeresis
  (set-case-syntax-pair 208 240 tbl)	;latin letter eth
  (set-case-syntax-pair 209 241 tbl)	;latin letter n with tilde
  (set-case-syntax-pair 210 242 tbl)	;latin letter o with grave
  (set-case-syntax-pair 211 243 tbl)	;latin letter o with acute
  (set-case-syntax-pair 212 244 tbl)	;latin letter o with circumflex
  (set-case-syntax-pair 213 245 tbl)	;latin letter o with tilde
  (set-case-syntax-pair 214 246 tbl)	;latin letter o with diaeresis
  (set-case-syntax 215 "_" tbl)		;multiplication sign
  (set-case-syntax-pair 216 248 tbl)	;latin letter o with stroke
  (set-case-syntax-pair 217 249 tbl)	;latin letter u with grave
  (set-case-syntax-pair 218 250 tbl)	;latin letter u with acute
  (set-case-syntax-pair 219 251 tbl)	;latin letter u with circumflex
  (set-case-syntax-pair 220 252 tbl)	;latin letter u with diaeresis
  (set-case-syntax-pair 221 253 tbl)	;latin letter y with acute
  (set-case-syntax-pair 222 254 tbl)	;latin letter thorn
  (set-case-syntax 223 "w" tbl)		;latin small letter sharp s
Dave Love's avatar
Dave Love committed
110
  (set-case-syntax 247 "_" tbl))	;division sign
Dave Love's avatar
Dave Love committed
111

Eli Zaretskii's avatar
Eli Zaretskii committed
112 113 114 115 116 117
;;; Don't compile this file: src/Makefile.in instructs make-docfile
;;; to look at the .el file!
;;; Local Variables:
;;; no-byte-compile: t
;;; End:

118
;;; latin-9.el ends here