(config-emh): set LISPDIR.

diff --git a/EMH-MK b/EMH-MK
index 2d7564e..0cc3f96 100644 (file)
--- 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 ()