Mercurial > hg > xemacs-beta

comparison lisp/iso8859-1.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents
children 74fd4e045ea6
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
1 ;;; iso8859-1.el --- Set case and syntax tables for Latin 1
2
3 ;; Copyright (C) 1992, 1997 Free Software Foundation, Inc.
4
5 ;; Author: Jamie Zawinski <jwz@netscape.com>
6 ;; Created: 19-aug-92
7 ;; Maintainer: XEmacs Development Team
8 ;; Keywords: internal, dumped
9
10 ;; This file is part of XEmacs.
11
12 ;; XEmacs is free software; you can redistribute it and/or modify it
13 ;; under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; any later version.
16
17 ;; XEmacs is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. If not, write to the Free
24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 ;; 02111-1307, USA.
26
27 ;;; Synched up with: Not synched
28
29 ;;; Commentary:
30
31 ;; created by jwz, 19-aug-92.
32 ;; Sets the case and syntax tables for the ISO-8859/1 character set.
33
34 ;;; Code:
35
36 (let ((table (standard-syntax-table)))
37 ;;
38 ;; The symbol characters
39 ;;
40 (modify-syntax-entry ?\240 "_" table) ; nobreakspace
41 (modify-syntax-entry ?\241 "." table) ; exclamdown
42 (modify-syntax-entry ?\242 "_" table) ; cent
43 (modify-syntax-entry ?\243 "_" table) ; sterling
44 (modify-syntax-entry ?\244 "_" table) ; currency
45 (modify-syntax-entry ?\245 "_" table) ; yen
46 (modify-syntax-entry ?\246 "_" table) ; brokenbar
47 (modify-syntax-entry ?\247 "_" table) ; section
48 (modify-syntax-entry ?\250 "_" table) ; diaeresis
49 (modify-syntax-entry ?\251 "_" table) ; copyright
50 (modify-syntax-entry ?\252 "_" table) ; ordfeminine
51 (modify-syntax-entry ?\253 "(\273" table) ; guillemotleft
52 (modify-syntax-entry ?\254 "_" table) ; notsign
53 (modify-syntax-entry ?\255 "_" table) ; hyphen
54 (modify-syntax-entry ?\256 "_" table) ; registered
55 (modify-syntax-entry ?\257 "_" table) ; macron
56 (modify-syntax-entry ?\260 "_" table) ; degree
57 (modify-syntax-entry ?\261 "_" table) ; plusminus
58 (modify-syntax-entry ?\262 "_" table) ; twosuperior
59 (modify-syntax-entry ?\263 "_" table) ; threesuperior
60 (modify-syntax-entry ?\264 "_" table) ; acute
61 (modify-syntax-entry ?\265 "_" table) ; mu
62 (modify-syntax-entry ?\266 "_" table) ; paragraph
63 (modify-syntax-entry ?\267 "_" table) ; periodcentered
64 (modify-syntax-entry ?\270 "_" table) ; cedilla
65 (modify-syntax-entry ?\271 "_" table) ; onesuperior
66 (modify-syntax-entry ?\272 "_" table) ; masculine
67 (modify-syntax-entry ?\273 ")\253" table) ; guillemotright
68 (modify-syntax-entry ?\274 "_" table) ; onequarter
69 (modify-syntax-entry ?\275 "_" table) ; onehalf
70 (modify-syntax-entry ?\276 "_" table) ; threequarters
71 (modify-syntax-entry ?\277 "_" table) ; questiondown
72 ;;
73 ;; the upper-case characters (plus "multiply" and "ssharp")
74 ;;
75 (modify-syntax-entry ?\300 "w" table) ; Agrave
76 (modify-syntax-entry ?\301 "w" table) ; Aacute
77 (modify-syntax-entry ?\302 "w" table) ; Acircumflex
78 (modify-syntax-entry ?\303 "w" table) ; Atilde
79 (modify-syntax-entry ?\304 "w" table) ; Adiaeresis
80 (modify-syntax-entry ?\305 "w" table) ; Aring
81 (modify-syntax-entry ?\306 "w" table) ; AE
82 (modify-syntax-entry ?\307 "w" table) ; Ccedilla
83 (modify-syntax-entry ?\310 "w" table) ; Egrave
84 (modify-syntax-entry ?\311 "w" table) ; Eacute
85 (modify-syntax-entry ?\312 "w" table) ; Ecircumflex
86 (modify-syntax-entry ?\313 "w" table) ; Ediaeresis
87 (modify-syntax-entry ?\314 "w" table) ; Igrave
88 (modify-syntax-entry ?\315 "w" table) ; Iacute
89 (modify-syntax-entry ?\316 "w" table) ; Icircumflex
90 (modify-syntax-entry ?\317 "w" table) ; Idiaeresis
91 (modify-syntax-entry ?\320 "w" table) ; ETH
92 (modify-syntax-entry ?\321 "w" table) ; Ntilde
93 (modify-syntax-entry ?\322 "w" table) ; Ograve
94 (modify-syntax-entry ?\323 "w" table) ; Oacute
95 (modify-syntax-entry ?\324 "w" table) ; Ocircumflex
96 (modify-syntax-entry ?\325 "w" table) ; Otilde
97 (modify-syntax-entry ?\326 "w" table) ; Odiaeresis
98 (modify-syntax-entry ?\327 "_" table) ; multiply
99 (modify-syntax-entry ?\330 "w" table) ; Ooblique
100 (modify-syntax-entry ?\331 "w" table) ; Ugrave
101 (modify-syntax-entry ?\332 "w" table) ; Uacute
102 (modify-syntax-entry ?\333 "w" table) ; Ucircumflex
103 (modify-syntax-entry ?\334 "w" table) ; Udiaeresis
104 (modify-syntax-entry ?\335 "w" table) ; Yacute
105 (modify-syntax-entry ?\336 "w" table) ; THORN
106 (modify-syntax-entry ?\337 "w" table) ; ssharp
107 ;;
108 ;; the lower-case characters (plus "division" and "ydiaeresis")
109 ;;
110 (modify-syntax-entry ?\340 "w" table) ; agrave
111 (modify-syntax-entry ?\341 "w" table) ; aacute
112 (modify-syntax-entry ?\342 "w" table) ; acircumflex
113 (modify-syntax-entry ?\343 "w" table) ; atilde
114 (modify-syntax-entry ?\344 "w" table) ; adiaeresis
115 (modify-syntax-entry ?\345 "w" table) ; aring
116 (modify-syntax-entry ?\346 "w" table) ; ae
117 (modify-syntax-entry ?\347 "w" table) ; ccedilla
118 (modify-syntax-entry ?\350 "w" table) ; egrave
119 (modify-syntax-entry ?\351 "w" table) ; eacute
120 (modify-syntax-entry ?\352 "w" table) ; ecircumflex
121 (modify-syntax-entry ?\353 "w" table) ; ediaeresis
122 (modify-syntax-entry ?\354 "w" table) ; igrave
123 (modify-syntax-entry ?\355 "w" table) ; iacute
124 (modify-syntax-entry ?\356 "w" table) ; icircumflex
125 (modify-syntax-entry ?\357 "w" table) ; idiaeresis
126 (modify-syntax-entry ?\360 "w" table) ; eth
127 (modify-syntax-entry ?\361 "w" table) ; ntilde
128 (modify-syntax-entry ?\362 "w" table) ; ograve
129 (modify-syntax-entry ?\363 "w" table) ; oacute
130 (modify-syntax-entry ?\364 "w" table) ; ocircumflex
131 (modify-syntax-entry ?\365 "w" table) ; otilde
132 (modify-syntax-entry ?\366 "w" table) ; odiaeresis
133 (modify-syntax-entry ?\367 "_" table) ; division
134 (modify-syntax-entry ?\370 "w" table) ; ooblique
135 (modify-syntax-entry ?\371 "w" table) ; ugrave
136 (modify-syntax-entry ?\372 "w" table) ; uacute
137 (modify-syntax-entry ?\373 "w" table) ; ucircumflex
138 (modify-syntax-entry ?\374 "w" table) ; udiaeresis
139 (modify-syntax-entry ?\375 "w" table) ; yacute
140 (modify-syntax-entry ?\376 "w" table) ; thorn
141 (modify-syntax-entry ?\377 "w" table) ; ydiaeresis
142 )
143
144
145 (defconst iso8859/1-case-table nil
146 "The case table for ISO-8859/1 characters.")
147
148 ;;; This macro expands into
149 ;;; (setq iso8859/1-case-table (purecopy '("..." nil nil nil)))
150 ;;; doing the computation of the case table at compile-time.
151
152 ((macro
153 . (lambda (&rest pairs)
154 (let ((downcase (make-string 256 0))
155 (i 0))
156 (while (< i 256)
157 (aset downcase i (if (and (>= i ?A) (<= i ?Z)) (+ i 32) i))
158 (setq i (1+ i)))
159 (while pairs
160 (aset downcase (car (car pairs)) (car (cdr (car pairs))))
161 (setq pairs (cdr pairs)))
162 (cons 'setq
163 (cons 'iso8859/1-case-table
164 (list (list 'purecopy
165 (list 'quote
166 (list downcase nil nil nil)))))))))
167
168 (?\300 ?\340) ; Agrave
169 (?\301 ?\341) ; Aacute
170 (?\302 ?\342) ; Acircumflex
171 (?\303 ?\343) ; Atilde
172 (?\304 ?\344) ; Adiaeresis
173 (?\305 ?\345) ; Aring
174 (?\306 ?\346) ; AE
175 (?\307 ?\347) ; Ccedilla
176 (?\310 ?\350) ; Egrave
177 (?\311 ?\351) ; Eacute
178 (?\312 ?\352) ; Ecircumflex
179 (?\313 ?\353) ; Ediaeresis
180 (?\314 ?\354) ; Igrave
181 (?\315 ?\355) ; Iacute
182 (?\316 ?\356) ; Icircumflex
183 (?\317 ?\357) ; Idiaeresis
184 (?\320 ?\360) ; ETH
185 (?\321 ?\361) ; Ntilde
186 (?\322 ?\362) ; Ograve
187 (?\323 ?\363) ; Oacute
188 (?\324 ?\364) ; Ocircumflex
189 (?\325 ?\365) ; Otilde
190 (?\326 ?\366) ; Odiaeresis
191 (?\330 ?\370) ; Ooblique
192 (?\331 ?\371) ; Ugrave
193 (?\332 ?\372) ; Uacute
194 (?\333 ?\373) ; Ucircumflex
195 (?\334 ?\374) ; Udiaeresis
196 (?\335 ?\375) ; Yacute
197 (?\336 ?\376) ; THORN
198 )
199
200 (set-standard-case-table (mapcar 'copy-sequence iso8859/1-case-table))
201
202 (setq-default ctl-arrow 'iso-8859/1)
203
204 (provide 'iso8859-1)
205
206 ;;; iso8859-1.el ends here