Mercurial > emacs
comparison lisp/international/latin-2.el @ 18175:f8af1810653b
Normalized character names.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Mon, 09 Jun 1997 10:39:19 +0000 |
| parents | 621d1db5845b |
| children | f630f8658de3 |
comparison
equal
deleted
inserted
replaced
| 18174:238e30645d07 | 18175:f8af1810653b |
|---|---|
| 1 ;;; latin-2.el --- set up case-conversion and syntax tables for ISO 8859-2 | 1 ;;; latin-2.el --- set up case-conversion and syntax tables for ISO Latin-2 |
| 2 ;;; (ISO latin2, i.e. Eastern European character sets) | 2 |
| 3 ;; Copyright (C) 1995 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1995,1997 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at) | 5 ;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at) |
| 6 ;; Maintainer: FSF | 6 ;; Maintainer: FSF |
| 7 ;; Keywords: i18n | 7 ;; Keywords: i18n |
| 8 ;; Was formerly named iso02-syn.el. | 8 ;; Was formerly named iso02-syn.el. |
| 25 ;; Boston, MA 02111-1307, USA. | 25 ;; Boston, MA 02111-1307, USA. |
| 26 | 26 |
| 27 ;;; Commentary: | 27 ;;; Commentary: |
| 28 | 28 |
| 29 ;; Written by Michael Gschwind. See case-table.el for details. | 29 ;; Written by Michael Gschwind. See case-table.el for details. |
| 30 ;; Updated by Erik Naggum. | |
| 30 | 31 |
| 31 ;;; Code: | 32 ;;; Code: |
| 32 | 33 |
| 33 (require 'case-table) | 34 (require 'case-table) |
| 34 | 35 |
| 35 (let ((downcase (standard-case-table)) | 36 (let ((tbl (standard-case-table)) |
| 36 (set-case-syntax-offset | 37 (set-case-syntax-offset |
| 37 (if set-case-syntax-set-multibyte | 38 (if set-case-syntax-set-multibyte |
| 38 (- (make-char 'latin-iso8859-2) 128) | 39 (- (make-char 'latin-iso8859-2) 128) |
| 39 0))) | 40 0))) |
| 40 (set-case-syntax 160 " " downcase) ; NBSP (no-break space) | 41 (set-case-syntax 160 " " tbl) ;no-break space |
| 41 (set-case-syntax-pair 161 177 downcase) ; A with hook | 42 (set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek |
| 42 (set-case-syntax 162 "w" downcase) ; u accent | 43 (set-case-syntax 162 "w" tbl) ;breve |
| 43 (set-case-syntax-pair 163 179 downcase) ; L with slash | 44 (set-case-syntax-pair 163 179 tbl) ;latin letter l with stroke |
| 44 (set-case-syntax 164 "w" downcase) ; general currency sign | 45 (set-case-syntax 164 "w" tbl) ;currency sign |
| 45 (set-case-syntax-pair 165 181 downcase) ; L with v | 46 (set-case-syntax-pair 165 181 tbl) ;latin letter l with caron |
| 46 (set-case-syntax-pair 166 182 downcase) ; S with acute accent | 47 (set-case-syntax-pair 166 182 tbl) ;latin letter s with acute |
| 47 (set-case-syntax 167 "." downcase) ; section sign | 48 (set-case-syntax 167 "." tbl) ;section sign |
| 48 (set-case-syntax 168 "w" downcase) ; diaeresis | 49 (set-case-syntax 168 "w" tbl) ;diaeresis |
| 49 (set-case-syntax-pair 169 185 downcase) ; S with v | 50 (set-case-syntax-pair 169 185 tbl) ;latin letter s with caron |
| 50 (set-case-syntax-pair 170 186 downcase) ; S with cedilla | 51 (set-case-syntax-pair 170 186 tbl) ;latin letter s with cedilla |
| 51 (set-case-syntax-pair 171 187 downcase) ; T with v | 52 (set-case-syntax-pair 171 187 tbl) ;latin letter t with caron |
| 52 (set-case-syntax-pair 172 188 downcase) ; Z with acute accent | 53 (set-case-syntax-pair 172 188 tbl) ;latin letter z with acute |
| 53 (set-case-syntax 173 "_" downcase) ; soft hyphen | 54 (set-case-syntax 173 "w" tbl) ;soft hyphen |
| 54 (set-case-syntax-pair 174 190 downcase) ; Z with v | 55 (set-case-syntax-pair 174 190 tbl) ;latin letter z with caron |
| 55 (set-case-syntax-pair 175 191 downcase) ; Z with dot | 56 (set-case-syntax-pair 175 191 tbl) ;latin letter z with dot above |
| 56 (set-case-syntax 176 "_" downcase) ; degree sign | 57 (set-case-syntax 176 "_" tbl) ;degree sign |
| 57 (set-case-syntax 178 "w" downcase) ; hook accent | 58 (set-case-syntax 178 "w" tbl) ;ogonek |
| 58 (set-case-syntax 180 "w" downcase) ; acute accent | 59 (set-case-syntax 180 "w" tbl) ;acute accent |
| 59 (set-case-syntax 183 "_" downcase) ; v accent | 60 (set-case-syntax 183 "_" tbl) ;caron |
| 60 (set-case-syntax 184 "w" downcase) ; cedilla | 61 (set-case-syntax 184 "w" tbl) ;cedilla |
| 61 (set-case-syntax 189 "w" downcase) ; Hungarian '' accent | 62 (set-case-syntax 189 "w" tbl) ;double acute accent |
| 62 (set-case-syntax-pair 192 224 downcase) ; R with acute accent | 63 (set-case-syntax-pair 192 224 tbl) ;latin letter r with acute |
| 63 (set-case-syntax-pair 193 225 downcase) ; A with acute accent | 64 (set-case-syntax-pair 193 225 tbl) ;latin letter a with acute |
| 64 (set-case-syntax-pair 194 226 downcase) ; A with circumflex accent | 65 (set-case-syntax-pair 194 226 tbl) ;latin letter a with circumflex |
| 65 (set-case-syntax-pair 195 227 downcase) ; A with u accent | 66 (set-case-syntax-pair 195 227 tbl) ;latin letter a with breve |
| 66 (set-case-syntax-pair 196 228 downcase) ; A with diaeresis or umlaut mark | 67 (set-case-syntax-pair 196 228 tbl) ;latin letter a with diaeresis |
| 67 (set-case-syntax-pair 197 229 downcase) ; L with acute accent | 68 (set-case-syntax-pair 197 229 tbl) ;latin letter l with acute |
| 68 (set-case-syntax-pair 198 230 downcase) ; C with acute accent | 69 (set-case-syntax-pair 198 230 tbl) ;latin letter c with acute |
| 69 (set-case-syntax-pair 199 231 downcase) ; C with cedilla | 70 (set-case-syntax-pair 199 231 tbl) ;latin letter c with cedilla |
| 70 (set-case-syntax-pair 200 232 downcase) ; C with v accent | 71 (set-case-syntax-pair 200 232 tbl) ;latin letter c with caron |
| 71 (set-case-syntax-pair 201 233 downcase) ; E with acute accent | 72 (set-case-syntax-pair 201 233 tbl) ;latin letter e with acute |
| 72 (set-case-syntax-pair 202 234 downcase) ; E with hook | 73 (set-case-syntax-pair 202 234 tbl) ;latin letter e with ogonek |
| 73 (set-case-syntax-pair 203 235 downcase) ; E with diaeresis | 74 (set-case-syntax-pair 203 235 tbl) ;latin letter e with diaeresis |
| 74 (set-case-syntax-pair 204 236 downcase) ; E with v accent | 75 (set-case-syntax-pair 204 236 tbl) ;latin letter e with caron |
| 75 (set-case-syntax-pair 205 237 downcase) ; I with acute accent | 76 (set-case-syntax-pair 205 237 tbl) ;latin letter i with acute |
| 76 (set-case-syntax-pair 206 238 downcase) ; I with circumflex accent | 77 (set-case-syntax-pair 206 238 tbl) ;latin letter i with circumflex |
| 77 (set-case-syntax-pair 207 239 downcase) ; D with v accent | 78 (set-case-syntax-pair 207 239 tbl) ;latin letter d with caron |
| 78 (set-case-syntax-pair 208 240 downcase) ; D with stroke | 79 (set-case-syntax-pair 208 240 tbl) ;latin letter d with stroke |
| 79 (set-case-syntax-pair 209 241 downcase) ; N with acute accent | 80 (set-case-syntax-pair 209 241 tbl) ;latin letter n with acute |
| 80 (set-case-syntax-pair 210 242 downcase) ; N with v accent | 81 (set-case-syntax-pair 210 242 tbl) ;latin letter n with caron |
| 81 (set-case-syntax-pair 211 243 downcase) ; O with acute accent | 82 (set-case-syntax-pair 211 243 tbl) ;latin letter o with acute |
| 82 (set-case-syntax-pair 212 244 downcase) ; O with circumflex accent | 83 (set-case-syntax-pair 212 244 tbl) ;latin letter o with circumflex |
| 83 (set-case-syntax-pair 213 245 downcase) ; O with Hungarian accent | 84 (set-case-syntax-pair 213 245 tbl) ;latin letter o with double acute |
| 84 (set-case-syntax-pair 214 246 downcase) ; O with diaeresis or umlaut mark | 85 (set-case-syntax-pair 214 246 tbl) ;latin letter o with diaeresis |
| 85 (set-case-syntax 215 "_" downcase) ; multiplication sign | 86 (set-case-syntax 215 "_" tbl) ;multiplication sign |
| 86 (set-case-syntax-pair 216 248 downcase) ; R with v accent | 87 (set-case-syntax-pair 216 248 tbl) ;latin letter r with caron |
| 87 (set-case-syntax-pair 217 249 downcase) ; U with ring | 88 (set-case-syntax-pair 217 249 tbl) ;latin letter u with ring above |
| 88 (set-case-syntax-pair 218 250 downcase) ; U with acute accent | 89 (set-case-syntax-pair 218 250 tbl) ;latin letter u with acute |
| 89 (set-case-syntax-pair 219 251 downcase) ; U with Hungaraian accent | 90 (set-case-syntax-pair 219 251 tbl) ;latin letter u with double acute |
| 90 (set-case-syntax-pair 220 252 downcase) ; U with diaeresis or umlaut mark | 91 (set-case-syntax-pair 220 252 tbl) ;latin letter u with diaeresis |
| 91 (set-case-syntax-pair 221 253 downcase) ; Y with acute accent | 92 (set-case-syntax-pair 221 253 tbl) ;latin letter y with acute |
| 92 (set-case-syntax-pair 222 254 downcase) ; T with hook | 93 (set-case-syntax-pair 222 254 tbl) ;latin letter t with cedilla |
| 93 (set-case-syntax 223 "w" downcase) ; small sharp s, German | 94 (set-case-syntax 223 "w" tbl) ;latin small letter sharp s |
| 94 (set-case-syntax 247 "_" downcase) ; division sign | 95 (set-case-syntax 247 "_" tbl) ;division sign |
| 95 (set-case-syntax 255 "w" downcase) ; dot accent | 96 (set-case-syntax 255 "w" tbl)) ;dot above |
| 96 ) | |
| 97 | 97 |
| 98 ;; When preloading this file, don't provide the feature. | 98 ;; When preloading this file, don't provide the feature. |
| 99 ;; Explicit `require' is used to load this for 8-bit characters. | 99 ;; Explicit `require' is used to load this for 8-bit characters. |
| 100 (or set-case-syntax-set-multibyte | 100 (or set-case-syntax-set-multibyte |
| 101 (provide 'latin-2)) | 101 (provide 'latin-2)) |