BEC.HEFFRON@ECLA.USC.EDU (Matt Heffron) (10/30/87)
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)))
-------