comparison lisp/x-win-xfree86.el @ 380:8626e4521993 r21-2-5

Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 157b30c96d03
children
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
37 ;;; keyboard-translate-table, we'll use that instead. (martin) 37 ;;; keyboard-translate-table, we'll use that instead. (martin)
38 38
39 ;; For no obvious reason, shift-F1 is called F13, although Meta-F1 and 39 ;; For no obvious reason, shift-F1 is called F13, although Meta-F1 and
40 ;; Control-F1 have normal names. 40 ;; Control-F1 have normal names.
41 41
42 ;;;###autoload
42 (defun x-win-init-xfree86 () 43 (defun x-win-init-xfree86 ()
43 (loop for (key sane-key) in 44 (loop for (key sane-key) in
44 '((f13 f1) 45 '((f13 f1)
45 (f14 f2) 46 (f14 f2)
46 (f15 f3) 47 (f15 f3)