define-key and functions

define-key and functions

[Bill Rising]

Hello wizards,

Is there a way to use a function which takes arguments in define-key?

For instance:
(define-key global-map "C-m" 'foo-new-line)
runs the command foo-new-line if C-m is pressed.

Is there a way to pass an argument to foo-new-line?

I've read the define-key documentation, looked in a bunch of mode 
definitions and surfed the web looking at folks .emacs files, but I've 
not seen a way to pass an argument.

The real problem is that I would like to use a universal toggling 
program and simply pass the name of the variable to be toggled from some 
menu definitions. Perhaps I'm going about the problem in an entirely bad 
fashion.

Any help would be appreciated.

Bill

Re: define-key and functions

[François Fleuret]

Hi,

Bill Rising wrote on 06 Dec 2003 18:49:11 MET:

> Is there a way to use a function which takes arguments in define-key?

At least you can do something like

(defun an-example (universal) (interactive "P")
  (if universal (message "with ctrl-u") (message "without ctrl-u")))
(define-key global-map [(control x) (control x)] 'an-example)

With that C-x C-x writes "without ctrl-u" and C-u C-x C-x writes "with
ctrl-u". C-h f interactive for more fancy usages of the universal
argument.

Regards,

-- 
François Fleuret

Re: define-key and functions

[Fredrik Arnerup]

Bill Rising <brising@louisville.edu> writes:

> Hello wizards,
>
> Is there a way to use a function which takes arguments in define-key?
>
> For instance:
> (define-key global-map "C-m" 'foo-new-line)
> runs the command foo-new-line if C-m is pressed.
>
> Is there a way to pass an argument to foo-new-line?

(define-key global-map "\C-m" 
  (lambda () (interactive) (foo-new-line argument)))

You really don't want to redefine C-m though. It's the same as Enter!

-- 
Fredrik Arnerup <e97_far@e.kth.se>

Re: define-key and functions

[Bill Rising]

In article <87wu99oj0i.fsf@e.kth.se>,
 Fredrik Arnerup <e97_far@e.kth.se> wrote:

> Bill Rising <brising@louisville.edu> writes:
> 
> > Hello wizards,
> >
> > Is there a way to use a function which takes arguments in define-key?
> >
> > For instance:
> > (define-key global-map "C-m" 'foo-new-line)
> > runs the command foo-new-line if C-m is pressed.
> >
> > Is there a way to pass an argument to foo-new-line?
> 
> (define-key global-map "\C-m" 
>   (lambda () (interactive) (foo-new-line argument)))

Ahh... (slaps self on forehead)
Works like a dream.

> 
> You really don't want to redefine C-m though. It's the same as Enter!

I understand. It was the first keystroke that came to mind.

Thanks muchly.

Bill