cgit.sxemacs.org Git - sxemacs/blob - lisp/x-win-xfree86.el

   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 SXEmacs.
  10
  11 ;; SXEmacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; SXEmacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;; This file is loaded by x-win.el at run-time when we are sure that XEmacs
  27 ;; is running on the display of something running XFree86 (Linux,
  28 ;; NetBSD, FreeBSD, and perhaps other Intel Unixen).
  29
  30 ;;; #### bleck!!! Use key-translation-map!
  31
  32 ;;; #### Counter-bleck!! We shouldn't override a user binding for F13.
  33 ;;; So we use function-key-map for now.
  34 ;;; When we've implemented a fallback-style equivalent of
  35 ;;; keyboard-translate-table, we'll use that instead. (martin)
  36
  37 ;; For no obvious reason, shift-F1 is called F13, although Meta-F1 and
  38 ;; Control-F1 have normal names.
  39
  40 ;;;###autoload
  41 (defun x-win-init-xfree86 ()
  42   (loop for (key sane-key) in
  43     '((f13 f1)
  44       (f14 f2)
  45       (f15 f3)
  46       (f16 f4)
  47       (f17 f5)
  48       (f18 f6)
  49       (f19 f7)
  50       (f20 f8)
  51       (f21 f9)
  52       (f22 f10)
  53       (f23 f11)
  54       (f24 f12))
  55     do
  56     (when (and (x-keysym-on-keyboard-p key)
  57                (not (x-keysym-on-keyboard-sans-modifiers-p key)))
  58       ;; define also the control, meta, and meta-control versions.
  59       (loop for mods in '(() (control) (meta) (meta control)) do
  60         (define-key function-key-map `[(,@mods ,key)] `[(shift ,@mods ,sane-key)])
  61         ))))
  62
  63 ;;; x-win-xfree86.el ends here