Mercurial > hg > xemacs-beta
diff lisp/x-win-xfree86.el @ 4482:e3ef34f57070
Bind function-key-map correctly in device-specific startup code.
2008-07-26 Aidan Kehoe <kehoea@parhasard.net>
* x-init.el (x-initialize-compose):
Rewrite to use #'loop, as does similar code in x-win-sun.el,
x-win-xfree86.el. Locally bind function-key-map to the correct
value for the device's console.
* x-win-xfree86.el (x-win-init-xfree86):
Locally bind function-key-map to the correct value for the
device's console.
* x-win-sun.el (x-win-init-sun):
Locally bind function-key-map to the correct value for the
device's console.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 26 Jul 2008 09:37:08 +0200 |
| parents | e34711681f30 |
| children | 17fe69fff7fa |
line wrap: on
line diff
--- a/lisp/x-win-xfree86.el Sun Jul 20 15:04:20 2008 +0200 +++ b/lisp/x-win-xfree86.el Sat Jul 26 09:37:08 2008 +0200 @@ -90,6 +90,11 @@ (f22 f10) (f23 f11) (f24 f12)) + ;; Get the correct value for function-key-map + with function-key-map = (symbol-value-in-console 'function-key-map + (device-console device) + function-key-map) + do (when (and (x-keysym-on-keyboard-p key device) (not (x-keysym-on-keyboard-sans-modifiers-p key device)))