aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1998-09-04 20:46:30 +0000
committerKarl Heuer1998-09-04 20:46:30 +0000
commit85c92c4050da1dc1dd0497b2841ac5437d775857 (patch)
tree6fe5043d628b1f1342be1c3c11fca50eeeeee402
parent0b2bb4d096f59f7a0f99a3c68510b51f0a72a52c (diff)
downloademacs-85c92c4050da1dc1dd0497b2841ac5437d775857.tar.gz
emacs-85c92c4050da1dc1dd0497b2841ac5437d775857.zip
Use `string' before calling `insert'
so that in multibyte buffers we insert multibyte chars.
-rw-r--r--lisp/international/iso-insert.el192
1 files changed, 96 insertions, 96 deletions
diff --git a/lisp/international/iso-insert.el b/lisp/international/iso-insert.el
index 0b76fe1ea2d..b1b75e7f6a7 100644
--- a/lisp/international/iso-insert.el
+++ b/lisp/international/iso-insert.el
@@ -35,482 +35,482 @@
35 35
36(defun insert-no-break-space () 36(defun insert-no-break-space ()
37 (interactive "*") 37 (interactive "*")
38 (insert 160) 38 (insert (string 160))
39) 39)
40 40
41(defun insert-inverted-exclamation-mark () 41(defun insert-inverted-exclamation-mark ()
42 (interactive "*") 42 (interactive "*")
43 (insert 161) 43 (insert (string 161))
44) 44)
45 45
46(defun insert-cent-sign () 46(defun insert-cent-sign ()
47 (interactive "*") 47 (interactive "*")
48 (insert 162) 48 (insert (string 162))
49) 49)
50 50
51(defun insert-pound-sign () 51(defun insert-pound-sign ()
52 (interactive "*") 52 (interactive "*")
53 (insert 163) 53 (insert (string 163))
54) 54)
55 55
56(defun insert-general-currency-sign () 56(defun insert-general-currency-sign ()
57 (interactive "*") 57 (interactive "*")
58 (insert 164) 58 (insert (string 164))
59) 59)
60 60
61(defun insert-yen-sign () 61(defun insert-yen-sign ()
62 (interactive "*") 62 (interactive "*")
63 (insert 165) 63 (insert (string 165))
64) 64)
65 65
66(defun insert-broken-vertical-line () 66(defun insert-broken-vertical-line ()
67 (interactive "*") 67 (interactive "*")
68 (insert 166) 68 (insert (string 166))
69) 69)
70 70
71(defun insert-section-sign () 71(defun insert-section-sign ()
72 (interactive "*") 72 (interactive "*")
73 (insert 167) 73 (insert (string 167))
74) 74)
75 75
76(defun insert-diaeresis () 76(defun insert-diaeresis ()
77 (interactive "*") 77 (interactive "*")
78 (insert 168) 78 (insert (string 168))
79) 79)
80 80
81(defun insert-copyright-sign () 81(defun insert-copyright-sign ()
82 (interactive "*") 82 (interactive "*")
83 (insert 169) 83 (insert (string 169))
84) 84)
85 85
86(defun insert-ordinal-indicator-feminine () 86(defun insert-ordinal-indicator-feminine ()
87 (interactive "*") 87 (interactive "*")
88 (insert 170) 88 (insert (string 170))
89) 89)
90 90
91(defun insert-angle-quotation-mark-left () 91(defun insert-angle-quotation-mark-left ()
92 (interactive "*") 92 (interactive "*")
93 (insert 171) 93 (insert (string 171))
94) 94)
95 95
96(defun insert-not-sign () 96(defun insert-not-sign ()
97 (interactive "*") 97 (interactive "*")
98 (insert 172) 98 (insert (string 172))
99) 99)
100 100
101(defun insert-soft-hyphen () 101(defun insert-soft-hyphen ()
102 (interactive "*") 102 (interactive "*")
103 (insert 173) 103 (insert (string 173))
104) 104)
105 105
106(defun insert-registered-sign () 106(defun insert-registered-sign ()
107 (interactive "*") 107 (interactive "*")
108 (insert 174) 108 (insert (string 174))
109) 109)
110 110
111(defun insert-macron () 111(defun insert-macron ()
112 (interactive "*") 112 (interactive "*")
113 (insert 175) 113 (insert (string 175))
114) 114)
115 115
116(defun insert-degree-sign () 116(defun insert-degree-sign ()
117 (interactive "*") 117 (interactive "*")
118 (insert 176) 118 (insert (string 176))
119) 119)
120 120
121(defun insert-plus-or-minus-sign () 121(defun insert-plus-or-minus-sign ()
122 (interactive "*") 122 (interactive "*")
123 (insert 177) 123 (insert (string 177))
124) 124)
125 125
126(defun insert-superscript-two () 126(defun insert-superscript-two ()
127 (interactive "*") 127 (interactive "*")
128 (insert 178) 128 (insert (string 178))
129) 129)
130 130
131(defun insert-superscript-three () 131(defun insert-superscript-three ()
132 (interactive "*") 132 (interactive "*")
133 (insert 179) 133 (insert (string 179))
134) 134)
135 135
136(defun insert-acute-accent () 136(defun insert-acute-accent ()
137 (interactive "*") 137 (interactive "*")
138 (insert 180) 138 (insert (string 180))
139) 139)
140 140
141(defun insert-micro-sign () 141(defun insert-micro-sign ()
142 (interactive "*") 142 (interactive "*")
143 (insert 181) 143 (insert (string 181))
144) 144)
145 145
146(defun insert-pilcrow () 146(defun insert-pilcrow ()
147 (interactive "*") 147 (interactive "*")
148 (insert 182) 148 (insert (string 182))
149) 149)
150 150
151(defun insert-middle-dot () 151(defun insert-middle-dot ()
152 (interactive "*") 152 (interactive "*")
153 (insert 183) 153 (insert (string 183))
154) 154)
155 155
156(defun insert-cedilla () 156(defun insert-cedilla ()
157 (interactive "*") 157 (interactive "*")
158 (insert 184) 158 (insert (string 184))
159) 159)
160 160
161(defun insert-superscript-one () 161(defun insert-superscript-one ()
162 (interactive "*") 162 (interactive "*")
163 (insert 185) 163 (insert (string 185))
164) 164)
165 165
166(defun insert-ordinal-indicator-masculine () 166(defun insert-ordinal-indicator-masculine ()
167 (interactive "*") 167 (interactive "*")
168 (insert 186) 168 (insert (string 186))
169) 169)
170 170
171(defun insert-angle-quotation-mark-right () 171(defun insert-angle-quotation-mark-right ()
172 (interactive "*") 172 (interactive "*")
173 (insert 187) 173 (insert (string 187))
174) 174)
175 175
176(defun insert-fraction-one-quarter () 176(defun insert-fraction-one-quarter ()
177 (interactive "*") 177 (interactive "*")
178 (insert 188) 178 (insert (string 188))
179) 179)
180 180
181(defun insert-fraction-one-half () 181(defun insert-fraction-one-half ()
182 (interactive "*") 182 (interactive "*")
183 (insert 189) 183 (insert (string 189))
184) 184)
185 185
186(defun insert-fraction-three-quarters () 186(defun insert-fraction-three-quarters ()
187 (interactive "*") 187 (interactive "*")
188 (insert 190) 188 (insert (string 190))
189) 189)
190 190
191(defun insert-inverted-question-mark () 191(defun insert-inverted-question-mark ()
192 (interactive "*") 192 (interactive "*")
193 (insert 191) 193 (insert (string 191))
194) 194)
195 195
196(defun insert-A-grave () 196(defun insert-A-grave ()
197 (interactive "*") 197 (interactive "*")
198 (insert 192) 198 (insert (string 192))
199) 199)
200 200
201(defun insert-A-acute () 201(defun insert-A-acute ()
202 (interactive "*") 202 (interactive "*")
203 (insert 193) 203 (insert (string 193))
204) 204)
205 205
206(defun insert-A-circumflex () 206(defun insert-A-circumflex ()
207 (interactive "*") 207 (interactive "*")
208 (insert 194) 208 (insert (string 194))
209) 209)
210 210
211(defun insert-A-tilde () 211(defun insert-A-tilde ()
212 (interactive "*") 212 (interactive "*")
213 (insert 195) 213 (insert (string 195))
214) 214)
215 215
216(defun insert-A-umlaut () 216(defun insert-A-umlaut ()
217 (interactive "*") 217 (interactive "*")
218 (insert 196) 218 (insert (string 196))
219) 219)
220 220
221(defun insert-A-ring () 221(defun insert-A-ring ()
222 (interactive "*") 222 (interactive "*")
223 (insert 197) 223 (insert (string 197))
224) 224)
225 225
226(defun insert-AE () 226(defun insert-AE ()
227 (interactive "*") 227 (interactive "*")
228 (insert 198) 228 (insert (string 198))
229) 229)
230 230
231(defun insert-C-cedilla () 231(defun insert-C-cedilla ()
232 (interactive "*") 232 (interactive "*")
233 (insert 199) 233 (insert (string 199))
234) 234)
235 235
236(defun insert-E-grave () 236(defun insert-E-grave ()
237 (interactive "*") 237 (interactive "*")
238 (insert 200) 238 (insert (string 200))
239) 239)
240 240
241(defun insert-E-acute () 241(defun insert-E-acute ()
242 (interactive "*") 242 (interactive "*")
243 (insert 201) 243 (insert (string 201))
244) 244)
245 245
246(defun insert-E-circumflex () 246(defun insert-E-circumflex ()
247 (interactive "*") 247 (interactive "*")
248 (insert 202) 248 (insert (string 202))
249) 249)
250 250
251(defun insert-E-umlaut () 251(defun insert-E-umlaut ()
252 (interactive "*") 252 (interactive "*")
253 (insert 203) 253 (insert (string 203))
254) 254)
255 255
256(defun insert-I-grave () 256(defun insert-I-grave ()
257 (interactive "*") 257 (interactive "*")
258 (insert 204) 258 (insert (string 204))
259) 259)
260 260
261(defun insert-I-acute () 261(defun insert-I-acute ()
262 (interactive "*") 262 (interactive "*")
263 (insert 205) 263 (insert (string 205))
264) 264)
265 265
266(defun insert-I-circumflex () 266(defun insert-I-circumflex ()
267 (interactive "*") 267 (interactive "*")
268 (insert 206) 268 (insert (string 206))
269) 269)
270 270
271(defun insert-I-umlaut () 271(defun insert-I-umlaut ()
272 (interactive "*") 272 (interactive "*")
273 (insert 207) 273 (insert (string 207))
274) 274)
275 275
276(defun insert-D-stroke () 276(defun insert-D-stroke ()
277 (interactive "*") 277 (interactive "*")
278 (insert 208) 278 (insert (string 208))
279) 279)
280 280
281(defun insert-N-tilde () 281(defun insert-N-tilde ()
282 (interactive "*") 282 (interactive "*")
283 (insert 209) 283 (insert (string 209))
284) 284)
285 285
286(defun insert-O-grave () 286(defun insert-O-grave ()
287 (interactive "*") 287 (interactive "*")
288 (insert 210) 288 (insert (string 210))
289) 289)
290 290
291(defun insert-O-acute () 291(defun insert-O-acute ()
292 (interactive "*") 292 (interactive "*")
293 (insert 211) 293 (insert (string 211))
294) 294)
295 295
296(defun insert-O-circumflex () 296(defun insert-O-circumflex ()
297 (interactive "*") 297 (interactive "*")
298 (insert 212) 298 (insert (string 212))
299) 299)
300 300
301(defun insert-O-tilde () 301(defun insert-O-tilde ()
302 (interactive "*") 302 (interactive "*")
303 (insert 213) 303 (insert (string 213))
304) 304)
305 305
306(defun insert-O-umlaut () 306(defun insert-O-umlaut ()
307 (interactive "*") 307 (interactive "*")
308 (insert 214) 308 (insert (string 214))
309) 309)
310 310
311(defun insert-multiplication-sign () 311(defun insert-multiplication-sign ()
312 (interactive "*") 312 (interactive "*")
313 (insert 215) 313 (insert (string 215))
314) 314)
315 315
316(defun insert-O-slash () 316(defun insert-O-slash ()
317 (interactive "*") 317 (interactive "*")
318 (insert 216) 318 (insert (string 216))
319) 319)
320 320
321(defun insert-U-grave () 321(defun insert-U-grave ()
322 (interactive "*") 322 (interactive "*")
323 (insert 217) 323 (insert (string 217))
324) 324)
325 325
326(defun insert-U-acute () 326(defun insert-U-acute ()
327 (interactive "*") 327 (interactive "*")
328 (insert 218) 328 (insert (string 218))
329) 329)
330 330
331(defun insert-U-circumflex () 331(defun insert-U-circumflex ()
332 (interactive "*") 332 (interactive "*")
333 (insert 219) 333 (insert (string 219))
334) 334)
335 335
336(defun insert-U-umlaut () 336(defun insert-U-umlaut ()
337 (interactive "*") 337 (interactive "*")
338 (insert 220) 338 (insert (string 220))
339) 339)
340 340
341(defun insert-Y-acute () 341(defun insert-Y-acute ()
342 (interactive "*") 342 (interactive "*")
343 (insert 221) 343 (insert (string 221))
344) 344)
345 345
346(defun insert-THORN () 346(defun insert-THORN ()
347 (interactive "*") 347 (interactive "*")
348 (insert 222) 348 (insert (string 222))
349) 349)
350 350
351(defun insert-ss () 351(defun insert-ss ()
352 (interactive "*") 352 (interactive "*")
353 (insert 223) 353 (insert (string 223))
354) 354)
355 355
356(defun insert-a-grave () 356(defun insert-a-grave ()
357 (interactive "*") 357 (interactive "*")
358 (insert 224) 358 (insert (string 224))
359) 359)
360 360
361(defun insert-a-acute () 361(defun insert-a-acute ()
362 (interactive "*") 362 (interactive "*")
363 (insert 225) 363 (insert (string 225))
364) 364)
365 365
366(defun insert-a-circumflex () 366(defun insert-a-circumflex ()
367 (interactive "*") 367 (interactive "*")
368 (insert 226) 368 (insert (string 226))
369) 369)
370 370
371(defun insert-a-tilde () 371(defun insert-a-tilde ()
372 (interactive "*") 372 (interactive "*")
373 (insert 227) 373 (insert (string 227))
374) 374)
375 375
376(defun insert-a-umlaut () 376(defun insert-a-umlaut ()
377 (interactive "*") 377 (interactive "*")
378 (insert 228) 378 (insert (string 228))
379) 379)
380 380
381(defun insert-a-ring () 381(defun insert-a-ring ()
382 (interactive "*") 382 (interactive "*")
383 (insert 229) 383 (insert (string 229))
384) 384)
385 385
386(defun insert-ae () 386(defun insert-ae ()
387 (interactive "*") 387 (interactive "*")
388 (insert 230) 388 (insert (string 230))
389) 389)
390 390
391(defun insert-c-cedilla () 391(defun insert-c-cedilla ()
392 (interactive "*") 392 (interactive "*")
393 (insert 231) 393 (insert (string 231))
394) 394)
395 395
396(defun insert-e-grave () 396(defun insert-e-grave ()
397 (interactive "*") 397 (interactive "*")
398 (insert 232) 398 (insert (string 232))
399) 399)
400 400
401(defun insert-e-acute () 401(defun insert-e-acute ()
402 (interactive "*") 402 (interactive "*")
403 (insert 233) 403 (insert (string 233))
404) 404)
405 405
406(defun insert-e-circumflex () 406(defun insert-e-circumflex ()
407 (interactive "*") 407 (interactive "*")
408 (insert 234) 408 (insert (string 234))
409) 409)
410 410
411(defun insert-e-umlaut () 411(defun insert-e-umlaut ()
412 (interactive "*") 412 (interactive "*")
413 (insert 235) 413 (insert (string 235))
414) 414)
415 415
416(defun insert-i-grave () 416(defun insert-i-grave ()
417 (interactive "*") 417 (interactive "*")
418 (insert 236) 418 (insert (string 236))
419) 419)
420 420
421(defun insert-i-acute () 421(defun insert-i-acute ()
422 (interactive "*") 422 (interactive "*")
423 (insert 237) 423 (insert (string 237))
424) 424)
425 425
426(defun insert-i-circumflex () 426(defun insert-i-circumflex ()
427 (interactive "*") 427 (interactive "*")
428 (insert 238) 428 (insert (string 238))
429) 429)
430 430
431(defun insert-i-umlaut () 431(defun insert-i-umlaut ()
432 (interactive "*") 432 (interactive "*")
433 (insert 239) 433 (insert (string 239))
434) 434)
435 435
436(defun insert-d-stroke () 436(defun insert-d-stroke ()
437 (interactive "*") 437 (interactive "*")
438 (insert 240) 438 (insert (string 240))
439) 439)
440 440
441(defun insert-n-tilde () 441(defun insert-n-tilde ()
442 (interactive "*") 442 (interactive "*")
443 (insert 241) 443 (insert (string 241))
444) 444)
445 445
446(defun insert-o-grave () 446(defun insert-o-grave ()
447 (interactive "*") 447 (interactive "*")
448 (insert 242) 448 (insert (string 242))
449) 449)
450 450
451(defun insert-o-acute () 451(defun insert-o-acute ()
452 (interactive "*") 452 (interactive "*")
453 (insert 243) 453 (insert (string 243))
454) 454)
455 455
456(defun insert-o-circumflex () 456(defun insert-o-circumflex ()
457 (interactive "*") 457 (interactive "*")
458 (insert 244) 458 (insert (string 244))
459) 459)
460 460
461(defun insert-o-tilde () 461(defun insert-o-tilde ()
462 (interactive "*") 462 (interactive "*")
463 (insert 245) 463 (insert (string 245))
464) 464)
465 465
466(defun insert-o-umlaut () 466(defun insert-o-umlaut ()
467 (interactive "*") 467 (interactive "*")
468 (insert 246) 468 (insert (string 246))
469) 469)
470 470
471(defun insert-division-sign () 471(defun insert-division-sign ()
472 (interactive "*") 472 (interactive "*")
473 (insert 247) 473 (insert (string 247))
474) 474)
475 475
476(defun insert-o-slash () 476(defun insert-o-slash ()
477 (interactive "*") 477 (interactive "*")
478 (insert 248) 478 (insert (string 248))
479) 479)
480 480
481(defun insert-u-grave () 481(defun insert-u-grave ()
482 (interactive "*") 482 (interactive "*")
483 (insert 249) 483 (insert (string 249))
484) 484)
485 485
486(defun insert-u-acute () 486(defun insert-u-acute ()
487 (interactive "*") 487 (interactive "*")
488 (insert 250) 488 (insert (string 250))
489) 489)
490 490
491(defun insert-u-circumflex () 491(defun insert-u-circumflex ()
492 (interactive "*") 492 (interactive "*")
493 (insert 251) 493 (insert (string 251))
494) 494)
495 495
496(defun insert-u-umlaut () 496(defun insert-u-umlaut ()
497 (interactive "*") 497 (interactive "*")
498 (insert 252) 498 (insert (string 252))
499) 499)
500 500
501(defun insert-y-acute () 501(defun insert-y-acute ()
502 (interactive "*") 502 (interactive "*")
503 (insert 253) 503 (insert (string 253))
504) 504)
505 505
506(defun insert-thorn () 506(defun insert-thorn ()
507 (interactive "*") 507 (interactive "*")
508 (insert 254) 508 (insert (string 254))
509) 509)
510 510
511(defun insert-y-umlaut () 511(defun insert-y-umlaut ()
512 (interactive "*") 512 (interactive "*")
513 (insert 255) 513 (insert (string 255))
514) 514)
515 515
516(defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.") 516(defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.")