Mercurial > hg > xemacs-beta
comparison lisp/x11/x-compose.el @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:21:54 +0200 |
| parents | 1ce6082ce73f |
| children | 43dd3413c7c7 |
comparison
equal
deleted
inserted
replaced
| 113:2ec2fe4a4c89 | 114:8619ce7e4c50 |
|---|---|
| 267 | 267 |
| 268 ;;; The contents of the "dead key" maps. These are shared by the | 268 ;;; The contents of the "dead key" maps. These are shared by the |
| 269 ;;; compose-map. | 269 ;;; compose-map. |
| 270 | 270 |
| 271 (set-keymap-name compose-acute-map 'compose-acute-map) | 271 (set-keymap-name compose-acute-map 'compose-acute-map) |
| 272 (set-keymap-default-binding compose-acute-map 'self-insert-command) | |
| 272 (define-key compose-acute-map " " "'") | 273 (define-key compose-acute-map " " "'") |
| 273 (define-key compose-acute-map "'" [acute]) | 274 (define-key compose-acute-map "'" [acute]) |
| 274 (define-key compose-acute-map "A" [Aacute]) | 275 (define-key compose-acute-map "A" [Aacute]) |
| 275 (define-key compose-acute-map "E" [Eacute]) | 276 (define-key compose-acute-map "E" [Eacute]) |
| 276 (define-key compose-acute-map "I" [Iacute]) | 277 (define-key compose-acute-map "I" [Iacute]) |
| 283 (define-key compose-acute-map "o" [oacute]) | 284 (define-key compose-acute-map "o" [oacute]) |
| 284 (define-key compose-acute-map "u" [uacute]) | 285 (define-key compose-acute-map "u" [uacute]) |
| 285 (define-key compose-acute-map "y" [yacute]) | 286 (define-key compose-acute-map "y" [yacute]) |
| 286 | 287 |
| 287 (set-keymap-name compose-grave-map 'compose-grave-map) | 288 (set-keymap-name compose-grave-map 'compose-grave-map) |
| 289 (set-keymap-default-binding compose-grave-map 'self-insert-command) | |
| 288 (define-key compose-grave-map " " [grave]) | 290 (define-key compose-grave-map " " [grave]) |
| 289 (define-key compose-grave-map "A" [Agrave]) | 291 (define-key compose-grave-map "A" [Agrave]) |
| 290 (define-key compose-grave-map "E" [Egrave]) | 292 (define-key compose-grave-map "E" [Egrave]) |
| 291 (define-key compose-grave-map "I" [Igrave]) | 293 (define-key compose-grave-map "I" [Igrave]) |
| 292 (define-key compose-grave-map "O" [Ograve]) | 294 (define-key compose-grave-map "O" [Ograve]) |
| 296 (define-key compose-grave-map "i" [igrave]) | 298 (define-key compose-grave-map "i" [igrave]) |
| 297 (define-key compose-grave-map "o" [ograve]) | 299 (define-key compose-grave-map "o" [ograve]) |
| 298 (define-key compose-grave-map "u" [ugrave]) | 300 (define-key compose-grave-map "u" [ugrave]) |
| 299 | 301 |
| 300 (set-keymap-name compose-cedilla-map 'compose-cedilla-map) | 302 (set-keymap-name compose-cedilla-map 'compose-cedilla-map) |
| 303 (set-keymap-default-binding compose-cedilla-map 'self-insert-command) | |
| 301 (define-key compose-cedilla-map "," [cedilla]) | 304 (define-key compose-cedilla-map "," [cedilla]) |
| 302 (define-key compose-cedilla-map "C" [Ccedilla]) | 305 (define-key compose-cedilla-map "C" [Ccedilla]) |
| 303 (define-key compose-cedilla-map "c" [ccedilla]) | 306 (define-key compose-cedilla-map "c" [ccedilla]) |
| 304 | 307 |
| 305 (set-keymap-name compose-diaeresis-map 'compose-diaeresis-map) | 308 (set-keymap-name compose-diaeresis-map 'compose-diaeresis-map) |
| 309 (set-keymap-default-binding compose-diaeresis-map 'self-insert-command) | |
| 306 (define-key compose-diaeresis-map " " [diaeresis]) | 310 (define-key compose-diaeresis-map " " [diaeresis]) |
| 307 (define-key compose-diaeresis-map "\"" [diaeresis]) | 311 (define-key compose-diaeresis-map "\"" [diaeresis]) |
| 308 (define-key compose-diaeresis-map "A" [Adiaeresis]) | 312 (define-key compose-diaeresis-map "A" [Adiaeresis]) |
| 309 (define-key compose-diaeresis-map "E" [Ediaeresis]) | 313 (define-key compose-diaeresis-map "E" [Ediaeresis]) |
| 310 (define-key compose-diaeresis-map "I" [Idiaeresis]) | 314 (define-key compose-diaeresis-map "I" [Idiaeresis]) |
| 316 (define-key compose-diaeresis-map "o" [odiaeresis]) | 320 (define-key compose-diaeresis-map "o" [odiaeresis]) |
| 317 (define-key compose-diaeresis-map "u" [udiaeresis]) | 321 (define-key compose-diaeresis-map "u" [udiaeresis]) |
| 318 (define-key compose-diaeresis-map "y" [ydiaeresis]) | 322 (define-key compose-diaeresis-map "y" [ydiaeresis]) |
| 319 | 323 |
| 320 (set-keymap-name compose-circumflex-map 'compose-circumflex-map) | 324 (set-keymap-name compose-circumflex-map 'compose-circumflex-map) |
| 325 (set-keymap-default-binding compose-circumflex-map 'self-insert-command) | |
| 321 (define-key compose-circumflex-map " " "^") | 326 (define-key compose-circumflex-map " " "^") |
| 322 (define-key compose-circumflex-map "/" "|") | 327 (define-key compose-circumflex-map "/" "|") |
| 323 (define-key compose-circumflex-map "!" [brokenbar]) | 328 (define-key compose-circumflex-map "!" [brokenbar]) |
| 324 (define-key compose-circumflex-map "-" [macron]) | 329 (define-key compose-circumflex-map "-" [macron]) |
| 325 (define-key compose-circumflex-map "_" [macron]) | 330 (define-key compose-circumflex-map "_" [macron]) |
| 338 (define-key compose-circumflex-map "i" [icircumflex]) | 343 (define-key compose-circumflex-map "i" [icircumflex]) |
| 339 (define-key compose-circumflex-map "o" [ocircumflex]) | 344 (define-key compose-circumflex-map "o" [ocircumflex]) |
| 340 (define-key compose-circumflex-map "u" [ucircumflex]) | 345 (define-key compose-circumflex-map "u" [ucircumflex]) |
| 341 | 346 |
| 342 (set-keymap-name compose-tilde-map 'compose-tilde-map) | 347 (set-keymap-name compose-tilde-map 'compose-tilde-map) |
| 348 (set-keymap-default-binding compose-tilde-map 'self-insert-command) | |
| 343 (define-key compose-tilde-map " " "~") | 349 (define-key compose-tilde-map " " "~") |
| 344 (define-key compose-tilde-map "A" [Atilde]) | 350 (define-key compose-tilde-map "A" [Atilde]) |
| 345 (define-key compose-tilde-map "N" [Ntilde]) | 351 (define-key compose-tilde-map "N" [Ntilde]) |
| 346 (define-key compose-tilde-map "O" [Otilde]) | 352 (define-key compose-tilde-map "O" [Otilde]) |
| 347 (define-key compose-tilde-map "a" [atilde]) | 353 (define-key compose-tilde-map "a" [atilde]) |
| 348 (define-key compose-tilde-map "n" [ntilde]) | 354 (define-key compose-tilde-map "n" [ntilde]) |
| 349 (define-key compose-tilde-map "o" [otilde]) | 355 (define-key compose-tilde-map "o" [otilde]) |
| 350 | 356 |
| 351 (set-keymap-name compose-ring-map 'compose-ring-map) | 357 (set-keymap-name compose-ring-map 'compose-ring-map) |
| 358 (set-keymap-default-binding compose-ring-map 'self-insert-command) | |
| 352 (define-key compose-ring-map " " [degree]) | 359 (define-key compose-ring-map " " [degree]) |
| 353 (define-key compose-ring-map "A" [Aring]) | 360 (define-key compose-ring-map "A" [Aring]) |
| 354 (define-key compose-ring-map "a" [aring]) | 361 (define-key compose-ring-map "a" [aring]) |
| 355 | 362 |
| 356 | 363 |
| 357 ;;; The rest of the compose-map. These are the composed characters | 364 ;;; The rest of the compose-map. These are the composed characters |
| 358 ;;; that are not accessible via "dead" keys. | 365 ;;; that are not accessible via "dead" keys. |
| 359 | 366 |
| 360 (set-keymap-name compose-map 'compose-map) | 367 (set-keymap-name compose-map 'compose-map) |
| 368 (set-keymap-default-binding compose-map 'self-insert-command) | |
| 361 (define-key compose-map " '" "'") | 369 (define-key compose-map " '" "'") |
| 362 (define-key compose-map " ^" "^") | 370 (define-key compose-map " ^" "^") |
| 363 (define-key compose-map " `" "`") | 371 (define-key compose-map " `" "`") |
| 364 (define-key compose-map " ~" "~") | 372 (define-key compose-map " ~" "~") |
| 365 (define-key compose-map " " [nobreakspace]) | 373 (define-key compose-map " " [nobreakspace]) |