From: morioka <morioka>
Date: Fri, 9 Oct 1998 03:32:37 +0000 (+0000)
Subject: Must require cl because of `find-if'.
X-Git-Tag: semi-1_9-199811302358^2~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=421a0c984eaa543eb1b9ce9ca891740754be93da;p=elisp%2Fsemi.git

Must require cl because of `find-if'.
---

diff --git a/SEMI-CFG b/SEMI-CFG
index 196d83a..1fd4929 100644
--- a/SEMI-CFG
+++ b/SEMI-CFG
@@ -4,6 +4,8 @@
 
 ;;; Code:
 
+(require 'cl)
+
 (defvar default-load-path load-path)
 
 (add-to-list 'load-path
@@ -11,12 +13,11 @@
 (add-to-list 'load-path
 	     (expand-file-name "." data-directory))
 
-(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))
-      ))
+(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))
+  )
 
 (condition-case nil
     (require 'install)