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