From: morioka <morioka>
Date: Wed, 5 Nov 1997 15:23:35 +0000 (+0000)
Subject: (config-apel): Regard LISPDIR.
X-Git-Tag: apel-7_1~165
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=65d5381a17cf1f8b17bd4c834ca7f466ed67ba13;p=elisp%2Fapel.git

(config-apel): Regard LISPDIR.
---

diff --git a/APEL-MK b/APEL-MK
index 852fd46..5b662c0 100644
--- a/APEL-MK
+++ b/APEL-MK
@@ -1,17 +1,20 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: APEL-MK,v 0.4 1997-11-04 08:52:43 morioka Exp $
+;;; $Id: APEL-MK,v 0.5 1997-11-05 15:23:35 morioka Exp $
 ;;;
 
 (defun config-apel ()
-  (let (prefix)
-    (setq prefix (car command-line-args-left))
-    (and prefix
-	 (not (string-equal "NONE" prefix))
-	 (progn
-	   (defvar PREFIX prefix)
-	   (setq command-line-args-left (cdr command-line-args-left))
-	   ))
+  (let (prefix lisp-dir)
+    (and (setq prefix (car command-line-args-left))
+	 (or (string-equal "NONE" prefix)
+	     (defvar PREFIX prefix)
+	     ))
+    (setq command-line-args-left (cdr command-line-args-left))
+    (and (setq lisp-dir (car command-line-args-left))
+	 (or (string-equal "NONE" lisp-dir)
+	     (defvar LISPDIR lisp-dir)
+	     ))
+    (setq command-line-args-left (cdr command-line-args-left))
     (load-file "APEL-CFG")
     (or (boundp 'apel-modules)
 	(load-file "APEL-ELS")