1 ;;; BEGIN INCLUDE FILE e-define-command.incl.lisp
 2 
 3 ;;;       Include File to Load Emacs Command Definition Macro
 4 
 5 ;;; HISTORY COMMENTS:
 6 ;;;  1) change(79-08-27,Palter), approve(), audit(),
 7 ;;;     install(86-08-20,MR12.0-1136):
 8 ;;;     Initial version.
 9 ;;;  2) change(82-10-09,Margolin), approve(), audit(),
10 ;;;     install(86-08-20,MR12.0-1136):
11 ;;;     to look in the wdir first
12 ;;;  3) change(85-01-06,Margolin), approve(86-02-24,MCR7186),
13 ;;;     audit(86-08-12,Harvey), install(86-08-20,MR12.0-1136):
14 ;;;     to check and set (status feature e-defcom).
15 ;;;                                                      END HISTORY COMMENTS
16 
17 ;;;
18 
19 (eval-when (compile eval)
20 (or (status feature e-defcom)
21     (errset (load "e_define_command_") nil)       ;don't print error
22     (load (catenate (car (namelist infile)) ">e_define_command_"))
23     )
24 (sstatus feature e-defcom)
25 )
26 
27 ;;; END INCLUDE FILE e-define-command.incl.lisp