- (defun x-remap-keysyms-using-function-key-map (from-key to-key)
- (dolist (prefix '(() (shift) (control) (meta) (alt)
- (shift control) (shift alt) (shift meta)
- (control alt) (control meta) (alt meta)
- (shift control alt) (shift control meta)
- (shift alt meta) (control alt meta)
- (shift control alt meta)))
- (define-key function-key-map
- (append prefix (list from-key))
- (vector (append prefix (list to-key))))))
-