[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: translating the Hyper modifier to C-c
|
From: |
Kevin Rodgers |
|
Subject: |
Re: translating the Hyper modifier to C-c |
|
Date: |
Tue, 24 May 2005 10:03:07 -0600 |
|
User-agent: |
Mozilla Thunderbird 0.9 (X11/20041105) |
David Wallin wrote:
> The subject pretty much says it all. I want to make the hyper modifier
> mean C-c, e.g., pressing 'H-d' should be equivalent of/translated into
> 'C-c d'.
I think you need to explicitly bind each character:
;; Define each Hyper-modified printable ASCII character (space through
tilde)
;; as a keyboard macro: Control-c followed by the character itself
(let ((char ? ))
(while (<= char ?~)
(global-set-key (vector (car (read-from-string (format "?\\H-%c"
char))))
(format "\C-c%c" char))
(setq char (1+ char))))
--
Kevin Rodgers