binding a key to a function with an argument

binding a key to a function with an argument

[John Withers]

Folks,

I am trying to change C-x C-s save-buffer to save-some-buffers with the
non-nil argument so that it will save all without questions. 

I have no problem with the bind of the save-some-buffers:

(global-set-key (kbd "C-x C-s") 'save--some-buffers)

but I can't figure out how to pass the non-nil argument. I have tried a
few different ways and they all throw errors.

Any help would be appreciated.

-john

Re: binding a key to a function with an argument

[Wang Lei]

how about use lambda ?

(global-set-key (kbd "C-x s") '(lambda()
				(interactive)
				(save-some-buffers t)))


On 7/23/09, John Withers <grayarea@reddagger.org> wrote:
> Folks,
>
> I am trying to change C-x C-s save-buffer to save-some-buffers with the
> non-nil argument so that it will save all without questions.
>
> I have no problem with the bind of the save-some-buffers:
>
> (global-set-key (kbd "C-x C-s") 'save--some-buffers)
>
> but I can't figure out how to pass the non-nil argument. I have tried a
> few different ways and they all throw errors.
>
> Any help would be appreciated.
>
> -john
>
>
>
>


-- 
Regards
Lei

Re: binding a key to a function with an argument

[Bernardo]

> I am trying to change C-x C-s save-buffer to save-some-buffers with the
> non-nil argument so that it will save all without questions. 

an alternative way using keystrokes: C-x s !

Re: binding a key to a function with an argument

[Teemu Likonen]

On 2009-07-22 09:13 (-0700), John Withers wrote:

> (global-set-key (kbd "C-x C-s") 'save--some-buffers)
>
> but I can't figure out how to pass the non-nil argument. I have tried a
> few different ways and they all throw errors.

The second parameter for global-set-key must be a symbol of interactive
function and you can only pass interactive prefix arguments to that
function. But you can create a new function which calls
save-some-buffers with the arguments you like. I use anonymous function
(lambda) here:

    (global-set-key (kbd "C-x C-s")
                    (lambda () (interactive)
                      (save-some-buffers t)))