From 58b84c9b3de4326b29c9d7827567c48cb45b966c Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 15 May 1997 06:47:02 +0000 Subject: [PATCH] (config-emh): set LISPDIR. --- EMH-MK | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) 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 () -- 1.7.10.4