/[emacs]/emacs/lisp/international/iso-insert.el
ViewVC logotype

Diff of /emacs/lisp/international/iso-insert.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

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

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26