Mercurial > hg > xemacs-beta

comparison lisp/iso8859-1.el @ 3540:efa52de8c279

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-08-04 20:01:05 by aidan] Handle Latin-1 in syntax.c; make guillemets string delimiters.
author aidan
date Fri, 04 Aug 2006 20:01:14 +0000
parents 576fb035e263
children b4f4e0cc90f1
comparison
equal deleted inserted replaced
3539:9a4534f784c2 3540:efa52de8c279
1 ;;; iso8859-1.el --- Set case and syntax tables for Latin 1 1 ;;; iso8859-1.el --- Set syntax table for Latin 1
2 2
3 ;; Copyright (C) 1992, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1997, 2006 Free Software Foundation, Inc.
4 4
5 ;; Author: Jamie Zawinski <jwz@jwz.org> 5 ;; Author: Jamie Zawinski <jwz@jwz.org>
6 ;; Created: 19-aug-92 6 ;; Created: 19-aug-92
7 ;; Maintainer: XEmacs Development Team 7 ;; Maintainer: XEmacs Development Team
8 ;; Keywords: internal, dumped 8 ;; Keywords: internal, dumped
22 ;; You should have received a copy of the GNU General Public License 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 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 24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 ;; 02111-1307, USA. 25 ;; 02111-1307, USA.
26 26
27 ;;; Synched up with: Not synched 27 ;;; Synched up with: Not in FSF.
28 28
29 ;;; Commentary: 29 ;;; Commentary:
30 30
31 ;; created by jwz, 19-aug-92. 31 ;; created by jwz, 19-aug-92.
32 ;; Sets the case and syntax tables for the ISO-8859/1 character set. 32 ;; Sets the case table for the ISO-8859/1 character set.
33 ;; Used to set the syntax table.
33 34
34 ;;; Code: 35 ;;; Code:
35 36
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 37 (defconst iso8859/1-case-table nil
146 "The case table for ISO-8859/1 characters.") 38 "The case table for ISO-8859/1 characters.")
147 39
148 ;;; This macro expands into 40 ;;; This macro expands into
149 ;;; (setq iso8859/1-case-table (purecopy '("..." nil nil nil))) 41 ;;; (setq iso8859/1-case-table (purecopy '("..." nil nil nil)))