|
428
|
1 ;;; x-win-sun.el --- runtime initialization for Sun X servers and keyboards
|
|
|
2 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
|
|
|
3
|
|
|
4 ;; Authors: jwz, ben, martin
|
|
|
5 ;; Keywords: terminals
|
|
|
6
|
|
|
7 ;; This file is part of XEmacs.
|
|
|
8
|
|
|
9 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
10 ;; under the terms of the GNU General Public License as published by
|
|
|
11 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
12 ;; any later version.
|
|
|
13
|
|
|
14 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
17 ;; General Public License for more details.
|
|
|
18
|
|
|
19 ;; You should have received a copy of the GNU General Public License
|
|
|
20 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
22 ;; Boston, MA 02111-1307, USA.
|
|
|
23
|
|
|
24 ;;; Commentary:
|
|
|
25
|
|
|
26 ;; This file is loaded by x-win.el at run-time when we are sure that XEmacs
|
|
|
27 ;; is running on the display of a Sun.
|
|
|
28
|
|
|
29 ;; The Sun X server (both the MIT and OpenWindows varieties) have extremely
|
|
|
30 ;; stupid names for their keypad and function keys. For example, the key
|
|
|
31 ;; labeled 3 / PgDn, with R15 written on the front, is actually called F35.
|
|
|
32
|
|
|
33 ;; There are 3 methods of dealing with the Sun key brokenness:
|
|
|
34 ;;
|
|
|
35 ;; - Use xmodmap to give all keys more sensible names for all apps:
|
|
|
36 ;; I use this shell script:
|
|
|
37 ;;
|
|
|
38 ;; for i in 0 1 2 3 4 5 6 7 8 9 Add Subtract Multiply Divide Decimal ; do
|
|
|
39 ;; echo "keysym KP-$i = KP-$i"
|
|
|
40 ;; done | xmodmap
|
|
|
41 ;;
|
|
|
42 ;; Clearly, as a good X11 citizen, we can't do this.
|
|
|
43 ;;
|
|
|
44 ;; - Use keyboard-translate-table to remap the keybindings at a low level.
|
|
|
45 ;; This approach is taken in the function `sun-x11-keyboard-translate'.
|
|
|
46 ;; This is like running xmodmap within XEmacs only.
|
|
|
47 ;; This is not the default, however, so that legacy keybindings in users'
|
|
|
48 ;; .emacs files like (global-set-key [(f35)] 'foo) continue to work
|
|
|
49 ;;
|
|
|
50 ;; - Use keyboard macros to provide indirection for keybindings.
|
|
|
51 ;; If we do (global-set-key [(f35)] [(kp-3)]), then the user's keybindings
|
|
|
52 ;; work whether he uses `f35' or `kp-3'.
|
|
|
53 ;; This is also compatible with FSF Emacs and other X11 apps.
|
|
|
54 ;; Although this has the disadvantage that these remappings
|
|
|
55 ;; only work with the global key map, we use this as the default.
|
|
|
56 ;;
|
|
|
57 ;; - The Right Way to do this remains to be written...
|
|
|
58
|
|
|
59 ;; OK, here's another try at doing things the right way.
|
|
|
60
|
|
|
61 ;; We use function-key-map, which honors explicit key-bindings for the
|
|
|
62 ;; stupid Sun names, but also allows indirection if no explicit
|
|
|
63 ;; key-binding exists.
|
|
|
64
|
|
|
65 ;;; Code:
|
|
|
66
|
|
502
|
67 (globally-declare-fboundp
|
|
|
68 '(x-keysym-on-keyboard-sans-modifiers-p))
|
|
|
69
|
|
428
|
70 ;;;###autoload
|
|
|
71 (defun x-win-init-sun ()
|
|
|
72
|
|
|
73 ;; help is ok
|
|
|
74 ;; num_lock is ok
|
|
|
75 ;; up is ok
|
|
|
76 ;; left is ok
|
|
|
77 ;; right is ok
|
|
|
78 ;; kp-add is ok
|
|
|
79 ;; down is ok
|
|
|
80 ;; insert is ok
|
|
|
81 ;; delete is ok
|
|
|
82 ;; kp-enter is ok
|
|
|
83 ;; Sun Function keys
|
|
|
84 (loop for (from-key to-key) in
|
|
|
85 `((f21 pause)
|
|
|
86 (f22 print)
|
|
|
87 (f23 scroll_lock)
|
|
|
88
|
|
|
89 ;; X11 R6 mappings
|
|
|
90 (SunProps props)
|
|
|
91 (SunFront front)
|
|
|
92 (SunOpen open)
|
|
|
93 (SunFind find)
|
|
|
94 (cancel stop)
|
|
|
95 (Undo undo)
|
|
|
96 (SunCopy copy)
|
|
|
97 (SunPaste paste)
|
|
|
98 (SunCut cut)
|
|
|
99
|
|
|
100 (f13 props)
|
|
|
101 (f14 undo)
|
|
|
102 (f15 front)
|
|
|
103 (f16 copy)
|
|
|
104 (f17 open)
|
|
|
105 (f18 paste)
|
|
|
106 (f19 find)
|
|
|
107 (f20 cut)
|
|
|
108
|
|
|
109 (f25 kp-divide)
|
|
|
110 (f26 kp-multiply)
|
|
|
111 (f31 kp-5)
|
|
|
112
|
|
|
113 ;; Map f33 and r13 to end or kp-end
|
|
|
114 ,@(cond
|
|
|
115 ((not (x-keysym-on-keyboard-sans-modifiers-p 'end))
|
|
|
116 '((f33 end)
|
|
|
117 (r13 end)))
|
|
|
118 ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-end))
|
|
|
119 '((f33 kp-end)
|
|
|
120 (r13 kp-end))))
|
|
|
121
|
|
|
122 ,@(when (x-keysym-on-keyboard-sans-modifiers-p 'f36)
|
|
|
123 '((f36 stop)
|
|
|
124 (f37 again)))
|
|
|
125
|
|
|
126 ;; Type 4 keyboards have a real kp-subtract and a f24 labelled `='
|
|
|
127 ;; Type 5 keyboards have no key labelled `=' and a f24 labelled `-'
|
|
|
128 ,@(when (x-keysym-on-keyboard-sans-modifiers-p 'f24)
|
|
|
129 `((f24 ,(if (x-keysym-on-keyboard-sans-modifiers-p 'kp-subtract)
|
|
|
130 'kp-equal
|
|
|
131 'kp-subtract))))
|
|
|
132
|
|
|
133 ;; Map f27 to home or kp-home, as appropriate
|
|
|
134 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p 'home))
|
|
|
135 '((f27 home)))
|
|
|
136 ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-home))
|
|
|
137 '((f27 kp-home))))
|
|
|
138
|
|
|
139 ;; Map f29 to prior or kp-prior, as appropriate
|
|
|
140 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p 'prior))
|
|
|
141 '((f29 prior)))
|
|
|
142 ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-prior))
|
|
|
143 '((f29 kp-prior))))
|
|
|
144
|
|
|
145 ;; Map f35 to next or kp-next, as appropriate
|
|
|
146 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p 'next))
|
|
|
147 '((f35 next)))
|
|
|
148 ((not (x-keysym-on-keyboard-sans-modifiers-p 'kp-next))
|
|
|
149 '((f35 kp-next))))
|
|
|
150
|
|
|
151 ,@(cond ((x-keysym-on-keyboard-sans-modifiers-p 'apRead) ; SunOS 4.1.1
|
|
|
152 '((apRead f11) (apEdit f12)))
|
|
|
153 ((x-keysym-on-keyboard-sans-modifiers-p 'SunF36) ; SunOS 5
|
|
|
154 '((SunF36 f11)
|
|
|
155 (SunF37 f12)
|
|
|
156 (f11 stop)
|
|
|
157 (f12 again))))
|
|
|
158 )
|
|
|
159 do (when (x-keysym-on-keyboard-sans-modifiers-p from-key)
|
|
|
160 (dolist (prefix '(() (shift) (control) (meta) (alt)
|
|
|
161 (shift control) (shift alt) (shift meta)
|
|
|
162 (control alt) (control meta) (alt meta)
|
|
|
163 (shift control alt) (shift control meta)
|
|
|
164 (shift alt meta) (control alt meta)
|
|
|
165 (shift control alt meta)))
|
|
|
166 (define-key function-key-map
|
|
|
167 (append prefix (list from-key))
|
|
|
168 (vector (append prefix (list to-key)))))))
|
|
|
169
|
|
|
170 ;; for each element in the left column of the above table, alias it
|
|
|
171 ;; to the thing in the right column. Then do the same for many, but
|
|
|
172 ;; not all, modifier combinations.
|
|
|
173 ;;
|
|
|
174 ;; (Well, we omit hyper and super. #### Handle this some other way!)
|
|
|
175 ;; (while mapping
|
|
|
176 ;; (let ((mods '(() (shift) (control) (meta) (alt))))
|
|
|
177 ;; (while mods
|
|
|
178 ;; (let ((k1 (vector (append (car mods) (list (car (car mapping))))))
|
|
|
179 ;; (k2 (vector (append (car mods) (list (cdr (car mapping)))))))
|
|
|
180 ;; (define-key global-map k1 k2))
|
|
|
181 ;; (setq mods (cdr mods))))
|
|
|
182 ;; (setq mapping (cdr mapping))))
|
|
|
183
|
|
|
184 ;;; I've extended keyboard-translate-table to work over keysyms.
|
|
|
185 ;;; [FSF Emacs has something called `system-key-alist' that is
|
|
|
186 ;;; supposed to accomplish approximately the same thing. Unfortunately,
|
|
|
187 ;;; it's brain-dead in the typically FSF way, and associates *numbers*
|
|
|
188 ;;; (who knows where the hell they come from?) with symbols.] --ben
|
|
|
189
|
|
|
190 ;;; And I've made it into a function which is NOT called by default --martin
|
|
|
191
|
|
|
192 (defun sun-x11-keyboard-translate ()
|
|
|
193 "Remap Sun's X11 keyboard.
|
|
|
194 Keys with names like `f35' are remapped, at a low level,
|
|
|
195 to more mnemonic ones,like `kp-3'."
|
|
|
196 (interactive)
|
|
|
197
|
|
|
198 (keyboard-translate
|
|
|
199 'f11 'stop ; the type4 keyboard Sun/MIT name
|
|
|
200 'f36 'stop ; the type5 keyboard Sun name
|
|
|
201 'cancel 'stop ; R6 binding
|
|
|
202 'f12 'again ; the type4 keyboard Sun/MIT name
|
|
|
203 'f37 'again ; the type5 keyboard Sun name
|
|
|
204 'f13 'props ;
|
|
|
205 'SunProps 'props ; R6 binding
|
|
|
206 'f14 'undo ;
|
|
|
207 'f15 'front ;
|
|
|
208 'SunFront 'front ; R6 binding
|
|
|
209 'f16 'copy ;
|
|
|
210 'SunCopy 'copy ; R6 binding
|
|
|
211 'f17 'open ;
|
|
|
212 'SunOpen 'open ; R6 binding
|
|
|
213 'f18 'paste ;
|
|
|
214 'SunPaste 'paste ; R6 binding
|
|
|
215 'f19 'find ;
|
|
|
216 'f20 'cut ;
|
|
|
217 'SunCut 'cut ; R6 binding
|
|
|
218 ;; help is ok
|
|
|
219 'f21 'pause
|
|
|
220 'f22 'prsc
|
|
|
221 'f23 'scroll
|
|
|
222 ;; num_lock is ok
|
|
|
223 ;;'f24 'kp-equal) ; type4 only!
|
|
|
224 'f25 'kp-divide ;
|
|
|
225 'f26 'kp-multiply ;
|
|
|
226 'f24 'kp-subtract ; type5 only!
|
|
|
227 'f27 'kp-7 ;
|
|
|
228 ;; up is ok
|
|
|
229 'f29 'kp-9
|
|
|
230 ;; left is ok
|
|
|
231 'f31 'kp-5
|
|
|
232 ;; right is ok
|
|
|
233 ;; kp-add is ok
|
|
|
234 'f33 'kp-1 ; the Sun name
|
|
|
235 'r13 'end ; the MIT name
|
|
|
236 ;; down is ok
|
|
|
237 'f35 'kp-3
|
|
|
238 ;; insert is ok
|
|
|
239 ;; delete is ok
|
|
|
240 ;; kp-enter is ok
|
|
|
241 'SunF36 'f11 ; Type 5 keyboards
|
|
|
242 'SunF37 'f12 ; Used to be Stop & Again
|
|
|
243 ))
|
|
|
244
|
|
3171
|
245 ;; Initialise the information needed for processing of function keys on
|
|
|
246 ;; keyboards without Roman-alpabet characters available. This keyboard
|
|
|
247 ;; description was taken from gkb-new/xmodmap.sun/xmodmap.us in the
|
|
|
248 ;; gnome-applets 2.12.0 distribution.
|
|
|
249 (setq x-us-keymap-first-keycode 37
|
|
|
250 x-us-keymap-description
|
|
|
251 [[?1 ?!] [?2 ?@] [?3 ?\#] [?4 ?$] [?5 ?%] [?6 ?^] [?7 ?&] [?8 ?*]
|
|
|
252 [?9 ?\(] [?0 ?\)] [?- ?_] [?= ?+] [?\` ?~] nil nil nil ?/ ?* nil
|
|
|
253 nil ?\. nil nil ?\t [?q ?Q] [?w ?W] [?e ?E] [?r ?R] [?t ?T] [?y ?Y]
|
|
|
254 [?u ?U] [?i ?I] [?o ?O] [?p ?P] [?\[ ?{] [?\] ?}] nil nil ?7 ?8 ?9
|
|
|
255 ?- nil nil nil nil nil [?a ?A] [?s ?S] [?d ?D] [?f ?F] [?g ?G]
|
|
|
256 [?h ?H] [?j ?J] [?k ?K] [?l ?L] [?\; ?:] [?\' ?\"] [?\\ ?|] nil nil
|
|
|
257 ?4 ?5 ?6 ?0 nil nil nil nil nil [?z ?Z] [?x ?X] [?c ?C] [?v ?V]
|
|
|
258 [?b ?B] [?n ?N] [?m ?M] [?\, ?<] [?\. ?>] [?/ ?\?] nil nil ?1 ?2
|
|
|
259 ?3 nil nil nil nil nil nil ?\ nil nil nil ?+])
|
|
428
|
260
|
|
|
261 ;;; OpenWindows-like "find" processing.
|
|
|
262 ;;; As far as I know, the `find' key is a Sunism, so we do that binding
|
|
|
263 ;;; here. This is the only Sun-specific keybinding. (The functions
|
|
|
264 ;;; themselves are in x-win.el in case someone wants to use them when
|
|
|
265 ;;; not running on a Sun display.)
|
|
|
266
|
|
|
267 (or (lookup-key global-map 'find)
|
|
|
268 (define-key global-map 'find 'ow-find))
|
|
|
269 (or (lookup-key global-map '(shift find))
|
|
|
270 (define-key global-map '(shift find) 'ow-find-backward))
|
|
|
271
|
|
|
272 )
|
|
|
273
|
|
|
274 ;;; x-win-sun.el ends here
|
