From: morioka <morioka>
Date: Tue, 13 May 1997 14:32:39 +0000 (+0000)
Subject: (config-semi): fixed.
X-Git-Tag: semi-0_88~16
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fsemi.git;a=commitdiff_plain;h=d09f104427864db74169c962827df5ccc660df52

(config-semi): fixed.
---

diff --git a/SEMI-MK b/SEMI-MK
index 2b490df..4c7587c 100644
--- a/SEMI-MK
+++ b/SEMI-MK
@@ -1,25 +1,28 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: SEMI-MK,v 0.3 1997-03-14 07:42:44 morioka Exp $
+;;; $Id: SEMI-MK,v 0.4 1997-05-13 14:32:39 morioka Exp $
 ;;;
 
 (defun config-semi ()
-  (let (prefix exec-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))
-	   )
-	 (setq exec-prefix (car command-line-args-left))
-	 (progn
-	   (defvar EXEC_PREFIX exec-prefix)
-	   ;;(setq command-line-args-left (cdr command-line-args-left))
-	   )))
+  (let (prefix exec-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 exec-prefix (car command-line-args-left))
+	 (or (string-equal "NONE" exec-prefix)
+	     (defvar EXEC_PREFIX exec-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 "SEMI-CFG")
   (load-file "SEMI-ELS")
-  (princ (format "PREFIX=%s\tEXEC_PREFIX=%s\n" PREFIX EXEC_PREFIX))
+  (princ (format "PREFIX=%s\tEXEC_PREFIX=%s
+LISPDIR=%s\n" PREFIX EXEC_PREFIX LISPDIR))
   )
 
 (defun directory= (dir1 dir2)