(install-apel): Use `compile-apel'.
authormorioka <morioka>
Thu, 20 Mar 1997 02:12:39 +0000 (02:12 +0000)
committermorioka <morioka>
Thu, 20 Mar 1997 02:12:39 +0000 (02:12 +0000)
APEL-MK

diff --git a/APEL-MK b/APEL-MK
index 17c2c6b..61902fe 100644 (file)
--- a/APEL-MK
+++ b/APEL-MK
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: APEL-MK,v 0.1 1997-03-20 02:04:19 morioka Exp $
+;;; $Id: APEL-MK,v 0.2 1997-03-20 02:12:39 morioka Exp $
 ;;;
 
 (defun config-apel ()
           (defvar PREFIX prefix)
           (setq command-line-args-left (cdr command-line-args-left))
           ))
-    (add-to-list 'load-path (expand-file-name "../emu"))
-    (add-to-list 'load-path ".")
-    (require 'install)
-    
     (load-file "APEL-CFG")
-    (load-file "APEL-ELS")
+    (or (boundp 'apel-modules)
+       (load-file "APEL-ELS")
+       )
     (princ (format "PREFIX=%s\n" PREFIX))
     ))
 
 (defun compile-apel ()
-  (config-apel)
+  (add-to-list 'load-path (expand-file-name "../emu"))
+  (add-to-list 'load-path ".")
+  (require 'install)
+  (load-file "APEL-ELS")
   (compile-elisp-modules apel-modules  ".")
   )
 
 (defun install-apel ()
+  (compile-apel)
   (config-apel)
   (compile-elisp-modules apel-modules  ".")
   (install-elisp-modules apel-modules  "."     APEL_DIR)