Passing key bound to function as argument

Passing key bound to function as argument

[August Karlstrom]

Hello all,

Suppose I want to make my own `self-insert-command' (but implemented in 
Elisp). How would I go about?


August

Re: Passing key bound to function as argument

[Kevin Rodgers]

August Karlstrom wrote:
 > Suppose I want to make my own `self-insert-command' (but implemented in
 > Elisp). How would I go about?

(defun self-insert-command (n)
   (interactive "p")
   ...)

But it won't get called, because command_loop_1 optimizes out the call
to the Lisp binding and uses the C binding (Fself_insert_command) directly.

-- 
Kevin Rodgers

Re: Passing key bound to function as argument

[August Karlstrom]

Kevin Rodgers wrote:
> August Karlstrom wrote:
>  > Suppose I want to make my own `self-insert-command' (but implemented in
>  > Elisp). How would I go about?
> 
> (defun self-insert-command (n)
>   (interactive "p")
>   ...)
> 
> But it won't get called, because command_loop_1 optimizes out the call
> to the Lisp binding and uses the C binding (Fself_insert_command) directly.

I have already tried

    (defun my-self-insert-command (n)
       (interactive "p")
       (insert n))

    (global-set-key "a" 'my-self-insert-command)
    (global-set-key "b" 'my-self-insert-command)

Pressing either a or b inserts the character with ordinal number 1 
(instead of a or b) so that doesn't work.


August

Re: Passing key bound to function as argument

[Edward O'Connor]

This is not the best way to do what you'd like, but ItWorksForMe(TM):

(defun ted-self-insert-command ()
  (insert (this-command-keys)))


Ted

-- 
Edward O'Connor
hober0@gmail.com

Ense petit placidam sub libertate quietem.

Re: Passing key bound to function as argument

[August Karlstrom]

Edward O'Connor wrote:
> This is not the best way to do what you'd like, but ItWorksForMe(TM):
> 
> (defun ted-self-insert-command ()
>   (insert (this-command-keys)))

Thanks. I wrote my function like

    (defun f (key)
       (interactive (list (this-command-keys)))
       ...)


August