Path: utzoo!attcan!uunet!samsung!brutus.cs.uiuc.edu!apple!oliveb!mipos3!omepd!merlyn
From: merlyn@iwarp.intel.com (Randal Schwartz)
Newsgroups: comp.emacs
Subject: Re: More than one function ?
Message-ID: <5231@omepd.UUCP>
Date: 19 Nov 89 19:24:24 GMT
References: <86@nixbln.UUCP>
Sender: news@omepd.UUCP
Reply-To: merlyn@iwarp.intel.com (Randal Schwartz)
Distribution: comp
Organization: Stonehenge; netaccess via Intel, Hillsboro, Oregon, USA
Lines: 23
In-reply-to: lutz@nsebln.UUCP (Lutz Hilken)

In article <86@nixbln.UUCP>, lutz@nsebln (Lutz Hilken) writes:
|   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).

I presume that what you mean is to execute function-1 followed by
function-2.  Try:

(define-key CSI-map "<some sequence>"
  '(lambda () (interactive)
     (function-1)
     (function-2)))

which essentially does what you asked (creates a new function calling
the ones you like), but doesn't give it a name.

Just another Elisp hacker,
-- 
/== Randal L. Schwartz, Stonehenge Consulting Services (503)777-0095 ====\
| on contract to Intel's iWarp project, Hillsboro, Oregon, USA, Sol III  |
| merlyn@iwarp.intel.com ...!uunet!iwarp.intel.com!merlyn	         |
\== Cute Quote: "Welcome to Oregon... Home of the California Raisins!" ==/