Mercurial > hg > xemacs-beta
diff lisp/x-win-xfree86.el @ 229:434959a2fba3 r20-5b13
Import from CVS: tag r20-5b13
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:13:02 +0200 |
parents | 41ff10fd062f |
children | 157b30c96d03 |
line wrap: on
line diff
--- a/lisp/x-win-xfree86.el Mon Aug 13 10:12:39 2007 +0200 +++ b/lisp/x-win-xfree86.el Mon Aug 13 10:13:02 2007 +0200 @@ -39,6 +39,8 @@ ;; For no obvious reason, shift-F1 is called F13, although Meta-F1 and ;; Control-F1 have normal names. +(defun x-win-init-xfree86 () + (loop for (x-key key sane-key) in '(("F13" f13 f1) ("F14" f14 f2) @@ -86,3 +88,6 @@ ;; (define-key global-map k1 k2)) ;; (setq mods (cdr mods)))) ;; (setq mapping (cdr mapping))))) +) + +;;; x-win-xfree86.el ends here