🚀 go-pugleaf

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