Mercurial > hg > xemacs-beta

comparison lisp/x-win-xfree86.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
36 ;;; When we've implemented a fallback-style equivalent of 36 ;;; When we've implemented a fallback-style equivalent of
37 ;;; keyboard-translate-table, we'll use that instead. (mrb) 37 ;;; keyboard-translate-table, we'll use that instead. (mrb)
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
42 (defun x-win-init-xfree86 ()
41 43
42 (loop for (x-key key sane-key) in 44 (loop for (x-key key sane-key) in
43 '(("F13" f13 f1) 45 '(("F13" f13 f1)
44 ("F14" f14 f2) 46 ("F14" f14 f2)
45 ("F15" f15 f3) 47 ("F15" f15 f3)
84 ;; (let ((k1 (vector (append (car mods) foo))) 86 ;; (let ((k1 (vector (append (car mods) foo)))
85 ;; (k2 (vector (append (car mods) bar)))) 87 ;; (k2 (vector (append (car mods) bar))))
86 ;; (define-key global-map k1 k2)) 88 ;; (define-key global-map k1 k2))
87 ;; (setq mods (cdr mods)))) 89 ;; (setq mods (cdr mods))))
88 ;; (setq mapping (cdr mapping))))) 90 ;; (setq mapping (cdr mapping)))))
91 )
92
93 ;;; x-win-xfree86.el ends here