Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!sundc!pitstop!sun!decwrl!ucbvax!ECLA.USC.EDU!BEC.HEFFRON
From: BEC.HEFFRON@ECLA.USC.EDU (Matt Heffron)
Newsgroups: comp.sys.xerox
Subject: ADD-SEDIT-COMMANDS (OOPS!!)
Message-ID: <12346454456.57.BEC.HEFFRON@ECLA.USC.EDU>
Date: Thu, 29-Oct-87 18:39:55 EST
Article-I.D.: ECLA.12346454456.57.BEC.HEFFRON
Posted: Thu Oct 29 18:39:55 1987
Date-Received: Wed, 4-Nov-87 23:33:51 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 17

The version of the ADD-SEDIT-COMMANDS files that I announced before contained
a (STUPID) bug. the one function which was affected is included below{
Sorry for any inconvenience.  The complete newer files will be posted soon
in LISPUSERS.LYRIC on SUMEX-AIM.

-Matt Heffron	BEC.HEFFRON@ECLA.USC.EDU

(CL:DEFUN ADD-COMMAND (TheENV CHARCODE COMMANDFN &REST EXTRA-COMMANDFN-ARGS) 
                                                      (* ; "Edited 29-Oct-87 11:22 by Matt Heffron")
          
          (* ;; "The EXTRA-COMMANDFN-ARGS will be passed to the COMMANDFN (after the |context| and |charcode| arguments) unEVALuated.")

 (LET ((CommandTable (fetch (EditENV CommandTable) of TheENV)))
      (PUTHASH (\\charcode CHARCODE)
             (CONS COMMANDFN EXTRA-COMMANDFN-ARGS)
             CommandTable)))
-------