Mercurial > hg > xemacs-beta

comparison lisp/x-win-xfree86.el @ 428:3ecd8885ac67 r21-2-22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-22
author cvs
date Mon, 13 Aug 2007 11:28:15 +0200
parents
children 7039e6323819
comparison
equal deleted inserted replaced
427:0a0253eac470 428:3ecd8885ac67
1 ;;; x-win-xfree86.el --- runtime initialization for XFree86 servers
2 ;; Copyright (C) 1995 Sun Microsystems, Inc.
3 ;; Copyright (C) 1995 Ben Wing.
4
5 ;; Author: Ben Wing
6 ;; Author: Martin Buchholz (rewritten to use function-key-map)
7 ;; Keywords: terminals
8
9 ;; This file is part of XEmacs.
10
11 ;; XEmacs is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; XEmacs is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
25
26 ;;; Commentary:
27
28 ;; This file is loaded by x-win.el at run-time when we are sure that XEmacs
29 ;; is running on the display of something running XFree86 (Linux,
30 ;; NetBSD, FreeBSD, and perhaps other Intel Unixen).
31
32 ;;; #### bleck!!! Use key-translation-map!
33
34 ;;; #### Counter-bleck!! We shouldn't override a user binding for F13.
35 ;;; So we use function-key-map for now.
36 ;;; When we've implemented a fallback-style equivalent of
37 ;;; keyboard-translate-table, we'll use that instead. (martin)
38
39 ;; For no obvious reason, shift-F1 is called F13, although Meta-F1 and
40 ;; Control-F1 have normal names.
41
42 ;;;###autoload
43 (defun x-win-init-xfree86 ()
44 (loop for (key sane-key) in
45 '((f13 f1)
46 (f14 f2)
47 (f15 f3)
48 (f16 f4)
49 (f17 f5)
50 (f18 f6)
51 (f19 f7)
52 (f20 f8)
53 (f21 f9)
54 (f22 f10)
55 (f23 f11)
56 (f24 f12))
57 do
58 (when (and (x-keysym-on-keyboard-p key)
59 (not (x-keysym-on-keyboard-sans-modifiers-p key)))
60 ;; define also the control, meta, and meta-control versions.
61 (loop for mods in '(() (control) (meta) (meta control)) do
62 (define-key function-key-map `[(,@mods ,key)] `[(shift ,@mods ,sane-key)])
63 ))))
64
65 ;;; x-win-xfree86.el ends here