Mercurial > hg > xemacs-beta

comparison lisp/x-win-sun.el @ 229:434959a2fba3 r20-5b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b13
author cvs
date Mon, 13 Aug 2007 10:13:02 +0200
parents 41ff10fd062f
children 157b30c96d03
comparison
equal deleted inserted replaced
228:654d0f3a6a9b 229:434959a2fba3
61 ;; We use function-key-map, which honors explicit key-bindings for the 61 ;; We use function-key-map, which honors explicit key-bindings for the
62 ;; stupid Sun names, but also allows indirection if no explicit 62 ;; stupid Sun names, but also allows indirection if no explicit
63 ;; key-binding exists. 63 ;; key-binding exists.
64 64
65 ;;; Code: 65 ;;; Code:
66
67 (defun x-win-init-sun ()
66 68
67 (defun x-remap-keysyms-using-function-key-map (from-key to-key) 69 (defun x-remap-keysyms-using-function-key-map (from-key to-key)
68 (dolist (prefix '(() (shift) (control) (meta) (alt) 70 (dolist (prefix '(() (shift) (control) (meta) (alt)
69 (shift control) (shift alt) (shift meta) 71 (shift control) (shift alt) (shift meta)
70 (control alt) (control meta) (alt meta) 72 (control alt) (control meta) (alt meta)
249 ;;; not running on a Sun display.) 251 ;;; not running on a Sun display.)
250 252
251 (define-key global-map 'find 'ow-find) 253 (define-key global-map 'find 'ow-find)
252 (define-key global-map '(shift find) 'ow-find-backward) 254 (define-key global-map '(shift find) 'ow-find-backward)
253 255
256 )
257
254 ;;; x-win-sun.el ends here 258 ;;; x-win-sun.el ends here