Mercurial > hg > xemacs-beta
comparison lisp/x-init.el @ 5260:dceee3855f15
Add support for the X11 dead-stroke in x-compose.el.
2010-09-05 Aidan Kehoe <kehoea@parhasard.net>
* x-compose.el (define-compose-map, compose-map)
(decide-on-bindings): Support the precomposed characters with
stroke here too, necessary for Polish and Danish, among others.
* x-init.el (x-initialize-compose): Add the appropriate map
autoloads and bindings here.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 05 Sep 2010 20:31:05 +0100 |
| parents | fdc76fec36d3 |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 5259:02c282ae97cb | 5260:dceee3855f15 |
|---|---|
| 90 compose-cedilla-map compose-diaeresis-map | 90 compose-cedilla-map compose-diaeresis-map |
| 91 compose-circumflex-map compose-tilde-map | 91 compose-circumflex-map compose-tilde-map |
| 92 compose-ring-map compose-caron-map compose-macron-map | 92 compose-ring-map compose-caron-map compose-macron-map |
| 93 compose-breve-map compose-dot-map | 93 compose-breve-map compose-dot-map |
| 94 compose-doubleacute-map compose-ogonek-map | 94 compose-doubleacute-map compose-ogonek-map |
| 95 compose-hook-map compose-horn-map) | 95 compose-hook-map compose-horn-map compose-stroke-map) |
| 96 do (autoload map "x-compose" nil t 'keymap)) | 96 do (autoload map "x-compose" nil t 'keymap)) |
| 97 | 97 |
| 98 (loop | 98 (loop |
| 99 for (key map) | 99 for (key map) |
| 100 ;; The dead keys might really be called just about anything, depending | 100 ;; The dead keys might really be called just about anything, depending |
| 206 (dead-breve compose-breve-map) | 206 (dead-breve compose-breve-map) |
| 207 (dead-abovedot compose-dot-map) | 207 (dead-abovedot compose-dot-map) |
| 208 (dead-doubleacute compose-doubleacute-map) | 208 (dead-doubleacute compose-doubleacute-map) |
| 209 (dead-ogonek compose-ogonek-map) | 209 (dead-ogonek compose-ogonek-map) |
| 210 (dead-hook compose-hook-map) | 210 (dead-hook compose-hook-map) |
| 211 (dead-horn compose-horn-map)) | 211 (dead-horn compose-horn-map) |
| 212 (dead-stroke compose-stroke-map)) | |
| 212 | 213 |
| 213 ;; Get the correct value for function-key-map | 214 ;; Get the correct value for function-key-map |
| 214 with function-key-map = (symbol-value-in-console 'function-key-map | 215 with function-key-map = (symbol-value-in-console 'function-key-map |
| 215 (device-console device) | 216 (device-console device) |
| 216 function-key-map) | 217 function-key-map) |