Path: utzoo!mnetor!tmsoft!torsqnt!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!gem.mps.ohio-state.edu!apple!oracle!news
From: nhess@oracle.uucp (Nate Hess)
Newsgroups: comp.emacs
Subject: Re: More than one function ?
Message-ID: <1989Nov17.182352.20547@oracle.com>
Date: 17 Nov 89 18:23:52 GMT
References: <86@nixbln.UUCP>
Reply-To: nhess@oracle.UUCP (Nate Hess)
Distribution: comp
Organization: Oracle Corporation, Belmont, CA
Lines: 30

In article <86@nixbln.UUCP> lutz@nsebln.UUCP (Lutz Hilken) writes:
>I have a question:
>
>  Is there a proper way to bind two functions to one key? Ok, I can
>  write a new function wich calls that one I like to execute, but...
>  I would like something like
>	(define-key CSI-map "<some sequence>" 'funtion 1 'function 2).
>
>Can you help me?

I can try...


A binding like this seems to work:

	(define-key <a-map> "<some sequence>"
		'(lambda ()
			(interactive)
			(backward-char 4)
			(forward-char 1)))

I would imagine that you could use this to execute any Elisp you cared
to.

Hope this helps,
--woodstock
	   "What I like is when you're looking and thinking and looking
	   and thinking...and suddenly you wake up."   - Hobbes

nhess@dvlseq.oracle.com or ...!uunet!oracle!nhess or (415) 598-8114