Mercurial > hg > xemacs-beta
diff lisp/x-win-sun.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 | 91b3aa59f49b |
line wrap: on
line diff
--- a/lisp/x-win-sun.el Sun Jul 20 15:04:20 2008 +0200 +++ b/lisp/x-win-sun.el Sat Jul 26 09:37:08 2008 +0200 @@ -156,6 +156,10 @@ (f11 stop) (f12 again)))) ) + ;; 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 (x-keysym-on-keyboard-sans-modifiers-p from-key device) (dolist (prefix '(() (shift) (control) (meta) (alt) (shift control) (shift alt) (shift meta)