git.chise.org Git - chise/xemacs-chise.git.1/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 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