Mercurial > hg > xemacs-beta

comparison lisp/x-win-sun.el @ 4482:e3ef34f57070

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
4481:f9c70d94f427 4482:e3ef34f57070
154 '((SunF36 f11) 154 '((SunF36 f11)
155 (SunF37 f12) 155 (SunF37 f12)
156 (f11 stop) 156 (f11 stop)
157 (f12 again)))) 157 (f12 again))))
158 ) 158 )
159 ;; Get the correct value for function-key-map
160 with function-key-map = (symbol-value-in-console 'function-key-map
161 (device-console device)
162 function-key-map)
159 do (when (x-keysym-on-keyboard-sans-modifiers-p from-key device) 163 do (when (x-keysym-on-keyboard-sans-modifiers-p from-key device)
160 (dolist (prefix '(() (shift) (control) (meta) (alt) 164 (dolist (prefix '(() (shift) (control) (meta) (alt)
161 (shift control) (shift alt) (shift meta) 165 (shift control) (shift alt) (shift meta)
162 (control alt) (control meta) (alt meta) 166 (control alt) (control meta) (alt meta)
163 (shift control alt) (shift control meta) 167 (shift control alt) (shift control meta)