Mercurial > hg > xemacs-beta

comparison lisp/x11/x-win-sun.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents b405438285a2
children f53b5ca2e663
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
154 '(("F35" f35 kp-next)))) 154 '(("F35" f35 kp-next))))
155 155
156 ,@(cond ((x-keysym-on-keyboard-sans-modifiers-p "apRead") ; SunOS 4.1.1 156 ,@(cond ((x-keysym-on-keyboard-sans-modifiers-p "apRead") ; SunOS 4.1.1
157 '(("apRead" apRead f11) ("apEdit" apEdit f12))) 157 '(("apRead" apRead f11) ("apEdit" apEdit f12)))
158 ((x-keysym-on-keyboard-sans-modifiers-p "SunF36") ; SunOS 5 158 ((x-keysym-on-keyboard-sans-modifiers-p "SunF36") ; SunOS 5
159 '(("SunF36" SunF36 f11) ("SunF37" SunF37 f12)))) 159 '(("SunF36" SunF36 f11)
160 ("SunF37" SunF37 f12)
161 ("F11" f11 stop)
162 ("F12" f12 again))))
160 ) 163 )
161 do (when (x-keysym-on-keyboard-sans-modifiers-p x-name) 164 do (when (x-keysym-on-keyboard-sans-modifiers-p x-name)
162 (x-remap-keysyms-using-function-key-map from-key to-key))) 165 (x-remap-keysyms-using-function-key-map from-key to-key)))
163 166
164 (unintern 'x-remap-keysyms-using-function-key-map) 167 (unintern 'x-remap-keysyms-using-function-key-map)