From: morioka <morioka>
Date: Thu, 15 May 1997 06:47:02 +0000 (+0000)
Subject: (config-emh): set LISPDIR.
X-Git-Tag: emh-0_21~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58b84c9b3de4326b29c9d7827567c48cb45b966c;p=elisp%2Femh.git

(config-emh): set LISPDIR.
---

diff --git a/EMH-MK b/EMH-MK
index 2d7564e..0cc3f96 100644
--- a/EMH-MK
+++ b/EMH-MK
@@ -1,20 +1,23 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: EMH-MK,v 0.0 1997-03-18 16:34:00 morioka Exp $
+;;; $Id: EMH-MK,v 0.1 1997-05-15 06:47:02 morioka Exp $
 ;;;
 
 (defun config-emh ()
-  (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)
+	     ))
     (load-file "EMH-CFG")
     (load-file "EMH-ELS")
-    (princ (format "PREFIX=%s\n" PREFIX))
+    (princ (format "PREFIX=%s
+LISPDIR=%s\n" PREFIX LISPDIR))
     ))
 
 (defun compile-emh ()