diff options
| author | Karl Heuer | 1998-09-04 20:46:30 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-09-04 20:46:30 +0000 |
| commit | 85c92c4050da1dc1dd0497b2841ac5437d775857 (patch) | |
| tree | 6fe5043d628b1f1342be1c3c11fca50eeeeee402 | |
| parent | 0b2bb4d096f59f7a0f99a3c68510b51f0a72a52c (diff) | |
| download | emacs-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.el | 192 |
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.") |