Mercurial > hg > xemacs-beta

annotate lisp/x-init.el @ 5919:2800105fcc9f cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
root of all my changes
author Henry Thompson <ht@markup.co.uk>
date Thu, 16 Dec 2021 11:20:17 +0000
parents 1d1f385c9149
children bbe4146603db
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
12 ;; XEmacs is free software: you can redistribute it and/or modify it
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
13 ;; under the terms of the GNU General Public License as published by the
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
14 ;; Free Software Foundation, either version 3 of the License, or (at your
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
15 ;; option) any later version.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
17 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
19 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
20 ;; for more details.
428
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
5402
308d34e9f07d Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents: 5260
diff changeset
23 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 ;;; Synched up with: Not synched.
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 ;;; Commentary:
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 ;; This file is dumped with XEmacs (when X support is compiled in).
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 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
33 (globally-declare-fboundp
5639
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
34 '(x-server-vendor x-init-specifier-from-resources init-mule-x-win))
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
35
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 487
diff changeset
36 (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
37 '(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
38
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 ;; 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
40 ;; 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
41 ;(setq x-emacs-application-class "Emacs")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 (defgroup x nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 "The X Window system."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 :group 'environment)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 ;; OpenWindows-like "find" processing. These functions are really Sunisms,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 ;; 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
49 ;; 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
50 ;; them to different keys, or putting them on menus.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 (defvar ow-find-last-string nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 (defvar ow-find-last-clipboard nil)
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 (defun ow-find (&optional backward-p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 "Search forward the next occurrence of the text of the selection."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 (interactive)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
58 (let ((sel (ignore-errors (get-selection)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
59 (clip (ignore-errors (get-clipboard)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 text)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 (setq text (cond
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 (sel)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 ((not (equal clip ow-find-last-clipboard))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 (setq ow-find-last-clipboard clip))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 (ow-find-last-string)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 (t (error "No selection available"))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 (setq ow-find-last-string text)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 (cond (backward-p
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 (search-backward text)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 (set-mark (+ (point) (length text))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 (t
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 (search-forward 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 (zmacs-activate-region)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 (defun ow-find-backward ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 "Search backward for the previous occurrence of the text of the selection."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 (interactive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 (ow-find t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80
5639
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
81 (labels
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
82 ((pseudo-canonicalize-keysym (keysym)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
83 "If KEYSYM (a string or a symbol) might describe a keysym on
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
84 the current keyboard, return its canonical XEmacs form, a symbol;
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
85 otherwise return nil.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
86
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
87 Does not intern new symbols, since if a string doesn't correspond to a
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
88 keysym that XEmacs has seen, that string won't be in obarray."
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
89 (if (symbolp keysym)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
90 keysym
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
91 (if (stringp keysym)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
92 (or (intern-soft keysym)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
93 (intern-soft (nsubstitute ?- ?_ (downcase keysym))))))))
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
94 (declare (inline pseudo-canonicalize-keysym))
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
95
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
96 (defun x-keysym-on-keyboard-sans-modifiers-p (keysym &optional device)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
97 "Return true if KEYSYM names a key on the keyboard of DEVICE.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
98 More precisely, return true if pressing a physical key
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
99 on the keyboard of DEVICE without any modifier keys generates KEYSYM.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
100 Valid keysyms are listed in the files /usr/include/X11/keysymdef.h and in
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
101 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
102 The keysym name can be provided in two forms:
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
103 - if keysym is a string, it must be the name as known to X windows.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
104 - if keysym is a symbol, it must be the name as known to XEmacs.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
105 The two names differ in capitalization and underscoring."
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
106 (eq 'sans-modifiers (gethash (pseudo-canonicalize-keysym keysym)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
107 (x-keysym-hash-table device))))
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
108
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
109 (defun x-keysym-on-keyboard-p (keysym &optional device)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
110 "Return true if KEYSYM names a key on the keyboard of DEVICE.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
111 More precisely, return true if some keystroke (possibly including modifiers)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
112 on the keyboard of DEVICE keys generates KEYSYM.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
113 Valid keysyms are listed in the files /usr/include/X11/keysymdef.h and in
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
114 /usr/lib/X11/XKeysymDB, or whatever the equivalents are on your system.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
115 The keysym name can be provided in two forms:
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
116 - if keysym is a string, it must be the name as known to X windows.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
117 - if keysym is a symbol, it must be the name as known to XEmacs.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
118 The two names differ in capitalization and underscoring.
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
119
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
120 This function is not entirely trustworthy, in that Xlib compose processing
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
121 can produce keysyms that XEmacs will not have seen when it examined the
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
122 keysyms available on startup. So pressing `dead-diaeresis' and then 'a' may
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
123 pass `adiaeresis' to XEmacs, or (in some implementations) even `U00E4',
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
124 where `(x-keysym-on-keyboard-p 'adiaeresis)' and `(x-keysym-on-keyboard-p
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
125 'U00E4)' would both have returned nil. Subsequent to XEmacs seeing a keysym
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
126 it was previously unaware of, the predicate will take note of it, though."
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
127 (and (gethash (pseudo-canonicalize-keysym keysym)
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
128 (x-keysym-hash-table device))
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
129 t)))
1d1f385c9149 Call XKeysymToString() much less, it leaks.
Aidan Kehoe <kehoea@parhasard.net>
parents: 5529
diff changeset
130
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 (eval-when-compile
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 (load "x-win-sun" nil t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 (load "x-win-xfree86" nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134
4477
e34711681f30 Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents: 4451
diff changeset
135 (defun x-initialize-keyboard (device)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 "Perform X-Server-specific initializations. Don't call this."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 ;; This is some heuristic junk that tries to guess whether this is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 ;; a Sun keyboard.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 ;; One way of implementing this (which would require C support) would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 ;; 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
142 ;; remotely like a Sun - check for the Find key on a particular
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 ;; 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
144 ;; recognize various keyboards; see also xkeycaps.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 ;; Note that we cannot use most vendor-provided proprietary keyboard
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 ;; APIs to identify the keyboard - those only work on the console.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 ;; 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
149 (let ((vendor (x-server-vendor device)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 (cond ((or (string-match "Sun Microsystems" vendor)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 ;; MIT losingly fails to tell us what hardware the X server
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 ;; is managing, so assume all MIT displays are Suns... HA HA!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 (string-equal "MIT X Consortium" vendor)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 (string-equal "X Consortium" vendor))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 ;; 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
156 (x-win-init-sun device))
4062
aa22980554d9 [xemacs-hg @ 2007-07-16 12:26:00 by aidan]
aidan
parents: 3475
diff changeset
157 ((string-match #r"XFree86\|Cygwin/X\|The X\.Org Foundation" vendor)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 ;; 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
159 (x-win-init-xfree86 device)))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160
3360
316fddbf58e2 [xemacs-hg @ 2006-04-25 14:01:52 by stephent]
stephent
parents: 2828
diff changeset
161 ;; 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
162 (defun x-init-toolbar-from-resources (locale)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 (loop for (specifier . resname) in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 `(( ,top-toolbar-height . "topToolBarHeight")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 (,bottom-toolbar-height . "bottomToolBarHeight")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 ( ,left-toolbar-width . "leftToolBarWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 ( ,right-toolbar-width . "rightToolBarWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 ( ,top-toolbar-border-width . "topToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 (,bottom-toolbar-border-width . "bottomToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 ( ,left-toolbar-border-width . "leftToolBarBorderWidth")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 ( ,right-toolbar-border-width . "rightToolBarBorderWidth"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 (x-init-specifier-from-resources
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 specifier 'natnum locale (cons resname (upcase-initials resname)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176
4477
e34711681f30 Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents: 4451
diff changeset
177 (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
178 "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
179
e34711681f30 Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents: 4451
diff changeset
180 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
181 an X11 device is created; this variable allows for that.")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182
4477
e34711681f30 Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents: 4451
diff changeset
183 (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
184 "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
185
4477
e34711681f30 Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents: 4451
diff changeset
186 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
187 an X11 device is created; this variable allows for that.")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188
4477
e34711681f30 Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents: 4451
diff changeset
189 (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
190 "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
191 (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
192 (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
193 (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
194 ;; 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
195 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
196 (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
197 ;; 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
198 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
199 (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
200 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
201
e34711681f30 Don't determine whether to call general device-type code at startup,
Aidan Kehoe <kehoea@parhasard.net>
parents: 4451
diff changeset
202 (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
203 "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
204 ;; 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
205 (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
206 ;; 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
207 ;; 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
208 (unless make-device-late-x-entry-point-called-p
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 (setq command-line-args-left (cdr x-initial-argv-list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 ;; Motif-ish bindings
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 (define-key global-map '(shift insert) 'yank-clipboard-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 (define-key global-map '(control insert) 'copy-primary-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 ;; These are Sun-isms.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 (define-key global-map 'copy 'copy-primary-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 (define-key global-map 'paste 'yank-clipboard-selection)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 (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
217 (setq make-device-late-x-entry-point-called-p t)))
428
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 (defun make-frame-on-display (display &optional props)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 "Create a frame on the X display named DISPLAY.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 DISPLAY should be a standard display string such as \"unix:0\",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 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
223 DISPLAY environment variable.
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 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
226
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 This function opens a connection to the display or reuses an existing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 connection.
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 This function is a trivial wrapper around `make-frame-on-device'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 (interactive "sMake frame on display: ")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 (if (equal display "") (setq display nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 (make-frame-on-device 'x display props))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 ;;; x-init.el ends here