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

annotate lisp/x-init.el @ 4622:8cbca852bcd4

#'check-coding-systems-region: return nil on success, not t. lisp/ChangeLog addition: 2009-02-18 Aidan Kehoe <kehoea@parhasard.net> * coding.el (check-coding-systems-region): Return null on success, not t. See http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1723 tests/ChangeLog addition: 2009-02-18 Aidan Kehoe <kehoea@parhasard.net> * automated/query-coding-tests.el : Check that #'check-coding-systems-region returns null on success here, not t.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Wed, 18 Feb 2009 07:53:34 +0000
parents	b75b075a9041
children	fdc76fec36d3

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."
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	89 (autoload 'compose-map "x-compose" nil t 'keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	90 (autoload 'compose-acute-map "x-compose" nil t 'keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	91 (autoload 'compose-grave-map "x-compose" nil t 'keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	92 (autoload 'compose-cedilla-map "x-compose" nil t 'keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	93 (autoload 'compose-diaeresis-map "x-compose" nil t 'keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	94 (autoload 'compose-circumflex-map "x-compose" nil t 'keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	95 (autoload 'compose-tilde-map "x-compose" nil t 'keymap)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	96
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	97 (loop
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	98 for (key map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	99 ;; 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	100 ;; 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	101 ;; "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	102 ;; 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	103 ;; 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	104 ;; figure.
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	105
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	106 ;; 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	107 ;; 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	108 ;; in that case we accept them all.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	109
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	110 ;; 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	111 ;; /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	112 ;; mixed up view of what these keys should be called.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	113
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	114 ;; Canonical names:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	115 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	116 (grave compose-grave-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	117 (cedilla compose-cedilla-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	118 (diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	119 (circumflex compose-circumflex-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	120 (tilde compose-tilde-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	121 (degree compose-ring-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	122 (multi-key compose-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	123
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	124 ;; Sun according to MIT:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	125 (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	126 (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	127 (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	128 (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	129 (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	130 (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	131
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	132 ;; 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	133 (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	134 (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	135 (Dead_Tilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	136
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	137 ;; 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	138 (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	139 (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	140 (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	141 (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	142 (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	143 (SunXK_FA_Tilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	144
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	145 ;; DEC according to MIT:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	146 (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	147 (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	148 (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	149 (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	150 (Dtilde compose-tilde-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	151 (Dring_accent compose-ring-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	152
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	153 ;; 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	154 (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	155 (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	156 (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	157 (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	158 (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	159 (DXK_ring_accent compose-ring-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	160
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	161 ;; HP according to MIT:
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	162 (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	163 (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	164 (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	165 (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	166 (hpmute_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	167
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	168 ;; 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	169 (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	170 (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	171 (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	172 (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	173 (usldead_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	174
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	175 ;; 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	176 (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	177 (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	178 (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	179 (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	180 (hpXK_mute_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	181
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	182 ;; 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	183 (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	184 (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	185 (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	186 (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	187 (XK_mute_asciitilde compose-tilde-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	188
4482 e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	189 ;; [[ 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	190 ;; 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	191 ;; 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	192 ;; 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	193 ;; 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	194 ;; character sets.
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	195 (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	196 (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	197 (dead-cedilla compose-cedilla-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	198 (dead-diaeresis compose-diaeresis-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	199 (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	200 (dead-circumflex 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-tilde compose-tilde-map))
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	202
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	203 ;; 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	204 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	205 (device-console device)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	206 function-key-map)
e3ef34f57070 Bind function-key-map correctly in device-specific startup code. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	207 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	208 (define-key function-key-map (vector key) map))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	209
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	210 (eval-when-compile
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	211 (load "x-win-sun" nil t)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	212 (load "x-win-xfree86" nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	213
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	214 (defun x-initialize-keyboard (device)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	215 "Perform X-Server-specific initializations. Don't call this."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	216 ;; This is some heuristic junk that tries to guess whether this is
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	217 ;; a Sun keyboard.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	218 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	219 ;; One way of implementing this (which would require C support) would
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	220 ;; 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	221 ;; remotely like a Sun - check for the Find key on a particular
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	222 ;; 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	223 ;; recognize various keyboards; see also xkeycaps.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	224 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	225 ;; Note that we cannot use most vendor-provided proprietary keyboard
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	226 ;; APIs to identify the keyboard - those only work on the console.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	227 ;; 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	228 (let ((vendor (x-server-vendor device)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	229 (cond ((or (string-match "Sun Microsystems" vendor)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	230 ;; MIT losingly fails to tell us what hardware the X server
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	231 ;; is managing, so assume all MIT displays are Suns... HA HA!
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	232 (string-equal "MIT X Consortium" vendor)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	233 (string-equal "X Consortium" vendor))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	234 ;; 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	235 (x-win-init-sun device))
4062 aa22980554d9 [xemacs-hg @ 2007-07-16 12:26:00 by aidan] aidan parents: 3475 diff changeset	236 ((string-match #r"XFree86\\|Cygwin/X\\|The X\.Org Foundation" vendor)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	237 ;; 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	238 (x-win-init-xfree86 device)))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	239
3360 316fddbf58e2 [xemacs-hg @ 2006-04-25 14:01:52 by stephent] stephent parents: 2828 diff changeset	240 ;; 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	241 (defun x-init-toolbar-from-resources (locale)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	242 (loop for (specifier . resname) in
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	243 `(( ,top-toolbar-height . "topToolBarHeight")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	244 (,bottom-toolbar-height . "bottomToolBarHeight")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	245 ( ,left-toolbar-width . "leftToolBarWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	246 ( ,right-toolbar-width . "rightToolBarWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	247
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	248 ( ,top-toolbar-border-width . "topToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	249 (,bottom-toolbar-border-width . "bottomToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	250 ( ,left-toolbar-border-width . "leftToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	251 ( ,right-toolbar-border-width . "rightToolBarBorderWidth"))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	252 do
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	253 (x-init-specifier-from-resources
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	254 specifier 'natnum locale (cons resname (upcase-initials resname)))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	255
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	256 (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	257 "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	258
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	259 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	260 an X11 device is created; this variable allows for that.")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	261
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	262 (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	263 "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	264
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	265 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	266 an X11 device is created; this variable allows for that.")
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	267
4477 e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	268 (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	269 "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	270 (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	271 (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	272 (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	273 ;; 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	274 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	275 (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	276 ;; 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	277 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	278 (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	279 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	280
e34711681f30 Don't determine whether to call general device-type code at startup, Aidan Kehoe <kehoea@parhasard.net> parents: 4451 diff changeset	281 (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	282 "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	283 ;; 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	284 (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	285 (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	286 ;; 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	287 ;; 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	288 (unless make-device-late-x-entry-point-called-p
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	289 (setq command-line-args-left (cdr x-initial-argv-list))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	290 ;; Motif-ish bindings
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	291 (define-key global-map '(shift insert) 'yank-clipboard-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	292 (define-key global-map '(control insert) 'copy-primary-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	293 ;; These are Sun-isms.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	294 (define-key global-map 'copy 'copy-primary-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	295 (define-key global-map 'paste 'yank-clipboard-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	296 (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	297 (setq make-device-late-x-entry-point-called-p t)))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	298
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	299 (defun make-frame-on-display (display &optional props)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	300 "Create a frame on the X display named DISPLAY.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	301 DISPLAY should be a standard display string such as \"unix:0\",
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	302 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	303 DISPLAY environment variable.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	304
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	305 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	306
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	307 This function opens a connection to the display or reuses an existing
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	308 connection.
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 This function is a trivial wrapper around `make-frame-on-device'."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	311 (interactive "sMake frame on display: ")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	312 (if (equal display "") (setq display nil))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	313 (make-frame-on-device 'x display props))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	314
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	315 ;;; x-init.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/x-init.el @ 4622:8cbca852bcd4