From: morioka <morioka>
Date: Thu, 8 Oct 1998 23:32:03 +0000 (+0000)
Subject: Don't use `when' before install is required; don't require cl.
X-Git-Tag: semi-1_9-199811302358^2~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3e805968ef0a5d1aff027bd3ac9cc516603363ab;p=elisp%2Fsemi.git

Don't use `when' before install is required; don't require cl.
---

diff --git a/SEMI-CFG b/SEMI-CFG
index de45f0a..b5613bb 100644
--- a/SEMI-CFG
+++ b/SEMI-CFG
@@ -4,8 +4,6 @@
 
 ;;; Code:
 
-(require 'cl)
-
 (defvar default-load-path load-path)
 
 (add-to-list 'load-path
@@ -13,11 +11,12 @@
 (add-to-list 'load-path
 	     (expand-file-name "." data-directory))
 
-(when (boundp 'LISPDIR)
-  (add-to-list 'default-load-path LISPDIR)
-  (add-to-list 'load-path LISPDIR)
-  (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
-  )
+(if (boundp 'LISPDIR)
+    (progn
+      (add-to-list 'default-load-path LISPDIR)
+      (add-to-list 'load-path LISPDIR)
+      (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
+      ))
 
 (condition-case nil
     (require 'install)