Mercurial > hg > xemacs-beta

comparison lisp/x-win-sun.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents
children 434959a2fba3
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
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@netscape.com, wing@666.com, mrb@eng.sun.com
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
67 (defun x-remap-keysyms-using-function-key-map (from-key to-key)
68 (dolist (prefix '(() (shift) (control) (meta) (alt)
69 (shift control) (shift alt) (shift meta)
70 (control alt) (control meta) (alt meta)
71 (shift control alt) (shift control meta)
72 (shift alt meta) (control alt meta)
73 (shift control alt meta)))
74 (define-key function-key-map
75 (append prefix (list from-key))
76 (vector (append prefix (list to-key))))))
77
78 ;; help is ok
79 ;; num_lock is ok
80 ;; up is ok
81 ;; left is ok
82 ;; right is ok
83 ;; kp-add is ok
84 ;; down is ok
85 ;; insert is ok
86 ;; delete is ok
87 ;; kp-enter is ok
88 ;; Sun Function keys
89 (loop for (x-name from-key to-key) in
90 `(("F21" f21 pause)
91 ("F22" f22 print)
92 ("F23" f23 scroll_lock)
93
94 ;; X11 R6 mappings
95 ("SunProps" SunProps props)
96 ("SunFront" SunFront front)
97 ("SunOpen" SunOpen open)
98 ("SunFind" SunFind find)
99 ("Cancel" cancel stop)
100 ("Undo" Undo undo)
101 ("SunCopy" SunCopy copy)
102 ("SunPaste" SunPaste paste)
103 ("SunCut" SunCut cut)
104
105 ("F13" f13 props)
106 ("F14" f14 undo)
107 ("F15" f15 front)
108 ("F16" f16 copy)
109 ("F17" f17 open)
110 ("F18" f18 paste)
111 ("F19" f19 find)
112 ("F20" f20 cut)
113
114 ("F25" f25 kp-divide)
115 ("F26" f26 kp-multiply)
116 ("F31" f31 kp-5)
117
118 ;; Map f33 and r13 to end or kp-end
119 ,@(cond
120 ((not (x-keysym-on-keyboard-sans-modifiers-p "End"))
121 '(("F33" f33 end)
122 ("R13" r13 end)))
123 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_End"))
124 '(("F33" f33 kp-end)
125 ("R13" r13 kp-end))))
126
127 ,@(if (x-keysym-on-keyboard-sans-modifiers-p "F36")
128 '(("F36" f36 stop)
129 ("F37" f37 again)))
130
131 ;; Type 4 keyboards have a real kp-subtract and a f24 labelled `='
132 ;; Type 5 keyboards have no key labelled `=' and a f24 labelled `-'
133 ,@(when (x-keysym-on-keyboard-sans-modifiers-p "F24")
134 `(("F24" f24 ,(if (x-keysym-on-keyboard-sans-modifiers-p "KP_Subtract")
135 'kp-equal
136 'kp-subtract))))
137
138 ;; Map f27 to home or kp-home, as appropriate
139 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Home"))
140 '(("F27" f27 home)))
141 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Home"))
142 '(("F27" f27 kp-home))))
143
144 ;; Map f29 to prior or kp-prior, as appropriate
145 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Prior"))
146 '(("F29" f29 prior)))
147 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Prior"))
148 '(("F29" f29 kp-prior))))
149
150 ;; Map f35 to next or kp-next, as appropriate
151 ,@(cond ((not (x-keysym-on-keyboard-sans-modifiers-p "Next"))
152 '(("F35" f35 next)))
153 ((not (x-keysym-on-keyboard-sans-modifiers-p "KP_Next"))
154 '(("F35" f35 kp-next))))
155
156 ,@(cond ((x-keysym-on-keyboard-sans-modifiers-p "apRead") ; SunOS 4.1.1
157 '(("apRead" apRead f11) ("apEdit" apEdit f12)))
158 ((x-keysym-on-keyboard-sans-modifiers-p "SunF36") ; SunOS 5
159 '(("SunF36" SunF36 f11)
160 ("SunF37" SunF37 f12)
161 ("F11" f11 stop)
162 ("F12" f12 again))))
163 )
164 do (when (x-keysym-on-keyboard-sans-modifiers-p x-name)
165 (x-remap-keysyms-using-function-key-map from-key to-key)))
166
167 (unintern 'x-remap-keysyms-using-function-key-map)
168
169 ;; for each element in the left column of the above table, alias it
170 ;; to the thing in the right column. Then do the same for many, but
171 ;; not all, modifier combinations.
172 ;;
173 ;; (Well, we omit hyper and super. #### Handle this some other way!)
174 ; (while mapping
175 ; (let ((mods '(() (shift) (control) (meta) (alt))))
176 ; (while mods
177 ; (let ((k1 (vector (append (car mods) (list (car (car mapping))))))
178 ; (k2 (vector (append (car mods) (list (cdr (car mapping)))))))
179 ; (define-key global-map k1 k2))
180 ; (setq mods (cdr mods))))
181 ; (setq mapping (cdr mapping))))
182
183 ;;; I've extended keyboard-translate-table to work over keysyms.
184 ;;; [FSF Emacs has something called `system-key-alist' that is
185 ;;; supposed to accomplish approximately the same thing. Unfortunately,
186 ;;; it's brain-dead in the typically FSF way, and associates *numbers*
187 ;;; (who knows where the hell they come from?) with symbols.] --ben
188
189 ;;; And I've made it into a function which is NOT called by default --mrb
190
191 (defun sun-x11-keyboard-translate ()
192 "Remap Sun's X11 keyboard.
193 Keys with names like `f35' are remapped, at a low level,
194 to more mnemonic ones,like `kp-3'."
195 (interactive)
196
197 (keyboard-translate
198 'f11 'stop ; the type4 keyboard Sun/MIT name
199 'f36 'stop ; the type5 keyboard Sun name
200 'cancel 'stop ; R6 binding
201 'f12 'again ; the type4 keyboard Sun/MIT name
202 'f37 'again ; the type5 keyboard Sun name
203 'f13 'props ;
204 'SunProps 'props ; R6 binding
205 'f14 'undo ;
206 'f15 'front ;
207 'SunFront 'front ; R6 binding
208 'f16 'copy ;
209 'SunCopy 'copy ; R6 binding
210 'f17 'open ;
211 'SunOpen 'open ; R6 binding
212 'f18 'paste ;
213 'SunPaste 'paste ; R6 binding
214 'f19 'find ;
215 'f20 'cut ;
216 'SunCut 'cut ; R6 binding
217 ;; help is ok
218 'f21 'pause
219 'f22 'prsc
220 'f23 'scroll
221 ;; num_lock is ok
222 ;;'f24 'kp-equal) ; type4 only!
223 'f25 'kp-divide ;
224 'f26 'kp-multiply ;
225 'f24 'kp-subtract ; type5 only!
226 'f27 'kp-7 ;
227 ;; up is ok
228 'f29 'kp-9
229 ;; left is ok
230 'f31 'kp-5
231 ;; right is ok
232 ;; kp-add is ok
233 'f33 'kp-1 ; the Sun name
234 'r13 'end ; the MIT name
235 ;; down is ok
236 'f35 'kp-3
237 ;; insert is ok
238 ;; delete is ok
239 ;; kp-enter is ok
240 'SunF36 'f11 ; Type 5 keyboards
241 'SunF37 'f12 ; Used to be Stop & Again
242 ))
243
244
245 ;;; OpenWindows-like "find" processing.
246 ;;; As far as I know, the `find' key is a Sunism, so we do that binding
247 ;;; here. This is the only Sun-specific keybinding. (The functions
248 ;;; themselves are in x-win.el in case someone wants to use them when
249 ;;; not running on a Sun display.)
250
251 (define-key global-map 'find 'ow-find)
252 (define-key global-map '(shift find) 'ow-find-backward)
253
254 ;;; x-win-sun.el ends here