xemacs-beta: lisp/gtk-init.el annotate

annotate lisp/gtk-init.el @ 5406:061f4f90f874

Convert lib-src/ to GPLv3.

author	Mike Sperber <sperber@deinprogramm.de>
date	Mon, 18 Oct 2010 14:02:19 +0200
parents	308d34e9f07d
children	3d1f8f0e690f

rev	line source
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	1 ;;; gtk-init.el --- initialization code for mswindows
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	2 ;; Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc.
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	3 ;; Copyright (C) 1995 Board of Trustees, University of Illinois.
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	4 ;; Copyright (C) 1995, 1996 Ben Wing.
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	5
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	6 ;; Author: various
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	7 ;; Rewritten for Gtk by: William Perry
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	8
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	9 ;; This file is part of XEmacs.
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	10
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	11 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	12 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	13 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	14 ;; option) any later version.
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	15
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	16 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	18 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	19 ;; for more details.
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	20
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	21 ;; You should have received a copy of the GNU General Public License
5402 308d34e9f07d Changed bulk of GPLv2 or later files identified by script Mats Lidell <matsl@xemacs.org> parents: 4477 diff changeset	22 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	23
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	24 (globally-declare-boundp
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	25 '(gtk-initial-argv-list gtk-initial-geometry))
506 39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben] ben parents: 502 diff changeset	26
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben] ben parents: 502 diff changeset	27 (globally-declare-fboundp
39ccc7dd8077 [xemacs-hg @ 2001-05-05 08:39:59 by ben] ben parents: 502 diff changeset	28 '(gtk-keysym-on-keyboard-p))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	29
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	30 (defvar gtk-early-lisp-options-file "~/.xemacs/gtk-options.el"
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	31 "Path where GTK-specific early options should be stored.
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	32
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	33 This allows the user to set initial geometry without using GNOME and session
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	34 management, and, since it is read before GTK is initialized, it avoids
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	35 window flicker on resizing.
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	36
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	37 It is normally not useful to change without recompiling XEmacs.")
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	38
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	39 (defvar gtk-command-switch-alist
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	40 '(
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	41 ;; GNOME Options
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	42 ("--disable-sound" . nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	43 ("--enable-sound" . nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	44 ("--espeaker" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	45
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	46 ;; GTK Options
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	47 ("--gdk-debug" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	48 ("--gdk-no-debug" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	49 ("--display" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	50 ("--sync" . nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	51 ("--no-xshm" . nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	52 ("--name" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	53 ("--class" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	54 ("--gxid_host" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	55 ("--gxid_port" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	56 ("--xim-preedit" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	57 ("--xim-status" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	58 ("--gtk-debug" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	59 ("--gtk-no-debug" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	60 ("--gtk-module" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	61
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	62 ;; Glib options
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	63 ("--g-fatal-warnings" . nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	64
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	65 ;; Session management options
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	66 ("--sm-client-id" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	67 ("--sm-config-prefix" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	68 ("--sm-disable" . t)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	69 )
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	70
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	71 "An assoc list of command line args that should be in gtk-initial-argv-list.
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	72 This is necessary because GTK and GNOME consider it a fatal error if they
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	73 receive unknown command line arguments (perfectly reasonable). But this
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	74 means that if the user specifies a file name on the command line they will
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	75 be unable to start. So we filter the command line and allow only items in
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	76 this list in.
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	77
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	78 The CDR of the assoc list is whether it accepts an argument. For the
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	79 moment, all options are in GNU long form.")
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	80
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	81 (defvar make-device-early-gtk-entry-point-called-p nil
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	82 "Whether `make-device-early-gtk-entry-point' has been called, at least once.
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	83
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	84 Much of the GTK-specific Lisp init code should only be called the first time
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	85 a GTK device is created; this variable allows for that.")
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	86
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	87 (defvar make-device-late-gtk-entry-point-called-p nil
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	88 "Whether `make-device-late-gtk-entry-point' has been called, at least once.
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	89
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	90 Much of the GTK-specific Lisp init code should only be called the first time
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	91 a GTK device is created; this variable allows for that.")
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	92
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	93 (defun make-device-early-gtk-entry-point ()
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	94 "Entry point to set up the Lisp environment before GTK device creation."
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	95 (unless make-device-early-gtk-entry-point-called-p
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	96 (setq initial-frame-plist
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	97 (and initial-frame-unmapped-p '(initially-unmapped t))
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	98 gtk-initial-argv-list
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	99 (cons (car command-line-args) (gtk-filter-arguments))
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	100 gtk-initial-geometry
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	101 (nth 1 (member "-geometry" command-line-args-left))
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	102 make-device-early-gtk-entry-point-called-p t)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	103 (unless vanilla-inhibiting
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	104 (load gtk-early-lisp-options-file t t t))))
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	105
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	106 (defun gtk-init-handle-geometry (arg)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	107 "Set up initial geometry info for GTK devices."
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	108 (setq gtk-initial-geometry (pop command-line-args-left)))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	109
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	110 (defun make-device-late-gtk-entry-point (device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	111 "Entry-Point to do any Lisp-level GTK device-specific initialization."
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	112 (gtk-initialize-compose device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	113 (unless make-device-late-gtk-entry-point-called-p
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	114 (setq make-device-late-gtk-entry-point-called-p t)))
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	115
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	116 (defun gtk-filter-arguments ()
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	117 (let ((accepted nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	118 (rejected nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	119 (todo nil))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	120 (setq todo (mapcar (lambda (argdesc)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	121 (if (cdr argdesc)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	122 ;; Need to look for --foo=bar
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	123 (concat "^" (car argdesc) "=")
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	124 ;; Just a simple arg
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	125 (concat "^" (regexp-quote (car argdesc)) "$")))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	126 gtk-command-switch-alist))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	127
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	128 (while command-line-args-left
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	129 (if (catch 'found
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	130 (mapc (lambda (r)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	131 (if (string-match r (car command-line-args-left))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	132 (throw 'found t))) todo)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	133 (mapc (lambda (argdesc)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	134 (if (cdr argdesc)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	135 ;; This time we only care about argument items
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	136 ;; that take an argument. We'll check to see if
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	137 ;; someone used --foo bar instead of --foo=bar
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	138 (if (string-match (concat "^" (car argdesc) "$") (car command-line-args-left))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	139 ;; Yup! Need to push
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	140 (progn
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	141 (push (pop command-line-args-left) accepted)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	142 (throw 'found t)))))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	143 gtk-command-switch-alist)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	144 nil)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	145 (push (pop command-line-args-left) accepted)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	146 (push (pop command-line-args-left) rejected)))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	147 (setq command-line-args-left (nreverse rejected))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	148 (nreverse accepted)))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	149
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	150 (push '("-geometry" . gtk-init-handle-geometry) command-switch-alist)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	151
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	152 ;;; Stuff to get compose keys working on GTK
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	153 (eval-when-compile
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	154 (defmacro gtk-define-dead-key (key map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	155 `(when (gtk-keysym-on-keyboard-p ',key device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	156 (define-key function-key-map [,key] ',map))))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	157
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	158 (defun gtk-initialize-compose (device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	159 "Enable compose processing"
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	160 (autoload 'compose-map "gtk-compose" nil t 'keymap)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	161 (autoload 'compose-acute-map "gtk-compose" nil t 'keymap)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	162 (autoload 'compose-grave-map "gtk-compose" nil t 'keymap)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	163 (autoload 'compose-cedilla-map "gtk-compose" nil t 'keymap)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	164 (autoload 'compose-diaeresis-map "gtk-compose" nil t 'keymap)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	165 (autoload 'compose-circumflex-map "gtk-compose" nil t 'keymap)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	166 (autoload 'compose-tilde-map "gtk-compose" nil t 'keymap)
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	167
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	168 (when (gtk-keysym-on-keyboard-p 'multi-key device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	169 (define-key function-key-map [multi-key] 'compose-map))
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	170
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	171 ;; The dead keys might really be called just about anything, depending
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	172 ;; on the vendor. MIT thinks that the prefixes are "SunFA_", "D", and
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	173 ;; "hpmute_" for Sun, DEC, and HP respectively. However, OpenWindows 3
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	174 ;; thinks that the prefixes are "SunXK_FA_", "DXK_", and "hpXK_mute_".
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	175 ;; And HP (who don't mention Sun and DEC at all) use "XK_mute_".
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	176 ;; Go figure.
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	177
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	178 ;; Presumably if someone is running OpenWindows, they won't be using
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	179 ;; the DEC or HP keysyms, but if they are defined then that is possible,
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	180 ;; so in that case we accept them all.
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	181
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	182 ;; If things seem not to be working, you might want to check your
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	183 ;; /usr/lib/X11/XKeysymDB file to see if your vendor has an equally
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	184 ;; mixed up view of what these keys should be called.
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	185
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	186 ;; Canonical names:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	187 (gtk-define-dead-key acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	188 (gtk-define-dead-key grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	189 (gtk-define-dead-key cedilla compose-cedilla-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	190 (gtk-define-dead-key diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	191 (gtk-define-dead-key circumflex compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	192 (gtk-define-dead-key tilde compose-tilde-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	193 (gtk-define-dead-key degree compose-ring-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	194
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	195 ;; Sun according to MIT:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	196 (gtk-define-dead-key SunFA_Acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	197 (gtk-define-dead-key SunFA_Grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	198 (gtk-define-dead-key SunFA_Cedilla compose-cedilla-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	199 (gtk-define-dead-key SunFA_Diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	200 (gtk-define-dead-key SunFA_Circum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	201 (gtk-define-dead-key SunFA_Tilde compose-tilde-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	202
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	203 ;; Sun according to OpenWindows 2:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	204 (gtk-define-dead-key Dead_Grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	205 (gtk-define-dead-key Dead_Circum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	206 (gtk-define-dead-key Dead_Tilde compose-tilde-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	207
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	208 ;; Sun according to OpenWindows 3:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	209 (gtk-define-dead-key SunXK_FA_Acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	210 (gtk-define-dead-key SunXK_FA_Grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	211 (gtk-define-dead-key SunXK_FA_Cedilla compose-cedilla-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	212 (gtk-define-dead-key SunXK_FA_Diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	213 (gtk-define-dead-key SunXK_FA_Circum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	214 (gtk-define-dead-key SunXK_FA_Tilde compose-tilde-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	215
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	216 ;; DEC according to MIT:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	217 (gtk-define-dead-key Dacute_accent compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	218 (gtk-define-dead-key Dgrave_accent compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	219 (gtk-define-dead-key Dcedilla_accent compose-cedilla-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	220 (gtk-define-dead-key Dcircumflex_accent compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	221 (gtk-define-dead-key Dtilde compose-tilde-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	222 (gtk-define-dead-key Dring_accent compose-ring-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	223
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	224 ;; DEC according to OpenWindows 3:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	225 (gtk-define-dead-key DXK_acute_accent compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	226 (gtk-define-dead-key DXK_grave_accent compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	227 (gtk-define-dead-key DXK_cedilla_accent compose-cedilla-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	228 (gtk-define-dead-key DXK_circumflex_accent compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	229 (gtk-define-dead-key DXK_tilde compose-tilde-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	230 (gtk-define-dead-key DXK_ring_accent compose-ring-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	231
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	232 ;; HP according to MIT:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	233 (gtk-define-dead-key hpmute_acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	234 (gtk-define-dead-key hpmute_grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	235 (gtk-define-dead-key hpmute_diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	236 (gtk-define-dead-key hpmute_asciicircum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	237 (gtk-define-dead-key hpmute_asciitilde compose-tilde-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	238
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	239 ;; Empirically discovered on Linux XFree86 MetroX:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	240 (gtk-define-dead-key usldead_acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	241 (gtk-define-dead-key usldead_grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	242 (gtk-define-dead-key usldead_diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	243 (gtk-define-dead-key usldead_asciicircum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	244 (gtk-define-dead-key usldead_asciitilde compose-tilde-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	245
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	246 ;; HP according to OpenWindows 3:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	247 (gtk-define-dead-key hpXK_mute_acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	248 (gtk-define-dead-key hpXK_mute_grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	249 (gtk-define-dead-key hpXK_mute_diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	250 (gtk-define-dead-key hpXK_mute_asciicircum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	251 (gtk-define-dead-key hpXK_mute_asciitilde compose-tilde-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	252
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	253 ;; HP according to HP-UX 8.0:
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	254 (gtk-define-dead-key XK_mute_acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	255 (gtk-define-dead-key XK_mute_grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	256 (gtk-define-dead-key XK_mute_diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	257 (gtk-define-dead-key XK_mute_asciicircum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	258 (gtk-define-dead-key XK_mute_asciitilde compose-tilde-map device)
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	259
0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	260 ;; Xfree86 seems to use lower case and a hyphen
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	261 (gtk-define-dead-key dead-acute compose-acute-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	262 (gtk-define-dead-key dead-grave compose-grave-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	263 (gtk-define-dead-key dead-cedilla compose-cedilla-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	264 (gtk-define-dead-key dead-diaeresis compose-diaeresis-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	265 (gtk-define-dead-key dead-circum compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	266 (gtk-define-dead-key dead-circumflex compose-circumflex-map device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4380 diff changeset	267 (gtk-define-dead-key dead-tilde compose-tilde-map device))
462 0784d089fdc9 Import from CVS: tag r21-2-46 cvs parents: diff changeset	268

Mercurial > hg > xemacs-beta

annotate lisp/gtk-init.el @ 5406:061f4f90f874