Re: How to bind the same function to different keys with different behaviours?

[sokobania . 01]

Le mercredi 13 janvier 2016 14:28:27 UTC+1, to...@tuxteam.de a écrit :
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> On Wed, Jan 13, 2016 at 04:55:40AM -0800, I wrote:
> > In the basic modemap, the ascii keys are bound to `self-insert-command'.
> > As it is not an emacs-lisp function, I cannot "copy" its code.
> > 
> > I want to bind the keys [A-Z] to `my-self-insert-command' with something 
> > like:
> > (for key from ?A to ?Z do
> >   (bind-key my-mode-map key 'my-self-insert-command))
> > 
> > This function kind of inserts the current key pressed under some conditions.
> > 
> > So far, I don't know how to get acces to the current key pressed from 
> > within `my-self-insert-command'.
> > 
> > Is this possible?
> > 
> > 
> > If it is not possible, I'll do something like:
> > 
> > (for key from ?A to ?Z do
> >   (bind-key my-mode-map key (lambda () (my-self-insert-command key))))
> 
> self-insert-command can do it -- so can you, then :-)
> 
> To find out (it helps to have the Emacs sources around, you do `C-h f'
> self-insert-command, and Emacs tells you:
> 
>   "self-insert-command is an interactive built-in function in `C source
>    code'.
> 
>    It is bound to many ordinary text characters.
>    [...]"
> 
> The `C source code' above is a link, and if you have the Emacs sources
> around, it'll take you to the relevant C function. There you see that
> it references some variable `last_command_event'.
> 
> Lo and behold, Elisp has a corresponding variable `last-command-event'
> where you can look up what triggered you `my-self-insert-command'

Exactly what I was looking for!
As I rarely download emacs sources, I would not have found it!
Thanks a lot!