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

annotate lisp/x-init.el @ 5324:d0bb90d90736

Provide #'device-x-display, as documented in Lispref; thanks, Jeff Mincy. lisp/ChangeLog addition: 2010-12-30 Aidan Kehoe <kehoea@parhasard.net> * x-misc.el (device-x-display): Provide this function, documented in the Lispref for years, but not existing previously. Thank you Julian Bradfield, thank you Jeff Mincy.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Thu, 30 Dec 2010 13:46:50 +0000
parents	dceee3855f15
children	308d34e9f07d

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 ;;; x-init.el --- initialization code for X windows
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	3 ;; Copyright (C) 1990, 1993, 1994, 1997 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4 ;; Copyright (C) 1995 Board of Trustees, University of Illinois.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5 ;; Copyright (C) 1995, 1996 Ben Wing.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7 ;; Maintainer: XEmacs Development Team
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8 ;; Keywords: terminals, dumped
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	11
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	12 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	13 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	14 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	17 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20 ;; General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	22 ;; You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23 ;; along with XEmacs; see the file COPYING. If not, write to the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24 ;; Free Software Foundation, 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25 ;; Boston, MA 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27 ;;; Synched up with: Not synched.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	29 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	30
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	31 ;; This file is dumped with XEmacs (when X support is compiled in).
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	35 (globally-declare-fboundp
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	36 '(x-keysym-on-keyboard-p
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	37 x-server-vendor x-init-specifier-from-resources init-mule-x-win))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	38
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	39 (globally-declare-boundp
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	40 '(x-initial-argv-list x-app-defaults-directory))
502 7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben] ben parents: 487 diff changeset	41
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	42 ;; If you want to change this variable, this is the place you must do it.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 ;; Do not set it to a string containing periods. X doesn't like that.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	44 ;(setq x-emacs-application-class "Emacs")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	45
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	46 (defgroup x nil
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	47 "The X Window system."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	48 :group 'environment)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	49
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	50 ;; OpenWindows-like "find" processing. These functions are really Sunisms,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	51 ;; but we put them here instead of in x-win-sun.el in case someone wants
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	52 ;; to use them when not running on a Sun console (presumably after binding
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	53 ;; them to different keys, or putting them on menus.)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	54
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	55 (defvar ow-find-last-string nil)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	56 (defvar ow-find-last-clipboard nil)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	57
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	58 (defun ow-find (&optional backward-p)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	59 "Search forward the next occurrence of the text of the selection."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	60 (interactive)
442 abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	61 (let ((sel (ignore-errors (get-selection)))
abe6d1db359e Import from CVS: tag r21-2-36 cvs parents: 428 diff changeset	62 (clip (ignore-errors (get-clipboard)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	63 text)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	64 (setq text (cond
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	65 (sel)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	66 ((not (equal clip ow-find-last-clipboard))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	67 (setq ow-find-last-clipboard clip))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	68 (ow-find-last-string)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	69 (t (error "No selection available"))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	70 (setq ow-find-last-string text)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	71 (cond (backward-p
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	72 (search-backward text)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	73 (set-mark (+ (point) (length text))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	74 (t
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	75 (search-forward text)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	76 (set-mark (- (point) (length text)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	77 (zmacs-activate-region)))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	78
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	79 (defun ow-find-backward ()
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	80 "Search backward for the previous occurrence of the text of the selection."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	81 (interactive)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	82 (ow-find t))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	83
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	84 ;; Load X-server specific code.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	85 ;; Specifically, load some code to repair the grievous damage that MIT and
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	86 ;; Sun have done to the default keymap for the Sun keyboards.
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	87 (defun x-initialize-compose (device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	88 "Enable compose key and dead key processing on DEVICE."
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	89 (loop for map in '(compose-map compose-acute-map compose-grave-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	90 compose-cedilla-map compose-diaeresis-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	91 compose-circumflex-map compose-tilde-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	92 compose-ring-map compose-caron-map compose-macron-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	93 compose-breve-map compose-dot-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	94 compose-doubleacute-map compose-ogonek-map
5260 dceee3855f15 Add support for the X11 dead-stroke in x-compose.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4627 diff changeset	95 compose-hook-map compose-horn-map compose-stroke-map)
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	96 do (autoload map "x-compose" nil t 'keymap))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	97
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	98 (loop
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	99 for (key map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	100 ;; The dead keys might really be called just about anything, depending
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	101 ;; on the vendor. MIT thinks that the prefixes are "SunFA_", "D", and
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	102 ;; "hpmute_" for Sun, DEC, and HP respectively. However, OpenWindows 3
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	103 ;; thinks that the prefixes are "SunXK_FA_", "DXK_", and "hpXK_mute_".
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	104 ;; And HP (who don't mention Sun and DEC at all) use "XK_mute_". Go
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	105 ;; figure.
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	106
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	107 ;; Presumably if someone is running OpenWindows, they won't be using the
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	108 ;; DEC or HP keysyms, but if they are defined then that is possible, so
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	109 ;; in that case we accept them all.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	110
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	111 ;; If things seem not to be working, you might want to check your
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	112 ;; /usr/lib/X11/XKeysymDB file to see if your vendor has an equally
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	113 ;; mixed up view of what these keys should be called.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	114
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	115 ;; Canonical names:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	116 in '((acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	117 (grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	118 (cedilla compose-cedilla-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	119 (diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	120 (circumflex compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	121 (tilde compose-tilde-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	122 (degree compose-ring-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	123 (multi-key compose-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	124
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	125 ;; Sun according to MIT:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	126 (SunFA_Acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	127 (SunFA_Grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	128 (SunFA_Cedilla compose-cedilla-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	129 (SunFA_Diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	130 (SunFA_Circum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	131 (SunFA_Tilde compose-tilde-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	132
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	133 ;; Sun according to OpenWindows 2:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	134 (Dead_Grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	135 (Dead_Circum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	136 (Dead_Tilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	137
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	138 ;; Sun according to OpenWindows 3:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	139 (SunXK_FA_Acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	140 (SunXK_FA_Grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	141 (SunXK_FA_Cedilla compose-cedilla-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	142 (SunXK_FA_Diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	143 (SunXK_FA_Circum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	144 (SunXK_FA_Tilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	145
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	146 ;; DEC according to MIT:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	147 (Dacute_accent compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	148 (Dgrave_accent compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	149 (Dcedilla_accent compose-cedilla-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	150 (Dcircumflex_accent compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	151 (Dtilde compose-tilde-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	152 (Dring_accent compose-ring-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	153
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	154 ;; DEC according to OpenWindows 3:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	155 (DXK_acute_accent compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	156 (DXK_grave_accent compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	157 (DXK_cedilla_accent compose-cedilla-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	158 (DXK_circumflex_accent compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	159 (DXK_tilde compose-tilde-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	160 (DXK_ring_accent compose-ring-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	161
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	162 ;; HP according to MIT:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	163 (hpmute_acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	164 (hpmute_grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	165 (hpmute_diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	166 (hpmute_asciicircum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	167 (hpmute_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	168
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	169 ;; Empirically discovered on Linux XFree86 MetroX:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	170 (usldead_acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	171 (usldead_grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	172 (usldead_diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	173 (usldead_asciicircum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	174 (usldead_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	175
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	176 ;; HP according to OpenWindows 3:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	177 (hpXK_mute_acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	178 (hpXK_mute_grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	179 (hpXK_mute_diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	180 (hpXK_mute_asciicircum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	181 (hpXK_mute_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	182
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	183 ;; HP according to HP-UX 8.0:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	184 (XK_mute_acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	185 (XK_mute_grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	186 (XK_mute_diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	187 (XK_mute_asciicircum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	188 (XK_mute_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	189
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	190 ;; [[ XFree86 seems to use lower case and a hyphen ]] Not true;
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	191 ;; they use lower case and an underscore. XEmacs converts the
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	192 ;; underscore to a hyphen in x_keysym_to_emacs_keysym because the
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	193 ;; keysym is in the "Keyboard" character set, which is just totally
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	194 ;; fucking random, considering it doesn't happen for any other
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	195 ;; character sets.
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	196 (dead-acute compose-acute-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	197 (dead-grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	198 (dead-cedilla compose-cedilla-map)
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	199 (dead-diaeresis compose-diaeresis-map)
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	200 (dead-circum compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	201 (dead-circumflex compose-circumflex-map)
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	202 (dead-tilde compose-tilde-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	203 (dead-abovering compose-ring-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	204 (dead-caron compose-caron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	205 (dead-macron compose-macron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	206 (dead-breve compose-breve-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	207 (dead-abovedot compose-dot-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	208 (dead-doubleacute compose-doubleacute-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	209 (dead-ogonek compose-ogonek-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4489 diff changeset	210 (dead-hook compose-hook-map)
5260 dceee3855f15 Add support for the X11 dead-stroke in x-compose.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4627 diff changeset	211 (dead-horn compose-horn-map)
dceee3855f15 Add support for the X11 dead-stroke in x-compose.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4627 diff changeset	212 (dead-stroke compose-stroke-map))
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	213
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	214 ;; Get the correct value for function-key-map
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	215 with function-key-map = (symbol-value-in-console 'function-key-map
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	216 (device-console device)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	217 function-key-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	218 do (when (x-keysym-on-keyboard-p key device)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	219 (define-key function-key-map (vector key) map))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	220
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	221 (eval-when-compile
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	222 (load "x-win-sun" nil t)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	223 (load "x-win-xfree86" nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	224
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	225 (defun x-initialize-keyboard (device)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	226 "Perform X-Server-specific initializations. Don't call this."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	227 ;; This is some heuristic junk that tries to guess whether this is
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	228 ;; a Sun keyboard.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	229 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	230 ;; One way of implementing this (which would require C support) would
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	231 ;; be to examine the X keymap itself and see if the layout looks even
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	232 ;; remotely like a Sun - check for the Find key on a particular
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	233 ;; keycode, for example. It'd be nice to have a table of this to
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	234 ;; recognize various keyboards; see also xkeycaps.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	235 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	236 ;; Note that we cannot use most vendor-provided proprietary keyboard
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	237 ;; APIs to identify the keyboard - those only work on the console.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	238 ;; xkeycaps has the same problem when running `remotely'.
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	239 (let ((vendor (x-server-vendor device)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	240 (cond ((or (string-match "Sun Microsystems" vendor)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	241 ;; MIT losingly fails to tell us what hardware the X server
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	242 ;; is managing, so assume all MIT displays are Suns... HA HA!
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	243 (string-equal "MIT X Consortium" vendor)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	244 (string-equal "X Consortium" vendor))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	245 ;; Ok, we think this could be a Sun keyboard. Run the Sun code.
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	246 (x-win-init-sun device))
4062 aa22980554d9 [xemacs-hg @ 2007-07-16 12:26:00 by aidan] aidan parents: 3475 diff changeset	247 ((string-match #r"XFree86\\|Cygwin/X\\|The X\.Org Foundation" vendor)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	248 ;; Those XFree86 people do some weird keysym stuff, too.
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	249 (x-win-init-xfree86 device)))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	250
3360 316fddbf58e2 [xemacs-hg @ 2006-04-25 14:01:52 by stephent] stephent parents: 2828 diff changeset	251 ;; Moved from x-toolbar.el, since InfoDock doesn't dump x-toolbar.el.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	252 (defun x-init-toolbar-from-resources (locale)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	253 (loop for (specifier . resname) in
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	254 `(( ,top-toolbar-height . "topToolBarHeight")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	255 (,bottom-toolbar-height . "bottomToolBarHeight")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	256 ( ,left-toolbar-width . "leftToolBarWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	257 ( ,right-toolbar-width . "rightToolBarWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	258
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	259 ( ,top-toolbar-border-width . "topToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	260 (,bottom-toolbar-border-width . "bottomToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	261 ( ,left-toolbar-border-width . "leftToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	262 ( ,right-toolbar-border-width . "rightToolBarBorderWidth"))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	263 do
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	264 (x-init-specifier-from-resources
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	265 specifier 'natnum locale (cons resname (upcase-initials resname)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	266
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	267 (defvar make-device-early-x-entry-point-called-p nil
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	268 "Whether `make-device-early-x-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: 4451 diff changeset	269
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	270 Much of the X11-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: 4451 diff changeset	271 an X11 device is created; this variable allows for that.")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	272
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	273 (defvar make-device-late-x-entry-point-called-p nil
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	274 "Whether `make-device-late-x-entry-point' has been called, at least once.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	275
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	276 Much of the X11-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: 4451 diff changeset	277 an X11 device is created; this variable allows for that.")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	278
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	279 (defun make-device-early-x-entry-point ()
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	280 "Entry point to set up the Lisp environment for X device creation."
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	281 (unless make-device-early-x-entry-point-called-p
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	282 (setq initial-frame-plist
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	283 (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: 4451 diff changeset	284 ;; Save the argv value.
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	285 x-initial-argv-list
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	286 (cons (car command-line-args) command-line-args-left)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	287 ;; Locate the app-defaults directory
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	288 x-app-defaults-directory
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	289 (or x-app-defaults-directory (locate-data-directory "app-defaults"))
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	290 make-device-early-x-entry-point-called-p t)))
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	291
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	292 (defun make-device-late-x-entry-point (device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	293 "Entry point to do any Lisp-level X device-specific initialization."
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	294 ;; General code, called on every X device created:
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	295 (x-initialize-keyboard device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	296 (x-initialize-compose device)
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	297 ;; And the following code is to be called once, the first time an X11
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	298 ;; device is created:
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	299 (unless make-device-late-x-entry-point-called-p
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	300 (setq command-line-args-left (cdr x-initial-argv-list))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	301 ;; Motif-ish bindings
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	302 (define-key global-map '(shift insert) 'yank-clipboard-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	303 (define-key global-map '(control insert) 'copy-primary-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	304 ;; These are Sun-isms.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	305 (define-key global-map 'copy 'copy-primary-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	306 (define-key global-map 'paste 'yank-clipboard-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	307 (define-key global-map 'cut 'kill-primary-selection)
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	308 (setq make-device-late-x-entry-point-called-p t)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	309
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	310 (defun make-frame-on-display (display &optional props)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	311 "Create a frame on the X display named DISPLAY.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	312 DISPLAY should be a standard display string such as \"unix:0\",
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	313 or nil for the display specified on the command line or in the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	314 DISPLAY environment variable.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	315
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	316 PROPS should be a plist of properties, as in the call to `make-frame'.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	317
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	318 This function opens a connection to the display or reuses an existing
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	319 connection.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	320
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	321 This function is a trivial wrapper around `make-frame-on-device'."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	322 (interactive "sMake frame on display: ")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	323 (if (equal display "") (setq display nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	324 (make-frame-on-device 'x display props))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	325
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	326 ;;; x-init.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/x-init.el @ 5324:d0bb90d90736