Mercurial > emacs
annotate lisp/international/iso-insert.el @ 89539:681ad4b7421f
(define-coding-system): Fix attribute name :for-unibyte.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sun, 28 Sep 2003 23:56:11 +0000 |
parents | 375f2633d815 |
children | 68c22ea6027c |
rev | line source |
---|---|
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
1 ;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: iso-8859-1;-*- |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
583
diff
changeset
|
2 |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
3 ;; Copyright (C) 1987, 1994, 2001 Free Software Foundation, Inc. |
845 | 4 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
660
diff
changeset
|
5 ;; Author: Howard Gayle |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
660
diff
changeset
|
6 ;; Maintainer: FSF |
3012
d4b85bbedee8
Change "i14n" keyword to "i18n".
Jim Blandy <jimb@redhat.com>
parents:
2307
diff
changeset
|
7 ;; Keywords: i18n |
583 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
660
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
583 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
583 | 25 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
26 ;;; Commentary: |
583 | 27 |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
28 ;; Provides keys for inserting ISO Latin-1 characters. They use the |
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
29 ;; prefix key C-x 8. Type C-x 8 C-h for a list. |
583 | 30 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
31 ;;; Code: |
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
32 |
583 | 33 (defun insert-no-break-space () |
34 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
35 (insert ?\ ) |
583 | 36 ) |
37 | |
38 (defun insert-inverted-exclamation-mark () | |
39 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
40 (insert ?\¡) |
583 | 41 ) |
42 | |
43 (defun insert-cent-sign () | |
44 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
45 (insert ?\¢) |
583 | 46 ) |
47 | |
48 (defun insert-pound-sign () | |
49 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
50 (insert ?\£) |
583 | 51 ) |
52 | |
53 (defun insert-general-currency-sign () | |
54 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
55 (insert ?\¤) |
583 | 56 ) |
57 | |
58 (defun insert-yen-sign () | |
59 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
60 (insert ?\¥) |
583 | 61 ) |
62 | |
63 (defun insert-broken-vertical-line () | |
64 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
65 (insert ?\¦) |
583 | 66 ) |
67 | |
68 (defun insert-section-sign () | |
69 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
70 (insert ?\§) |
583 | 71 ) |
72 | |
73 (defun insert-diaeresis () | |
74 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
75 (insert ?\¨) |
583 | 76 ) |
77 | |
78 (defun insert-copyright-sign () | |
79 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
80 (insert ?\©) |
583 | 81 ) |
82 | |
83 (defun insert-ordinal-indicator-feminine () | |
84 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
85 (insert ?\ª) |
583 | 86 ) |
87 | |
88 (defun insert-angle-quotation-mark-left () | |
89 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
90 (insert ?\«) |
583 | 91 ) |
92 | |
93 (defun insert-not-sign () | |
94 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
95 (insert ?\¬) |
583 | 96 ) |
97 | |
98 (defun insert-soft-hyphen () | |
99 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
100 (insert ?\) |
583 | 101 ) |
102 | |
103 (defun insert-registered-sign () | |
104 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
105 (insert ?\®) |
583 | 106 ) |
107 | |
108 (defun insert-macron () | |
109 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
110 (insert ?\¯) |
583 | 111 ) |
112 | |
113 (defun insert-degree-sign () | |
114 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
115 (insert ?\°) |
583 | 116 ) |
117 | |
118 (defun insert-plus-or-minus-sign () | |
119 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
120 (insert ?\±) |
583 | 121 ) |
122 | |
123 (defun insert-superscript-two () | |
124 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
125 (insert ?\²) |
583 | 126 ) |
127 | |
128 (defun insert-superscript-three () | |
129 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
130 (insert ?\³) |
583 | 131 ) |
132 | |
133 (defun insert-acute-accent () | |
134 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
135 (insert ?\´) |
583 | 136 ) |
137 | |
138 (defun insert-micro-sign () | |
139 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
140 (insert ?\µ) |
583 | 141 ) |
142 | |
143 (defun insert-pilcrow () | |
144 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
145 (insert ?\¶) |
583 | 146 ) |
147 | |
148 (defun insert-middle-dot () | |
149 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
150 (insert ?\·) |
583 | 151 ) |
152 | |
153 (defun insert-cedilla () | |
154 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
155 (insert ?\¸) |
583 | 156 ) |
157 | |
158 (defun insert-superscript-one () | |
159 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
160 (insert ?\¹) |
583 | 161 ) |
162 | |
163 (defun insert-ordinal-indicator-masculine () | |
164 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
165 (insert ?\º) |
583 | 166 ) |
167 | |
168 (defun insert-angle-quotation-mark-right () | |
169 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
170 (insert ?\») |
583 | 171 ) |
172 | |
173 (defun insert-fraction-one-quarter () | |
174 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
175 (insert ?\¼) |
583 | 176 ) |
177 | |
178 (defun insert-fraction-one-half () | |
179 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
180 (insert ?\½) |
583 | 181 ) |
182 | |
183 (defun insert-fraction-three-quarters () | |
184 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
185 (insert ?\¾) |
583 | 186 ) |
187 | |
188 (defun insert-inverted-question-mark () | |
189 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
190 (insert ?\¿) |
583 | 191 ) |
192 | |
193 (defun insert-A-grave () | |
194 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
195 (insert ?\À) |
583 | 196 ) |
197 | |
198 (defun insert-A-acute () | |
199 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
200 (insert ?\Á) |
583 | 201 ) |
202 | |
203 (defun insert-A-circumflex () | |
204 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
205 (insert ?\Â) |
583 | 206 ) |
207 | |
208 (defun insert-A-tilde () | |
209 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
210 (insert ?\Ã) |
583 | 211 ) |
212 | |
213 (defun insert-A-umlaut () | |
214 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
215 (insert ?\Ä) |
583 | 216 ) |
217 | |
218 (defun insert-A-ring () | |
219 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
220 (insert ?\Å) |
583 | 221 ) |
222 | |
223 (defun insert-AE () | |
224 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
225 (insert ?\Æ) |
583 | 226 ) |
227 | |
228 (defun insert-C-cedilla () | |
229 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
230 (insert ?\Ç) |
583 | 231 ) |
232 | |
233 (defun insert-E-grave () | |
234 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
235 (insert ?\È) |
583 | 236 ) |
237 | |
238 (defun insert-E-acute () | |
239 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
240 (insert ?\É) |
583 | 241 ) |
242 | |
243 (defun insert-E-circumflex () | |
244 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
245 (insert ?\Ê) |
583 | 246 ) |
247 | |
248 (defun insert-E-umlaut () | |
249 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
250 (insert ?\Ë) |
583 | 251 ) |
252 | |
253 (defun insert-I-grave () | |
254 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
255 (insert ?\Ì) |
583 | 256 ) |
257 | |
258 (defun insert-I-acute () | |
259 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
260 (insert ?\Í) |
583 | 261 ) |
262 | |
263 (defun insert-I-circumflex () | |
264 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
265 (insert ?\Î) |
583 | 266 ) |
267 | |
268 (defun insert-I-umlaut () | |
269 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
270 (insert ?\Ï) |
583 | 271 ) |
272 | |
273 (defun insert-D-stroke () | |
274 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
275 (insert ?\Ð) |
583 | 276 ) |
277 | |
278 (defun insert-N-tilde () | |
279 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
280 (insert ?\Ñ) |
583 | 281 ) |
282 | |
283 (defun insert-O-grave () | |
284 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
285 (insert ?\Ò) |
583 | 286 ) |
287 | |
288 (defun insert-O-acute () | |
289 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
290 (insert ?\Ó) |
583 | 291 ) |
292 | |
293 (defun insert-O-circumflex () | |
294 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
295 (insert ?\Ô) |
583 | 296 ) |
297 | |
298 (defun insert-O-tilde () | |
299 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
300 (insert ?\Õ) |
583 | 301 ) |
302 | |
303 (defun insert-O-umlaut () | |
304 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
305 (insert ?\Ö) |
583 | 306 ) |
307 | |
308 (defun insert-multiplication-sign () | |
309 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
310 (insert ?\×) |
583 | 311 ) |
312 | |
313 (defun insert-O-slash () | |
314 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
315 (insert ?\Ø) |
583 | 316 ) |
317 | |
318 (defun insert-U-grave () | |
319 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
320 (insert ?\Ù) |
583 | 321 ) |
322 | |
323 (defun insert-U-acute () | |
324 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
325 (insert ?\Ú) |
583 | 326 ) |
327 | |
328 (defun insert-U-circumflex () | |
329 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
330 (insert ?\Û) |
583 | 331 ) |
332 | |
333 (defun insert-U-umlaut () | |
334 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
335 (insert ?\Ü) |
583 | 336 ) |
337 | |
338 (defun insert-Y-acute () | |
339 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
340 (insert ?\Ý) |
583 | 341 ) |
342 | |
343 (defun insert-THORN () | |
344 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
345 (insert ?\Þ) |
583 | 346 ) |
347 | |
348 (defun insert-ss () | |
349 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
350 (insert ?\ß) |
583 | 351 ) |
352 | |
353 (defun insert-a-grave () | |
354 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
355 (insert ?\à) |
583 | 356 ) |
357 | |
358 (defun insert-a-acute () | |
359 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
360 (insert ?\á) |
583 | 361 ) |
362 | |
363 (defun insert-a-circumflex () | |
364 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
365 (insert ?\â) |
583 | 366 ) |
367 | |
368 (defun insert-a-tilde () | |
369 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
370 (insert ?\ã) |
583 | 371 ) |
372 | |
373 (defun insert-a-umlaut () | |
374 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
375 (insert ?\ä) |
583 | 376 ) |
377 | |
378 (defun insert-a-ring () | |
379 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
380 (insert ?\å) |
583 | 381 ) |
382 | |
383 (defun insert-ae () | |
384 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
385 (insert ?\æ) |
583 | 386 ) |
387 | |
388 (defun insert-c-cedilla () | |
389 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
390 (insert ?\ç) |
583 | 391 ) |
392 | |
393 (defun insert-e-grave () | |
394 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
395 (insert ?\è) |
583 | 396 ) |
397 | |
398 (defun insert-e-acute () | |
399 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
400 (insert ?\é) |
583 | 401 ) |
402 | |
403 (defun insert-e-circumflex () | |
404 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
405 (insert ?\ê) |
583 | 406 ) |
407 | |
408 (defun insert-e-umlaut () | |
409 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
410 (insert ?\ë) |
583 | 411 ) |
412 | |
413 (defun insert-i-grave () | |
414 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
415 (insert ?\ì) |
583 | 416 ) |
417 | |
418 (defun insert-i-acute () | |
419 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
420 (insert ?\í) |
583 | 421 ) |
422 | |
423 (defun insert-i-circumflex () | |
424 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
425 (insert ?\î) |
583 | 426 ) |
427 | |
428 (defun insert-i-umlaut () | |
429 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
430 (insert ?\ï) |
583 | 431 ) |
432 | |
433 (defun insert-d-stroke () | |
434 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
435 (insert ?\ð) |
583 | 436 ) |
437 | |
438 (defun insert-n-tilde () | |
439 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
440 (insert ?\ñ) |
583 | 441 ) |
442 | |
443 (defun insert-o-grave () | |
444 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
445 (insert ?\ò) |
583 | 446 ) |
447 | |
448 (defun insert-o-acute () | |
449 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
450 (insert ?\ó) |
583 | 451 ) |
452 | |
453 (defun insert-o-circumflex () | |
454 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
455 (insert ?\ô) |
583 | 456 ) |
457 | |
458 (defun insert-o-tilde () | |
459 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
460 (insert ?\õ) |
583 | 461 ) |
462 | |
463 (defun insert-o-umlaut () | |
464 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
465 (insert ?\ö) |
583 | 466 ) |
467 | |
468 (defun insert-division-sign () | |
469 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
470 (insert ?\÷) |
583 | 471 ) |
472 | |
473 (defun insert-o-slash () | |
474 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
475 (insert ?\ø) |
583 | 476 ) |
477 | |
478 (defun insert-u-grave () | |
479 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
480 (insert ?\ù) |
583 | 481 ) |
482 | |
483 (defun insert-u-acute () | |
484 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
485 (insert ?\ú) |
583 | 486 ) |
487 | |
488 (defun insert-u-circumflex () | |
489 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
490 (insert ?\û) |
583 | 491 ) |
492 | |
493 (defun insert-u-umlaut () | |
494 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
495 (insert ?\ü) |
583 | 496 ) |
497 | |
498 (defun insert-y-acute () | |
499 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
500 (insert ?\ý) |
583 | 501 ) |
502 | |
503 (defun insert-thorn () | |
504 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
505 (insert ?\þ) |
583 | 506 ) |
507 | |
508 (defun insert-y-umlaut () | |
509 (interactive "*") | |
42046
ac7e83d83ab4
Insert Latin-1 characters, not unibyte strings.
Dave Love <fx@gnu.org>
parents:
38412
diff
changeset
|
510 (insert ?\ÿ) |
583 | 511 ) |
512 | |
513 (defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.") | |
514 (if 8859-1-map nil | |
515 (setq 8859-1-map (make-keymap)) | |
516 (define-key 8859-1-map " " 'insert-no-break-space) | |
517 (define-key 8859-1-map "!" 'insert-inverted-exclamation-mark) | |
518 (define-key 8859-1-map "\"" (make-sparse-keymap)) | |
519 (define-key 8859-1-map "\"\"" 'insert-diaeresis) | |
520 (define-key 8859-1-map "\"A" 'insert-A-umlaut) | |
521 (define-key 8859-1-map "\"E" 'insert-E-umlaut) | |
522 (define-key 8859-1-map "\"I" 'insert-I-umlaut) | |
523 (define-key 8859-1-map "\"O" 'insert-O-umlaut) | |
524 (define-key 8859-1-map "\"U" 'insert-U-umlaut) | |
525 (define-key 8859-1-map "\"a" 'insert-a-umlaut) | |
526 (define-key 8859-1-map "\"e" 'insert-e-umlaut) | |
527 (define-key 8859-1-map "\"i" 'insert-i-umlaut) | |
528 (define-key 8859-1-map "\"o" 'insert-o-umlaut) | |
529 (define-key 8859-1-map "\"u" 'insert-u-umlaut) | |
530 (define-key 8859-1-map "\"y" 'insert-y-umlaut) | |
531 (define-key 8859-1-map "'" (make-sparse-keymap)) | |
532 (define-key 8859-1-map "''" 'insert-acute-accent) | |
533 (define-key 8859-1-map "'A" 'insert-A-acute) | |
534 (define-key 8859-1-map "'E" 'insert-E-acute) | |
535 (define-key 8859-1-map "'I" 'insert-I-acute) | |
536 (define-key 8859-1-map "'O" 'insert-O-acute) | |
537 (define-key 8859-1-map "'U" 'insert-U-acute) | |
538 (define-key 8859-1-map "'Y" 'insert-Y-acute) | |
539 (define-key 8859-1-map "'a" 'insert-a-acute) | |
540 (define-key 8859-1-map "'e" 'insert-e-acute) | |
541 (define-key 8859-1-map "'i" 'insert-i-acute) | |
542 (define-key 8859-1-map "'o" 'insert-o-acute) | |
543 (define-key 8859-1-map "'u" 'insert-u-acute) | |
544 (define-key 8859-1-map "'y" 'insert-y-acute) | |
545 (define-key 8859-1-map "$" 'insert-general-currency-sign) | |
546 (define-key 8859-1-map "+" 'insert-plus-or-minus-sign) | |
547 (define-key 8859-1-map "," (make-sparse-keymap)) | |
548 (define-key 8859-1-map ",," 'insert-cedilla) | |
549 (define-key 8859-1-map ",C" 'insert-C-cedilla) | |
550 (define-key 8859-1-map ",c" 'insert-c-cedilla) | |
551 (define-key 8859-1-map "-" 'insert-soft-hyphen) | |
552 (define-key 8859-1-map "." 'insert-middle-dot) | |
553 (define-key 8859-1-map "/" (make-sparse-keymap)) | |
554 (define-key 8859-1-map "//" 'insert-division-sign) | |
555 (define-key 8859-1-map "/O" 'insert-O-slash) | |
556 (define-key 8859-1-map "/o" 'insert-o-slash) | |
557 (define-key 8859-1-map "1" (make-sparse-keymap)) | |
558 (define-key 8859-1-map "1/" (make-sparse-keymap)) | |
559 (define-key 8859-1-map "1/2" 'insert-fraction-one-half) | |
560 (define-key 8859-1-map "1/4" 'insert-fraction-one-quarter) | |
561 (define-key 8859-1-map "3" (make-sparse-keymap)) | |
562 (define-key 8859-1-map "3/" (make-sparse-keymap)) | |
563 (define-key 8859-1-map "3/4" 'insert-fraction-three-quarters) | |
564 (define-key 8859-1-map "<" 'insert-angle-quotation-mark-left) | |
565 (define-key 8859-1-map "=" 'insert-macron) | |
566 (define-key 8859-1-map ">" 'insert-angle-quotation-mark-right) | |
567 (define-key 8859-1-map "?" 'insert-inverted-question-mark) | |
5823
d39903c0763e
Change the sequences aa and ae to just a and e.
Richard M. Stallman <rms@gnu.org>
parents:
3177
diff
changeset
|
568 (define-key 8859-1-map "A" 'insert-A-ring) |
d39903c0763e
Change the sequences aa and ae to just a and e.
Richard M. Stallman <rms@gnu.org>
parents:
3177
diff
changeset
|
569 (define-key 8859-1-map "E" 'insert-AE) |
583 | 570 (define-key 8859-1-map "C" 'insert-copyright-sign) |
571 (define-key 8859-1-map "D" 'insert-D-stroke) | |
572 (define-key 8859-1-map "L" 'insert-pound-sign) | |
573 (define-key 8859-1-map "P" 'insert-pilcrow) | |
574 (define-key 8859-1-map "R" 'insert-registered-sign) | |
575 (define-key 8859-1-map "S" 'insert-section-sign) | |
576 (define-key 8859-1-map "T" 'insert-THORN) | |
577 (define-key 8859-1-map "Y" 'insert-yen-sign) | |
578 (define-key 8859-1-map "^" (make-sparse-keymap)) | |
579 (define-key 8859-1-map "^1" 'insert-superscript-one) | |
580 (define-key 8859-1-map "^2" 'insert-superscript-two) | |
581 (define-key 8859-1-map "^3" 'insert-superscript-three) | |
582 (define-key 8859-1-map "^A" 'insert-A-circumflex) | |
583 (define-key 8859-1-map "^E" 'insert-E-circumflex) | |
584 (define-key 8859-1-map "^I" 'insert-I-circumflex) | |
585 (define-key 8859-1-map "^O" 'insert-O-circumflex) | |
586 (define-key 8859-1-map "^U" 'insert-U-circumflex) | |
587 (define-key 8859-1-map "^a" 'insert-a-circumflex) | |
588 (define-key 8859-1-map "^e" 'insert-e-circumflex) | |
589 (define-key 8859-1-map "^i" 'insert-i-circumflex) | |
590 (define-key 8859-1-map "^o" 'insert-o-circumflex) | |
591 (define-key 8859-1-map "^u" 'insert-u-circumflex) | |
592 (define-key 8859-1-map "_" (make-sparse-keymap)) | |
593 (define-key 8859-1-map "_a" 'insert-ordinal-indicator-feminine) | |
594 (define-key 8859-1-map "_o" 'insert-ordinal-indicator-masculine) | |
595 (define-key 8859-1-map "`" (make-sparse-keymap)) | |
596 (define-key 8859-1-map "`A" 'insert-A-grave) | |
597 (define-key 8859-1-map "`E" 'insert-E-grave) | |
598 (define-key 8859-1-map "`I" 'insert-I-grave) | |
599 (define-key 8859-1-map "`O" 'insert-O-grave) | |
600 (define-key 8859-1-map "`U" 'insert-U-grave) | |
601 (define-key 8859-1-map "`a" 'insert-a-grave) | |
602 (define-key 8859-1-map "`e" 'insert-e-grave) | |
603 (define-key 8859-1-map "`i" 'insert-i-grave) | |
604 (define-key 8859-1-map "`o" 'insert-o-grave) | |
605 (define-key 8859-1-map "`u" 'insert-u-grave) | |
5823
d39903c0763e
Change the sequences aa and ae to just a and e.
Richard M. Stallman <rms@gnu.org>
parents:
3177
diff
changeset
|
606 (define-key 8859-1-map "a" 'insert-a-ring) |
d39903c0763e
Change the sequences aa and ae to just a and e.
Richard M. Stallman <rms@gnu.org>
parents:
3177
diff
changeset
|
607 (define-key 8859-1-map "e" 'insert-ae) |
583 | 608 (define-key 8859-1-map "c" 'insert-cent-sign) |
609 (define-key 8859-1-map "d" 'insert-d-stroke) | |
610 (define-key 8859-1-map "o" 'insert-degree-sign) | |
611 (define-key 8859-1-map "s" 'insert-ss) | |
612 (define-key 8859-1-map "t" 'insert-thorn) | |
613 (define-key 8859-1-map "u" 'insert-micro-sign) | |
614 (define-key 8859-1-map "x" 'insert-multiplication-sign) | |
615 (define-key 8859-1-map "|" 'insert-broken-vertical-line) | |
616 (define-key 8859-1-map "~" (make-sparse-keymap)) | |
617 (define-key 8859-1-map "~A" 'insert-A-tilde) | |
618 (define-key 8859-1-map "~N" 'insert-N-tilde) | |
619 (define-key 8859-1-map "~O" 'insert-O-tilde) | |
620 (define-key 8859-1-map "~a" 'insert-a-tilde) | |
621 (define-key 8859-1-map "~n" 'insert-n-tilde) | |
622 (define-key 8859-1-map "~o" 'insert-o-tilde) | |
623 (define-key 8859-1-map "~~" 'insert-not-sign) | |
624 (if (not (lookup-key global-map "\C-x8")) | |
625 (define-key global-map "\C-x8" 8859-1-map)) | |
626 ) | |
20101
1920690627a2
Add autoloads for `8859-1-map'.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
627 (defalias '8859-1-map 8859-1-map) |
583 | 628 |
3177
2e1b9ebc17ef
Provide same name as file.
Richard M. Stallman <rms@gnu.org>
parents:
3012
diff
changeset
|
629 (provide 'iso-insert) |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
583
diff
changeset
|
630 |
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
583
diff
changeset
|
631 ;;; iso-insert.el ends here |