annotate lisp/iso8859-1.el @ 2500:3d8143fc88e1

[xemacs-hg @ 2005-01-24 23:33:30 by ben] get working with VC7 config.inc.samp: Declare OPTIONAL_LIBRARY_DIR as root of library directories. Redo all graphics library defaults to mirror the versions and directories in the current binary aux distribution on xemacs web site. Enable TIFF and COMPFACE by default since you can now compile with them and binary libs are provided. xemacs.mak: Put our own directories first in case of conflict (e.g. config.h in compface). xemacs.mak: Use MSVCRT to avoid link problems. s/windowsnt.h: bytecode.c, print.c: Add casts to avoid warning. compiler.h: Add MSC_VERSION and include definitions of DOESNT_RETURN and friends here, like for GCC. Need different definitions for VC7 and VC6. s/windowsnt.h: Remove stuff moved to compiler.h. Disable warning 4646 ("function declared with __declspec(noreturn) has non-void return type") on VC7 since lots of Lisp primitives trigger this and there is no easy way to kludge around the warning. glyphs-eimage.c: Some really nasty hacks to allow TIFF and JPEG to both be compiled. #### The better solution is to move the TIFF and JPEG code to different files. glyphs-msw.c: Define __STDC__ to avoid problems with compface.h. intl-auto-encap-win32.c, intl-auto-encap-win32.h, intl-encap-win32.c, syswindows.h: Those wankers at Microsoft cannot leave well enough alone. Various functions change parameter types semi-randomly between VC6 and VC7, so we need to include our own versions that can handle both kinds with appropriate casting. EmacsFrame.c, EmacsShell-sub.c, EmacsShell.c, alloc.c, alloca.c, buffer.c, bytecode.c, charset.h, chartab.c, cm.c, console-stream.c, console.c, data.c, debug.h, device-msw.c, device-tty.c, device-x.c, doprnt.c, dumper.c, dynarr.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, events.c, extents.c, faces.c, file-coding.c, fileio.c, fns.c, font-lock.c, frame-gtk.c, frame-x.c, frame.c, free-hook.c, gccache-gtk.c, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-x.c, glyphs.c, gtk-glue.c, gutter.c, input-method-xlib.c, insdel.c, intl-win32.c, keymap.c, lisp.h, lread.c, lstream.c, macros.c, malloc.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, mule-coding.c, native-gtk-toolbar.c, number.c, objects-msw.c, objects.c, print.c, process-nt.c, process-unix.c, process.c, ralloc.c, rangetab.c, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, regex.c, scrollbar-gtk.c, scrollbar-x.c, search.c, select-x.c, signal.c, specifier.c, specifier.h, strftime.c, sunplay.c, symbols.c, sysdep.c, sysproc.h, text.c, text.h, toolbar-common.c, toolbar-msw.c, toolbar.c, ui-gtk.c, unexnt.c, unicode.c, win32.c, window.c, xgccache.c, s/windowsnt.h: abort() -> ABORT(). Eliminate preprocessor games with abort() since it creates huge problems in VC7, solvable only by including massive amounts of files in every compile (and not worth it).
author ben
date Mon, 24 Jan 2005 23:34:34 +0000
parents 576fb035e263
children efa52de8c279
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 ;;; iso8859-1.el --- Set case and syntax tables for Latin 1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 ;; Copyright (C) 1992, 1997 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 ;; Author: Jamie Zawinski <jwz@jwz.org>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 ;; Created: 19-aug-92
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 ;; Maintainer: XEmacs Development Team
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 ;; Keywords: internal, dumped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 ;; General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 ;; along with XEmacs; see the file COPYING. If not, write to the Free
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 ;; 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 ;;; Synched up with: Not synched
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31 ;; created by jwz, 19-aug-92.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 ;; Sets the case and syntax tables for the ISO-8859/1 character set.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 (let ((table (standard-syntax-table)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 ;; The symbol characters
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 (modify-syntax-entry ?\240 "_" table) ; nobreakspace
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 (modify-syntax-entry ?\241 "." table) ; exclamdown
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 (modify-syntax-entry ?\242 "_" table) ; cent
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 (modify-syntax-entry ?\243 "_" table) ; sterling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 (modify-syntax-entry ?\244 "_" table) ; currency
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 (modify-syntax-entry ?\245 "_" table) ; yen
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 (modify-syntax-entry ?\246 "_" table) ; brokenbar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 (modify-syntax-entry ?\247 "_" table) ; section
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 (modify-syntax-entry ?\250 "_" table) ; diaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 (modify-syntax-entry ?\251 "_" table) ; copyright
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 (modify-syntax-entry ?\252 "_" table) ; ordfeminine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 (modify-syntax-entry ?\253 "(\273" table) ; guillemotleft
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 (modify-syntax-entry ?\254 "_" table) ; notsign
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 (modify-syntax-entry ?\255 "_" table) ; hyphen
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 (modify-syntax-entry ?\256 "_" table) ; registered
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 (modify-syntax-entry ?\257 "_" table) ; macron
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 (modify-syntax-entry ?\260 "_" table) ; degree
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 (modify-syntax-entry ?\261 "_" table) ; plusminus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 (modify-syntax-entry ?\262 "_" table) ; twosuperior
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 (modify-syntax-entry ?\263 "_" table) ; threesuperior
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 (modify-syntax-entry ?\264 "_" table) ; acute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 (modify-syntax-entry ?\265 "_" table) ; mu
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 (modify-syntax-entry ?\266 "_" table) ; paragraph
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 (modify-syntax-entry ?\267 "_" table) ; periodcentered
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 (modify-syntax-entry ?\270 "_" table) ; cedilla
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 (modify-syntax-entry ?\271 "_" table) ; onesuperior
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 (modify-syntax-entry ?\272 "_" table) ; masculine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 (modify-syntax-entry ?\273 ")\253" table) ; guillemotright
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 (modify-syntax-entry ?\274 "_" table) ; onequarter
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 (modify-syntax-entry ?\275 "_" table) ; onehalf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 (modify-syntax-entry ?\276 "_" table) ; threequarters
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 (modify-syntax-entry ?\277 "_" table) ; questiondown
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 ;; the upper-case characters (plus "multiply" and "ssharp")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 (modify-syntax-entry ?\300 "w" table) ; Agrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 (modify-syntax-entry ?\301 "w" table) ; Aacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 (modify-syntax-entry ?\302 "w" table) ; Acircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 (modify-syntax-entry ?\303 "w" table) ; Atilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 (modify-syntax-entry ?\304 "w" table) ; Adiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 (modify-syntax-entry ?\305 "w" table) ; Aring
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 (modify-syntax-entry ?\306 "w" table) ; AE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 (modify-syntax-entry ?\307 "w" table) ; Ccedilla
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 (modify-syntax-entry ?\310 "w" table) ; Egrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 (modify-syntax-entry ?\311 "w" table) ; Eacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 (modify-syntax-entry ?\312 "w" table) ; Ecircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 (modify-syntax-entry ?\313 "w" table) ; Ediaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 (modify-syntax-entry ?\314 "w" table) ; Igrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 (modify-syntax-entry ?\315 "w" table) ; Iacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 (modify-syntax-entry ?\316 "w" table) ; Icircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 (modify-syntax-entry ?\317 "w" table) ; Idiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 (modify-syntax-entry ?\320 "w" table) ; ETH
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 (modify-syntax-entry ?\321 "w" table) ; Ntilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 (modify-syntax-entry ?\322 "w" table) ; Ograve
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 (modify-syntax-entry ?\323 "w" table) ; Oacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 (modify-syntax-entry ?\324 "w" table) ; Ocircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 (modify-syntax-entry ?\325 "w" table) ; Otilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 (modify-syntax-entry ?\326 "w" table) ; Odiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 (modify-syntax-entry ?\327 "_" table) ; multiply
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 (modify-syntax-entry ?\330 "w" table) ; Ooblique
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 (modify-syntax-entry ?\331 "w" table) ; Ugrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 (modify-syntax-entry ?\332 "w" table) ; Uacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 (modify-syntax-entry ?\333 "w" table) ; Ucircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 (modify-syntax-entry ?\334 "w" table) ; Udiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 (modify-syntax-entry ?\335 "w" table) ; Yacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 (modify-syntax-entry ?\336 "w" table) ; THORN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 (modify-syntax-entry ?\337 "w" table) ; ssharp
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 ;; the lower-case characters (plus "division" and "ydiaeresis")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 (modify-syntax-entry ?\340 "w" table) ; agrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 (modify-syntax-entry ?\341 "w" table) ; aacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 (modify-syntax-entry ?\342 "w" table) ; acircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 (modify-syntax-entry ?\343 "w" table) ; atilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 (modify-syntax-entry ?\344 "w" table) ; adiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 (modify-syntax-entry ?\345 "w" table) ; aring
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 (modify-syntax-entry ?\346 "w" table) ; ae
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 (modify-syntax-entry ?\347 "w" table) ; ccedilla
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 (modify-syntax-entry ?\350 "w" table) ; egrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 (modify-syntax-entry ?\351 "w" table) ; eacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 (modify-syntax-entry ?\352 "w" table) ; ecircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 (modify-syntax-entry ?\353 "w" table) ; ediaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 (modify-syntax-entry ?\354 "w" table) ; igrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 (modify-syntax-entry ?\355 "w" table) ; iacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 (modify-syntax-entry ?\356 "w" table) ; icircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 (modify-syntax-entry ?\357 "w" table) ; idiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 (modify-syntax-entry ?\360 "w" table) ; eth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 (modify-syntax-entry ?\361 "w" table) ; ntilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 (modify-syntax-entry ?\362 "w" table) ; ograve
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 (modify-syntax-entry ?\363 "w" table) ; oacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 (modify-syntax-entry ?\364 "w" table) ; ocircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 (modify-syntax-entry ?\365 "w" table) ; otilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 (modify-syntax-entry ?\366 "w" table) ; odiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 (modify-syntax-entry ?\367 "_" table) ; division
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 (modify-syntax-entry ?\370 "w" table) ; ooblique
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 (modify-syntax-entry ?\371 "w" table) ; ugrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 (modify-syntax-entry ?\372 "w" table) ; uacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 (modify-syntax-entry ?\373 "w" table) ; ucircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 (modify-syntax-entry ?\374 "w" table) ; udiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 (modify-syntax-entry ?\375 "w" table) ; yacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 (modify-syntax-entry ?\376 "w" table) ; thorn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 (modify-syntax-entry ?\377 "w" table) ; ydiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 (defconst iso8859/1-case-table nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 "The case table for ISO-8859/1 characters.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 ;;; This macro expands into
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 ;;; (setq iso8859/1-case-table (purecopy '("..." nil nil nil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 ;;; doing the computation of the case table at compile-time.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 ((macro
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 . (lambda (&rest pairs)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 (let ((downcase (make-string 256 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 (i 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 (while (< i 256)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 (aset downcase i (if (and (>= i ?A) (<= i ?Z)) (+ i 32) i))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 (setq i (1+ i)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 (while pairs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 (aset downcase (car (car pairs)) (car (cdr (car pairs))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 (setq pairs (cdr pairs)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 (cons 'setq
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 (cons 'iso8859/1-case-table
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 428
diff changeset
164 (list
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 428
diff changeset
165 (list 'quote
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 428
diff changeset
166 (list downcase nil nil nil))))))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 (?\300 ?\340) ; Agrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 (?\301 ?\341) ; Aacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 (?\302 ?\342) ; Acircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 (?\303 ?\343) ; Atilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 (?\304 ?\344) ; Adiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 (?\305 ?\345) ; Aring
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 (?\306 ?\346) ; AE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 (?\307 ?\347) ; Ccedilla
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 (?\310 ?\350) ; Egrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 (?\311 ?\351) ; Eacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 (?\312 ?\352) ; Ecircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 (?\313 ?\353) ; Ediaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 (?\314 ?\354) ; Igrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 (?\315 ?\355) ; Iacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 (?\316 ?\356) ; Icircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 (?\317 ?\357) ; Idiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 (?\320 ?\360) ; ETH
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 (?\321 ?\361) ; Ntilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 (?\322 ?\362) ; Ograve
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 (?\323 ?\363) ; Oacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 (?\324 ?\364) ; Ocircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 (?\325 ?\365) ; Otilde
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 (?\326 ?\366) ; Odiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 (?\330 ?\370) ; Ooblique
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 (?\331 ?\371) ; Ugrave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 (?\332 ?\372) ; Uacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 (?\333 ?\373) ; Ucircumflex
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 (?\334 ?\374) ; Udiaeresis
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 (?\335 ?\375) ; Yacute
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 (?\336 ?\376) ; THORN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 (set-standard-case-table (mapcar 'copy-sequence iso8859/1-case-table))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 (setq-default ctl-arrow 'iso-8859/1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 (provide 'iso8859-1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 ;;; iso8859-1.el ends here