How to bind a function with argument?

How to bind a function with argument?

[Rafael]

I would like to bind a key to the function that results from

C-u M-x org-insert-link

From 4.6 of http://www.nongnu.org/emacs-tiny-tools/keybindings/, I
thought that 

  (global-set-key [(super f)]
                   '(lambda () (interactive) (org-insert-link 4)))

would do the trick. But it doesn't, the effect is no different than just
doing 

  (global-set-key [(super f)] 'org-insert-link)

which is not what I want. Any help, please?

Re: How to bind a function with argument?

[LanX]

 (global-set-key [(super f)]
                  '(lambda () (interactive) (org-insert-link '4)))

Re: How to bind a function with argument?

[Rafael]

LanX <lanx.perl@googlemail.com> writes:

>  (global-set-key [(super f)]
>                   '(lambda () (interactive) (org-insert-link '4)))

Hmm, thanks for your answer, but again it has the same effect as not
quoting the 4...

Re: How to bind a function with argument?

[LanX]

hmm this seems to work for me:

(global-set-key [(super f)]
		'(lambda () (interactive) (org-insert-link (quote (4)))))

Re: How to bind a function with argument?

[Pascal J. Bourguignon]

Rafael <rvf0068@gmail.com> writes:

> I would like to bind a key to the function that results from
>
> C-u M-x org-insert-link
>
> From 4.6 of http://www.nongnu.org/emacs-tiny-tools/keybindings/, I
> thought that 
>
>   (global-set-key [(super f)]
>                    '(lambda () (interactive) (org-insert-link 4)))
>
> would do the trick. But it doesn't, the effect is no different than just
> doing 
>
>   (global-set-key [(super f)] 'org-insert-link)
>
> which is not what I want. Any help, please?

Read the documentation of org-insert-link.  Follow the link to the
source.  See that it has a (interactive "P") declaration.  Read the
documentation of interactive.  See that "P" means prefix arg in raw
form.

If you don't know it, search in emacs lisp documentation, and you'll
find that the prefix arg in raw form, for a single C-u, is passed as
(4), not 4, and for C-u C-u, it's (16).

So it should be:

(global-set-key [(super f)]  (lambda () (interactive) (org-insert-link '(4))))


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
A bad day in () is better than a good day in {}.

Re: How to bind a function with argument?

[LanX]

> Read the documentation of org-insert-link.  Follow the link to the
> source.  See that it has a (interactive "P") declaration.  Read the
> documentation of interactive.  See that "P" means prefix arg in raw
> form.
>
> If you don't know it, search in emacs lisp documentation, and you'll
> find that the prefix arg in raw form, for a single C-u, is passed as
> (4), not 4, and for C-u C-u, it's (16).

or just do M-x repeat-complex-command to see the lisp code of your
last command. :)

Re: How to bind a function with argument?

[Rafael]

"Pascal J. Bourguignon" <pjb@informatimago.com> writes:

> Rafael <rvf0068@gmail.com> writes:
>
>> I would like to bind a key to the function that results from
>>
>> C-u M-x org-insert-link
>>
>> From 4.6 of http://www.nongnu.org/emacs-tiny-tools/keybindings/, I
>> thought that 
>>
>>   (global-set-key [(super f)]
>>                    '(lambda () (interactive) (org-insert-link 4)))
>>
>> would do the trick. But it doesn't, the effect is no different than just
>> doing 
>>
>>   (global-set-key [(super f)] 'org-insert-link)
>>
>> which is not what I want. Any help, please?
>
> Read the documentation of org-insert-link.  Follow the link to the
> source.  See that it has a (interactive "P") declaration.  Read the
> documentation of interactive.  See that "P" means prefix arg in raw
> form.
>
> If you don't know it, search in emacs lisp documentation, and you'll
> find that the prefix arg in raw form, for a single C-u, is passed as
> (4), not 4, and for C-u C-u, it's (16).
>
> So it should be:
>
> (global-set-key [(super f)]  (lambda () (interactive) (org-insert-link '(4))))

Indeed it should. Thanks Pascal, for your detailed answer, and LanX!