Thread View: gnu.epoch.misc
2 messages
2 total messages
Started by UK478 Anthony Bowles
Mon, 15 Mar 1993 19:36
HP apollo special keys
Author: UK478 Anthony Bowles
Date: Mon, 15 Mar 1993 19:36
Date: Mon, 15 Mar 1993 19:36
198 lines
6833 bytes
6833 bytes
Hi,
Firstly I'd like to thank you for pointing in me in the right
direction a few weeks ago when I was first trying to build epoch
on my apollo.
ps. I use an apollo 400t running DOMAIN/OS SR10.3.5.6 with Xdomain and Motif.
Since then I've set up some key bindings that map over the apollo
special keys within .emacs .
ie.
(set-style-foreground motion::style (background))
(set-style-background motion::style (foreground))
(rebind-key "F7" nil "\C-k")
(rebind-key "Select" nil "\C-@")
(rebind-key "LineDel" nil "\C-a\C-k")
(rebind-key "CharDel" nil "\C-d")
(rebind-key "apExit" nil "\C-x\C-c")
(rebind-key "Cut" nil "\C-k")
(rebind-key "Copy" nil "\C-k\C-y")
(rebind-key "Paste" nil "\C-y")
(rebind-key "LeftBar" nil "\C-a")
(rebind-key "RightBar" nil "\C-e")
(rebind-key "apUpBox" nil "\M-v")
(rebind-key "apDownBox" nil "\C-v")
(rebind-key "BackSpace" nil "\C-?")
(rebind-key "Delete" nil "\C-d")
(rebind-key "apRead" nil "\C-z4f")
(rebind-key "apSave" nil "\C-x\C-s")
(rebind-key "Next" nil "\C-zo")
The problem is that I can't get the upper case special keys to work.
ie. Copy works but Cut, which is the same key but shifted, doesn't.
Similarly the Save key doesn't work because it also needs shifting.
I found the names by doing the following :
-------
% xmodmap -pk
There are 4 KeySyms per KeyCode; KeyCodes range from 8 to 135.
KeyCode Keysym (Keysym) ...
Value Value (Name) ...
8
9 0xff60 (Select) 0xff63 (Insert)
10 0x1000ff00 (LineDel)
11 0x1000ff01 (CharDel)
12 0xffc7 (F10)
13 0xffbe (F1)
14 0xffbf (F2)
15 0xffc0 (F3)
16 0xffc1 (F4)
17 0xffc2 (F5)
18 0xffc3 (F6)
19 0xffc4 (F7)
20 0xffc5 (F8)
21 0xffc6 (F9)
22 0xff66 (Redo)
23 0x1000ff10 (apRead)
24 0x1000ff11 (apEdit) 0x1000ff12 (apSave)
25 0x1000ff13 (apExit) 0xff69 (Cancel)
26 0xff13 (Pause) 0xff6a (Help)
27 0x1000ff02 (Copy) 0x1000ff03 (Cut)
28 0x1000ff04 (Paste) 0xff65 (Undo)
29 0x1000ff06 (Grow) 0x1000ff05 (Move)
30
31 0xff1b (Escape)
32 0x0031 (1) 0x0021 (exclam)
33 0x0032 (2) 0x0040 (at)
34 0x0033 (3) 0x0023 (numbersign)
35 0x0034 (4) 0x0024 (dollar)
36 0x0035 (5) 0x0025 (percent)
37 0x0036 (6) 0x005e (asciicircum)
38 0x0037 (7) 0x0026 (ampersand)
39 0x0038 (8) 0x002a (asterisk)
40 0x0039 (9) 0x0028 (parenleft)
41 0x0030 (0) 0x0029 (parenright)
42 0x002d (minus) 0x005f (underscore)
43 0x003d (equal) 0x002b (plus)
44 0x0060 (grave) 0x007e (asciitilde)
45 0xff08 (BackSpace)
46
47 0x1000ff09 (LeftBar)
48 0x1000ff07 (Cmd) 0x1000ff08 (Shell)
49 0x1000ff0a (RightBar)
50
51
52 0xff09 (Tab)
53 0x0051 (Q)
54 0x0057 (W)
55 0x0045 (E)
56 0x0052 (R)
57 0x0054 (T)
58 0x0059 (Y)
59 0x0055 (U)
60 0x0049 (I)
61 0x004f (O)
62 0x0050 (P)
63 0x005b (bracketleft) 0x007b (braceleft)
64 0x005d (bracketright) 0x007d (braceright)
65
66 0xffff (Delete)
67
68 0xffb7 (KP_7)
69 0xffb8 (KP_8)
70 0xffb9 (KP_9)
71 0xffab (KP_Add)
72 0x1000ff0b (apLeftBox)
73 0xff52 (Up)
74 0x1000ff0c (apRightBox)
75 0xffe3 (Control_L)
76
77
78 0x0041 (A)
79 0x0053 (S)
80 0x0044 (D)
81 0x0046 (F)
82 0x0047 (G)
83 0x0048 (H)
84 0x004a (J)
85 0x004b (K)
86 0x004c (L)
87 0x003b (semicolon) 0x003a (colon)
88 0x0027 (apostrophe) 0x0022 (quotedbl)
89
90 0xff0d (Return)
91 0x005c (backslash) 0x007c (bar)
92
93 0xffb4 (KP_4)
94 0xffb5 (KP_5)
95 0xffb6 (KP_6)
96 0xffad (KP_Subtract)
97 0xff51 (Left)
98 0xff56 (Next)
99 0xff53 (Right)
100
101 0x1000ff14 (apRepeat)
102 0xffe1 (Shift_L)
103
104 0x005a (Z)
105 0x0058 (X)
106 0x0043 (C)
107 0x0056 (V)
108 0x0042 (B)
109 0x004e (N)
110 0x004d (M)
111 0x002c (comma) 0x003c (less)
112 0x002e (period) 0x003e (greater)
113 0x002f (slash) 0x003f (question)
114 0xffe2 (Shift_R)
115
116 0x1000ff0f (apPop)
117
118 0xffb1 (KP_1)
119 0xffb2 (KP_2)
120 0xffb3 (KP_3)
121
122 0x1000ff0d (apUpBox)
123 0xff54 (Down)
124 0x1000ff0e (apDownBox)
125 0xffe9 (Alt_L)
126 0x0020 (space)
127 0xffea (Alt_R)
128
129 0xffb0 (KP_0)
130
131 0xffae (KP_Decimal)
132 0xff8d (KP_Enter)
133
134 0xffe5 (Caps_Lock)
135
-----
Have you any ideas why the shifted special keys don't work (ie. nothing
happens) and the non-shifted special keys do ? Also if you have a default
.emacs file containing bindings for the Apollo 400t keyboard it would be
very much appreciated !
Thanks in advance,
Anthony Bowles
--
==========================================================================
| Anthony Bowles, | smtp: anthonyb@comm.mot.com |
| System Administrator for TSUBS | |
| Motorola, | tel: +44 256 48-4328 |
| Viables Industrial Estate, | |
| Basingstoke, | |
| Hampshire, UK, RG22 4PD | |
==========================================================================
Re: HP apollo special keys
Author: Jerry
Date: Tue, 16 Mar 1993 04:35
Date: Tue, 16 Mar 1993 04:35
61 lines
2668 bytes
2668 bytes
UK478 Anthony Bowles on March 15 wrote:
-> (rebind-key "Cut" nil "\C-k")
-> (rebind-key "Copy" nil "\C-k\C-y")
-> The problem is that I can't get the upper case special keys to work.
-> ie. Copy works but Cut, which is the same key but shifted, doesn't.
-> Similarly the Save key doesn't work because it also needs shifting.
Try
(rebind-key "Copy" 1 "\C-k")
since you are actually still using the same key, but with a modifier, i.e.,
;; Mask list
;; normal = 0
;; shift = 1
;; caps lock = 2 (lock)
;; control = 4
;; meta = 8 (mod1)
;; alt = 32 (mod3)
;; num lock = 64 (mod4)
;; For multiple modifiers, just add up the numbers.
;; Note that we define keys identically for 0, 2, and 64
;; so that Caps Lock and Num Lock don't screw up arrows keys
;; or simple (no modifier) function keys. Could have dones this
;; for _every_ binding, but enuf's enuf.
Here are some examples for a Sun4 keyboard for the key labeled
"Props," but known to X as "L3" which does
Props call-last-kbd-macro
C-Props start-kbd-macro
M-Props end-kbd-macro
S-Props name-last-kbd-macro
A-Props insert-kbd-macro
where C is control, M is meta, S is shift, and A is alt. Note that
when Num Lock or Caps Lock is active, things still work. I defined
functions for every function key on the Sun4 keyboard and, if I can
manage to keep this account long enough, I'll be porting this
interface to GNU Emacs 19 (maybe even with documentation!).
(rebind-key "L3" 0 "\C-xe")
(rebind-key "L3" 'lock "\C-xe")
(rebind-key "L3" 'mod4 "\C-xe")
(rebind-key "L3" 66 "\C-xe")
(rebind-key "L3" 'control "\C-x(")
(rebind-key "L3" 6 "\C-x(")
(rebind-key "L3" 68 "\C-x(")
(rebind-key "L3" 'meta "\C-x)")
(rebind-key "L3" 10 "\C-x)")
(rebind-key "L3" 72 "\C-x)")
(rebind-key "L3" 'shift "\C-x4(")
(rebind-key "L3" 3 "\C-x4(")
(rebind-key "L3" 65 "\C-x4(")
(rebind-key "L3" 'mod3 "\C-x4)")
(rebind-key "L3" 34 "\C-x4)")
(rebind-key "L3" 96 "\C-x4)")
-Jerry
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads