global-set-key with altGr on PC

global-set-key with altGr on PC

[Sébastien Kirche]

Hi all,

to resolve the insertion of the euro symbol i have defined the 
following in my .emacs :
,----
| (defun insert-euro () "Insert Euro sign"
|   (interactive)
|   (insert (make-char 'latin-iso8859-15 164))
| )
| (defun insert-euro-unicode () "Insert Unicode Euro"
|   (interactive)
|   (insert (make-char 'mule-unicode-0100-24ff 116 76))
| )
`----

To help for easy typing, i have added that (for PC):
,----
|(global-set-key [128] 'insert-euro); C-h l gives \200 for euro 
(AltGr-e) = 128 dec
`----
This works fine.
But then i tried to add another key like C-u AltGr-e for 
insert-euro-unicode,
,----
| (global-set-key (concat "\C-u" [128]) 'insert-euro)
| or
| (global-set-key "\C-u\200 'insert-euro) ; \200 is C-q AltGr-e
`----
but it fails with the following:
error: Key sequence C-u C-M-@ uses invalid prefix characters

How can I define a global-set-key with C-u Altgr-e ?

Thanks for help.
Sébastien Kirche

Re: global-set-key with altGr on PC

[Kevin Rodgers]

Sébastien Kirche wrote:

> Hi all,
> 
> to resolve the insertion of the euro symbol i have defined the following 
> in my .emacs :
> ,----
> | (defun insert-euro () "Insert Euro sign"
> |   (interactive)
> |   (insert (make-char 'latin-iso8859-15 164))
> | )
> | (defun insert-euro-unicode () "Insert Unicode Euro"
> |   (interactive)
> |   (insert (make-char 'mule-unicode-0100-24ff 116 76))
> | )
> `----
> 
> To help for easy typing, i have added that (for PC):
> ,----
> |(global-set-key [128] 'insert-euro); C-h l gives \200 for euro 
> (AltGr-e) = 128 dec
> `----
> This works fine.
> But then i tried to add another key like C-u AltGr-e for 
> insert-euro-unicode,
> ,----
> | (global-set-key (concat "\C-u" [128]) 'insert-euro)
> | or
> | (global-set-key "\C-u\200 'insert-euro) ; \200 is C-q AltGr-e
> `----
> but it fails with the following:
> error: Key sequence C-u C-M-@ uses invalid prefix characters
> 
> How can I define a global-set-key with C-u Altgr-e ?

You have to modify the function bound to AltGr-e to behave differently

when it's called with a prefix arg (C-u):

(defun insert-euro (&optional arg)
   "Insert the ISO 8859-15 Euro symbol.
With a prefix arg, insert the corresponding Unicode character instead."
   (interactive)
   (if arg
       (insert (make-char 'mule-unicode-0100-24ff 116 76))
     (insert (make-char 'latin-iso8859-15 164))))

(global-set-key [128] 'insert-euro)	; AltGr-e

-- 
Kevin Rodgers

Re: global-set-key with altGr on PC

[Sébastien Kirche]

			
Le mardi, 14 oct 2003, à 17:30 Europe/Paris, Kevin Rodgers a écrit :

>
> You have to modify the function bound to AltGr-e to behave differently
>
> when it's called with a prefix arg (C-u):
>
> (defun insert-euro (&optional arg)
>   "Insert the ISO 8859-15 Euro symbol.
> With a prefix arg, insert the corresponding Unicode character instead."
>   (interactive)
>   (if arg
>       (insert (make-char 'mule-unicode-0100-24ff 116 76))
>     (insert (make-char 'latin-iso8859-15 164))))
>
> (global-set-key [128] 'insert-euro)	; AltGr-e
>
> -- 
> Kevin Rodgers

Thanks Kevin,
That's *just* what i need :)

I still have to improve elisp.
Manual is ordered, i am just waiting for it to cross the see to France 
:)

Sébastien Kirche

Re: global-set-key with altGr on PC

[Sébastien Kirche]

Le mardi, 14 oct 2003, à 17:51 Europe/Paris, Sébastien Kirche a écrit :

> Manual is ordered, i am just waiting for it to cross the see to France 
> :)

oops, "the sea" of course :)

Re: global-set-key with altGr on PC

[Kevin Rodgers]

I wrote:

> You have to modify the function bound to AltGr-e to behave differently
> when it's called with a prefix arg (C-u):
> 
> (defun insert-euro (&optional arg)
>   "Insert the ISO 8859-15 Euro symbol.
> With a prefix arg, insert the corresponding Unicode character instead."
>   (interactive)


Oops: (interactive "*P")


>   (if arg
>       (insert (make-char 'mule-unicode-0100-24ff 116 76))
>     (insert (make-char 'latin-iso8859-15 164))))
> 
> (global-set-key [128] 'insert-euro)    ; AltGr-e

-- 
Kevin Rodgers