Mercurial > emacs
comparison lisp/international/iso-insert.el @ 42046:ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sat, 15 Dec 2001 16:26:31 +0000 |
parents | 253f761ad37b |
children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
42045:14d6652598ef | 42046:ac7e83d83ab4 |
---|---|
1 ;;; iso-insert.el --- insert functions for ISO 8859/1 | 1 ;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: iso-8859-1;-*- |
2 | 2 |
3 ;; Copyright (C) 1987, 1994 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1987, 1994, 2001 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Howard Gayle | 5 ;; Author: Howard Gayle |
6 ;; Maintainer: FSF | 6 ;; Maintainer: FSF |
7 ;; Keywords: i18n | 7 ;; Keywords: i18n |
8 | 8 |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
24 ;; Boston, MA 02111-1307, USA. | 24 ;; Boston, MA 02111-1307, USA. |
25 | 25 |
26 ;;; Commentary: | 26 ;;; Commentary: |
27 | 27 |
28 ;; Written by Howard Gayle. See case-table.el for details. | 28 ;; Provides keys for inserting ISO Latin-1 characters. They use the |
29 ;; prefix key C-x 8. Type C-x 8 C-h for a list. | |
29 | 30 |
30 ;;; Code: | 31 ;;; Code: |
31 | 32 |
32 (defun insert-no-break-space () | 33 (defun insert-no-break-space () |
33 (interactive "*") | 34 (interactive "*") |
34 (insert (string 160)) | 35 (insert ?\ ) |
35 ) | 36 ) |
36 | 37 |
37 (defun insert-inverted-exclamation-mark () | 38 (defun insert-inverted-exclamation-mark () |
38 (interactive "*") | 39 (interactive "*") |
39 (insert (string 161)) | 40 (insert ?\¡) |
40 ) | 41 ) |
41 | 42 |
42 (defun insert-cent-sign () | 43 (defun insert-cent-sign () |
43 (interactive "*") | 44 (interactive "*") |
44 (insert (string 162)) | 45 (insert ?\¢) |
45 ) | 46 ) |
46 | 47 |
47 (defun insert-pound-sign () | 48 (defun insert-pound-sign () |
48 (interactive "*") | 49 (interactive "*") |
49 (insert (string 163)) | 50 (insert ?\£) |
50 ) | 51 ) |
51 | 52 |
52 (defun insert-general-currency-sign () | 53 (defun insert-general-currency-sign () |
53 (interactive "*") | 54 (interactive "*") |
54 (insert (string 164)) | 55 (insert ?\¤) |
55 ) | 56 ) |
56 | 57 |
57 (defun insert-yen-sign () | 58 (defun insert-yen-sign () |
58 (interactive "*") | 59 (interactive "*") |
59 (insert (string 165)) | 60 (insert ?\¥) |
60 ) | 61 ) |
61 | 62 |
62 (defun insert-broken-vertical-line () | 63 (defun insert-broken-vertical-line () |
63 (interactive "*") | 64 (interactive "*") |
64 (insert (string 166)) | 65 (insert ?\¦) |
65 ) | 66 ) |
66 | 67 |
67 (defun insert-section-sign () | 68 (defun insert-section-sign () |
68 (interactive "*") | 69 (interactive "*") |
69 (insert (string 167)) | 70 (insert ?\§) |
70 ) | 71 ) |
71 | 72 |
72 (defun insert-diaeresis () | 73 (defun insert-diaeresis () |
73 (interactive "*") | 74 (interactive "*") |
74 (insert (string 168)) | 75 (insert ?\¨) |
75 ) | 76 ) |
76 | 77 |
77 (defun insert-copyright-sign () | 78 (defun insert-copyright-sign () |
78 (interactive "*") | 79 (interactive "*") |
79 (insert (string 169)) | 80 (insert ?\©) |
80 ) | 81 ) |
81 | 82 |
82 (defun insert-ordinal-indicator-feminine () | 83 (defun insert-ordinal-indicator-feminine () |
83 (interactive "*") | 84 (interactive "*") |
84 (insert (string 170)) | 85 (insert ?\ª) |
85 ) | 86 ) |
86 | 87 |
87 (defun insert-angle-quotation-mark-left () | 88 (defun insert-angle-quotation-mark-left () |
88 (interactive "*") | 89 (interactive "*") |
89 (insert (string 171)) | 90 (insert ?\«) |
90 ) | 91 ) |
91 | 92 |
92 (defun insert-not-sign () | 93 (defun insert-not-sign () |
93 (interactive "*") | 94 (interactive "*") |
94 (insert (string 172)) | 95 (insert ?\¬) |
95 ) | 96 ) |
96 | 97 |
97 (defun insert-soft-hyphen () | 98 (defun insert-soft-hyphen () |
98 (interactive "*") | 99 (interactive "*") |
99 (insert (string 173)) | 100 (insert ?\) |
100 ) | 101 ) |
101 | 102 |
102 (defun insert-registered-sign () | 103 (defun insert-registered-sign () |
103 (interactive "*") | 104 (interactive "*") |
104 (insert (string 174)) | 105 (insert ?\®) |
105 ) | 106 ) |
106 | 107 |
107 (defun insert-macron () | 108 (defun insert-macron () |
108 (interactive "*") | 109 (interactive "*") |
109 (insert (string 175)) | 110 (insert ?\¯) |
110 ) | 111 ) |
111 | 112 |
112 (defun insert-degree-sign () | 113 (defun insert-degree-sign () |
113 (interactive "*") | 114 (interactive "*") |
114 (insert (string 176)) | 115 (insert ?\°) |
115 ) | 116 ) |
116 | 117 |
117 (defun insert-plus-or-minus-sign () | 118 (defun insert-plus-or-minus-sign () |
118 (interactive "*") | 119 (interactive "*") |
119 (insert (string 177)) | 120 (insert ?\±) |
120 ) | 121 ) |
121 | 122 |
122 (defun insert-superscript-two () | 123 (defun insert-superscript-two () |
123 (interactive "*") | 124 (interactive "*") |
124 (insert (string 178)) | 125 (insert ?\²) |
125 ) | 126 ) |
126 | 127 |
127 (defun insert-superscript-three () | 128 (defun insert-superscript-three () |
128 (interactive "*") | 129 (interactive "*") |
129 (insert (string 179)) | 130 (insert ?\³) |
130 ) | 131 ) |
131 | 132 |
132 (defun insert-acute-accent () | 133 (defun insert-acute-accent () |
133 (interactive "*") | 134 (interactive "*") |
134 (insert (string 180)) | 135 (insert ?\´) |
135 ) | 136 ) |
136 | 137 |
137 (defun insert-micro-sign () | 138 (defun insert-micro-sign () |
138 (interactive "*") | 139 (interactive "*") |
139 (insert (string 181)) | 140 (insert ?\µ) |
140 ) | 141 ) |
141 | 142 |
142 (defun insert-pilcrow () | 143 (defun insert-pilcrow () |
143 (interactive "*") | 144 (interactive "*") |
144 (insert (string 182)) | 145 (insert ?\¶) |
145 ) | 146 ) |
146 | 147 |
147 (defun insert-middle-dot () | 148 (defun insert-middle-dot () |
148 (interactive "*") | 149 (interactive "*") |
149 (insert (string 183)) | 150 (insert ?\·) |
150 ) | 151 ) |
151 | 152 |
152 (defun insert-cedilla () | 153 (defun insert-cedilla () |
153 (interactive "*") | 154 (interactive "*") |
154 (insert (string 184)) | 155 (insert ?\¸) |
155 ) | 156 ) |
156 | 157 |
157 (defun insert-superscript-one () | 158 (defun insert-superscript-one () |
158 (interactive "*") | 159 (interactive "*") |
159 (insert (string 185)) | 160 (insert ?\¹) |
160 ) | 161 ) |
161 | 162 |
162 (defun insert-ordinal-indicator-masculine () | 163 (defun insert-ordinal-indicator-masculine () |
163 (interactive "*") | 164 (interactive "*") |
164 (insert (string 186)) | 165 (insert ?\º) |
165 ) | 166 ) |
166 | 167 |
167 (defun insert-angle-quotation-mark-right () | 168 (defun insert-angle-quotation-mark-right () |
168 (interactive "*") | 169 (interactive "*") |
169 (insert (string 187)) | 170 (insert ?\») |
170 ) | 171 ) |
171 | 172 |
172 (defun insert-fraction-one-quarter () | 173 (defun insert-fraction-one-quarter () |
173 (interactive "*") | 174 (interactive "*") |
174 (insert (string 188)) | 175 (insert ?\¼) |
175 ) | 176 ) |
176 | 177 |
177 (defun insert-fraction-one-half () | 178 (defun insert-fraction-one-half () |
178 (interactive "*") | 179 (interactive "*") |
179 (insert (string 189)) | 180 (insert ?\½) |
180 ) | 181 ) |
181 | 182 |
182 (defun insert-fraction-three-quarters () | 183 (defun insert-fraction-three-quarters () |
183 (interactive "*") | 184 (interactive "*") |
184 (insert (string 190)) | 185 (insert ?\¾) |
185 ) | 186 ) |
186 | 187 |
187 (defun insert-inverted-question-mark () | 188 (defun insert-inverted-question-mark () |
188 (interactive "*") | 189 (interactive "*") |
189 (insert (string 191)) | 190 (insert ?\¿) |
190 ) | 191 ) |
191 | 192 |
192 (defun insert-A-grave () | 193 (defun insert-A-grave () |
193 (interactive "*") | 194 (interactive "*") |
194 (insert (string 192)) | 195 (insert ?\À) |
195 ) | 196 ) |
196 | 197 |
197 (defun insert-A-acute () | 198 (defun insert-A-acute () |
198 (interactive "*") | 199 (interactive "*") |
199 (insert (string 193)) | 200 (insert ?\Á) |
200 ) | 201 ) |
201 | 202 |
202 (defun insert-A-circumflex () | 203 (defun insert-A-circumflex () |
203 (interactive "*") | 204 (interactive "*") |
204 (insert (string 194)) | 205 (insert ?\Â) |
205 ) | 206 ) |
206 | 207 |
207 (defun insert-A-tilde () | 208 (defun insert-A-tilde () |
208 (interactive "*") | 209 (interactive "*") |
209 (insert (string 195)) | 210 (insert ?\Ã) |
210 ) | 211 ) |
211 | 212 |
212 (defun insert-A-umlaut () | 213 (defun insert-A-umlaut () |
213 (interactive "*") | 214 (interactive "*") |
214 (insert (string 196)) | 215 (insert ?\Ä) |
215 ) | 216 ) |
216 | 217 |
217 (defun insert-A-ring () | 218 (defun insert-A-ring () |
218 (interactive "*") | 219 (interactive "*") |
219 (insert (string 197)) | 220 (insert ?\Å) |
220 ) | 221 ) |
221 | 222 |
222 (defun insert-AE () | 223 (defun insert-AE () |
223 (interactive "*") | 224 (interactive "*") |
224 (insert (string 198)) | 225 (insert ?\Æ) |
225 ) | 226 ) |
226 | 227 |
227 (defun insert-C-cedilla () | 228 (defun insert-C-cedilla () |
228 (interactive "*") | 229 (interactive "*") |
229 (insert (string 199)) | 230 (insert ?\Ç) |
230 ) | 231 ) |
231 | 232 |
232 (defun insert-E-grave () | 233 (defun insert-E-grave () |
233 (interactive "*") | 234 (interactive "*") |
234 (insert (string 200)) | 235 (insert ?\È) |
235 ) | 236 ) |
236 | 237 |
237 (defun insert-E-acute () | 238 (defun insert-E-acute () |
238 (interactive "*") | 239 (interactive "*") |
239 (insert (string 201)) | 240 (insert ?\É) |
240 ) | 241 ) |
241 | 242 |
242 (defun insert-E-circumflex () | 243 (defun insert-E-circumflex () |
243 (interactive "*") | 244 (interactive "*") |
244 (insert (string 202)) | 245 (insert ?\Ê) |
245 ) | 246 ) |
246 | 247 |
247 (defun insert-E-umlaut () | 248 (defun insert-E-umlaut () |
248 (interactive "*") | 249 (interactive "*") |
249 (insert (string 203)) | 250 (insert ?\Ë) |
250 ) | 251 ) |
251 | 252 |
252 (defun insert-I-grave () | 253 (defun insert-I-grave () |
253 (interactive "*") | 254 (interactive "*") |
254 (insert (string 204)) | 255 (insert ?\Ì) |
255 ) | 256 ) |
256 | 257 |
257 (defun insert-I-acute () | 258 (defun insert-I-acute () |
258 (interactive "*") | 259 (interactive "*") |
259 (insert (string 205)) | 260 (insert ?\Í) |
260 ) | 261 ) |
261 | 262 |
262 (defun insert-I-circumflex () | 263 (defun insert-I-circumflex () |
263 (interactive "*") | 264 (interactive "*") |
264 (insert (string 206)) | 265 (insert ?\Î) |
265 ) | 266 ) |
266 | 267 |
267 (defun insert-I-umlaut () | 268 (defun insert-I-umlaut () |
268 (interactive "*") | 269 (interactive "*") |
269 (insert (string 207)) | 270 (insert ?\Ï) |
270 ) | 271 ) |
271 | 272 |
272 (defun insert-D-stroke () | 273 (defun insert-D-stroke () |
273 (interactive "*") | 274 (interactive "*") |
274 (insert (string 208)) | 275 (insert ?\Ð) |
275 ) | 276 ) |
276 | 277 |
277 (defun insert-N-tilde () | 278 (defun insert-N-tilde () |
278 (interactive "*") | 279 (interactive "*") |
279 (insert (string 209)) | 280 (insert ?\Ñ) |
280 ) | 281 ) |
281 | 282 |
282 (defun insert-O-grave () | 283 (defun insert-O-grave () |
283 (interactive "*") | 284 (interactive "*") |
284 (insert (string 210)) | 285 (insert ?\Ò) |
285 ) | 286 ) |
286 | 287 |
287 (defun insert-O-acute () | 288 (defun insert-O-acute () |
288 (interactive "*") | 289 (interactive "*") |
289 (insert (string 211)) | 290 (insert ?\Ó) |
290 ) | 291 ) |
291 | 292 |
292 (defun insert-O-circumflex () | 293 (defun insert-O-circumflex () |
293 (interactive "*") | 294 (interactive "*") |
294 (insert (string 212)) | 295 (insert ?\Ô) |
295 ) | 296 ) |
296 | 297 |
297 (defun insert-O-tilde () | 298 (defun insert-O-tilde () |
298 (interactive "*") | 299 (interactive "*") |
299 (insert (string 213)) | 300 (insert ?\Õ) |
300 ) | 301 ) |
301 | 302 |
302 (defun insert-O-umlaut () | 303 (defun insert-O-umlaut () |
303 (interactive "*") | 304 (interactive "*") |
304 (insert (string 214)) | 305 (insert ?\Ö) |
305 ) | 306 ) |
306 | 307 |
307 (defun insert-multiplication-sign () | 308 (defun insert-multiplication-sign () |
308 (interactive "*") | 309 (interactive "*") |
309 (insert (string 215)) | 310 (insert ?\×) |
310 ) | 311 ) |
311 | 312 |
312 (defun insert-O-slash () | 313 (defun insert-O-slash () |
313 (interactive "*") | 314 (interactive "*") |
314 (insert (string 216)) | 315 (insert ?\Ø) |
315 ) | 316 ) |
316 | 317 |
317 (defun insert-U-grave () | 318 (defun insert-U-grave () |
318 (interactive "*") | 319 (interactive "*") |
319 (insert (string 217)) | 320 (insert ?\Ù) |
320 ) | 321 ) |
321 | 322 |
322 (defun insert-U-acute () | 323 (defun insert-U-acute () |
323 (interactive "*") | 324 (interactive "*") |
324 (insert (string 218)) | 325 (insert ?\Ú) |
325 ) | 326 ) |
326 | 327 |
327 (defun insert-U-circumflex () | 328 (defun insert-U-circumflex () |
328 (interactive "*") | 329 (interactive "*") |
329 (insert (string 219)) | 330 (insert ?\Û) |
330 ) | 331 ) |
331 | 332 |
332 (defun insert-U-umlaut () | 333 (defun insert-U-umlaut () |
333 (interactive "*") | 334 (interactive "*") |
334 (insert (string 220)) | 335 (insert ?\Ü) |
335 ) | 336 ) |
336 | 337 |
337 (defun insert-Y-acute () | 338 (defun insert-Y-acute () |
338 (interactive "*") | 339 (interactive "*") |
339 (insert (string 221)) | 340 (insert ?\Ý) |
340 ) | 341 ) |
341 | 342 |
342 (defun insert-THORN () | 343 (defun insert-THORN () |
343 (interactive "*") | 344 (interactive "*") |
344 (insert (string 222)) | 345 (insert ?\Þ) |
345 ) | 346 ) |
346 | 347 |
347 (defun insert-ss () | 348 (defun insert-ss () |
348 (interactive "*") | 349 (interactive "*") |
349 (insert (string 223)) | 350 (insert ?\ß) |
350 ) | 351 ) |
351 | 352 |
352 (defun insert-a-grave () | 353 (defun insert-a-grave () |
353 (interactive "*") | 354 (interactive "*") |
354 (insert (string 224)) | 355 (insert ?\à) |
355 ) | 356 ) |
356 | 357 |
357 (defun insert-a-acute () | 358 (defun insert-a-acute () |
358 (interactive "*") | 359 (interactive "*") |
359 (insert (string 225)) | 360 (insert ?\á) |
360 ) | 361 ) |
361 | 362 |
362 (defun insert-a-circumflex () | 363 (defun insert-a-circumflex () |
363 (interactive "*") | 364 (interactive "*") |
364 (insert (string 226)) | 365 (insert ?\â) |
365 ) | 366 ) |
366 | 367 |
367 (defun insert-a-tilde () | 368 (defun insert-a-tilde () |
368 (interactive "*") | 369 (interactive "*") |
369 (insert (string 227)) | 370 (insert ?\ã) |
370 ) | 371 ) |
371 | 372 |
372 (defun insert-a-umlaut () | 373 (defun insert-a-umlaut () |
373 (interactive "*") | 374 (interactive "*") |
374 (insert (string 228)) | 375 (insert ?\ä) |
375 ) | 376 ) |
376 | 377 |
377 (defun insert-a-ring () | 378 (defun insert-a-ring () |
378 (interactive "*") | 379 (interactive "*") |
379 (insert (string 229)) | 380 (insert ?\å) |
380 ) | 381 ) |
381 | 382 |
382 (defun insert-ae () | 383 (defun insert-ae () |
383 (interactive "*") | 384 (interactive "*") |
384 (insert (string 230)) | 385 (insert ?\æ) |
385 ) | 386 ) |
386 | 387 |
387 (defun insert-c-cedilla () | 388 (defun insert-c-cedilla () |
388 (interactive "*") | 389 (interactive "*") |
389 (insert (string 231)) | 390 (insert ?\ç) |
390 ) | 391 ) |
391 | 392 |
392 (defun insert-e-grave () | 393 (defun insert-e-grave () |
393 (interactive "*") | 394 (interactive "*") |
394 (insert (string 232)) | 395 (insert ?\è) |
395 ) | 396 ) |
396 | 397 |
397 (defun insert-e-acute () | 398 (defun insert-e-acute () |
398 (interactive "*") | 399 (interactive "*") |
399 (insert (string 233)) | 400 (insert ?\é) |
400 ) | 401 ) |
401 | 402 |
402 (defun insert-e-circumflex () | 403 (defun insert-e-circumflex () |
403 (interactive "*") | 404 (interactive "*") |
404 (insert (string 234)) | 405 (insert ?\ê) |
405 ) | 406 ) |
406 | 407 |
407 (defun insert-e-umlaut () | 408 (defun insert-e-umlaut () |
408 (interactive "*") | 409 (interactive "*") |
409 (insert (string 235)) | 410 (insert ?\ë) |
410 ) | 411 ) |
411 | 412 |
412 (defun insert-i-grave () | 413 (defun insert-i-grave () |
413 (interactive "*") | 414 (interactive "*") |
414 (insert (string 236)) | 415 (insert ?\ì) |
415 ) | 416 ) |
416 | 417 |
417 (defun insert-i-acute () | 418 (defun insert-i-acute () |
418 (interactive "*") | 419 (interactive "*") |
419 (insert (string 237)) | 420 (insert ?\í) |
420 ) | 421 ) |
421 | 422 |
422 (defun insert-i-circumflex () | 423 (defun insert-i-circumflex () |
423 (interactive "*") | 424 (interactive "*") |
424 (insert (string 238)) | 425 (insert ?\î) |
425 ) | 426 ) |
426 | 427 |
427 (defun insert-i-umlaut () | 428 (defun insert-i-umlaut () |
428 (interactive "*") | 429 (interactive "*") |
429 (insert (string 239)) | 430 (insert ?\ï) |
430 ) | 431 ) |
431 | 432 |
432 (defun insert-d-stroke () | 433 (defun insert-d-stroke () |
433 (interactive "*") | 434 (interactive "*") |
434 (insert (string 240)) | 435 (insert ?\ð) |
435 ) | 436 ) |
436 | 437 |
437 (defun insert-n-tilde () | 438 (defun insert-n-tilde () |
438 (interactive "*") | 439 (interactive "*") |
439 (insert (string 241)) | 440 (insert ?\ñ) |
440 ) | 441 ) |
441 | 442 |
442 (defun insert-o-grave () | 443 (defun insert-o-grave () |
443 (interactive "*") | 444 (interactive "*") |
444 (insert (string 242)) | 445 (insert ?\ò) |
445 ) | 446 ) |
446 | 447 |
447 (defun insert-o-acute () | 448 (defun insert-o-acute () |
448 (interactive "*") | 449 (interactive "*") |
449 (insert (string 243)) | 450 (insert ?\ó) |
450 ) | 451 ) |
451 | 452 |
452 (defun insert-o-circumflex () | 453 (defun insert-o-circumflex () |
453 (interactive "*") | 454 (interactive "*") |
454 (insert (string 244)) | 455 (insert ?\ô) |
455 ) | 456 ) |
456 | 457 |
457 (defun insert-o-tilde () | 458 (defun insert-o-tilde () |
458 (interactive "*") | 459 (interactive "*") |
459 (insert (string 245)) | 460 (insert ?\õ) |
460 ) | 461 ) |
461 | 462 |
462 (defun insert-o-umlaut () | 463 (defun insert-o-umlaut () |
463 (interactive "*") | 464 (interactive "*") |
464 (insert (string 246)) | 465 (insert ?\ö) |
465 ) | 466 ) |
466 | 467 |
467 (defun insert-division-sign () | 468 (defun insert-division-sign () |
468 (interactive "*") | 469 (interactive "*") |
469 (insert (string 247)) | 470 (insert ?\÷) |
470 ) | 471 ) |
471 | 472 |
472 (defun insert-o-slash () | 473 (defun insert-o-slash () |
473 (interactive "*") | 474 (interactive "*") |
474 (insert (string 248)) | 475 (insert ?\ø) |
475 ) | 476 ) |
476 | 477 |
477 (defun insert-u-grave () | 478 (defun insert-u-grave () |
478 (interactive "*") | 479 (interactive "*") |
479 (insert (string 249)) | 480 (insert ?\ù) |
480 ) | 481 ) |
481 | 482 |
482 (defun insert-u-acute () | 483 (defun insert-u-acute () |
483 (interactive "*") | 484 (interactive "*") |
484 (insert (string 250)) | 485 (insert ?\ú) |
485 ) | 486 ) |
486 | 487 |
487 (defun insert-u-circumflex () | 488 (defun insert-u-circumflex () |
488 (interactive "*") | 489 (interactive "*") |
489 (insert (string 251)) | 490 (insert ?\û) |
490 ) | 491 ) |
491 | 492 |
492 (defun insert-u-umlaut () | 493 (defun insert-u-umlaut () |
493 (interactive "*") | 494 (interactive "*") |
494 (insert (string 252)) | 495 (insert ?\ü) |
495 ) | 496 ) |
496 | 497 |
497 (defun insert-y-acute () | 498 (defun insert-y-acute () |
498 (interactive "*") | 499 (interactive "*") |
499 (insert (string 253)) | 500 (insert ?\ý) |
500 ) | 501 ) |
501 | 502 |
502 (defun insert-thorn () | 503 (defun insert-thorn () |
503 (interactive "*") | 504 (interactive "*") |
504 (insert (string 254)) | 505 (insert ?\þ) |
505 ) | 506 ) |
506 | 507 |
507 (defun insert-y-umlaut () | 508 (defun insert-y-umlaut () |
508 (interactive "*") | 509 (interactive "*") |
509 (insert (string 255)) | 510 (insert ?\ÿ) |
510 ) | 511 ) |
511 | 512 |
512 (defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.") | 513 (defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.") |
513 (if 8859-1-map nil | 514 (if 8859-1-map nil |
514 (setq 8859-1-map (make-keymap)) | 515 (setq 8859-1-map (make-keymap)) |