From: yamaoka <yamaoka>
Date: Thu, 8 Oct 1998 22:40:24 +0000 (+0000)
Subject: 	* EMH-CFG: Add "custom" to load-path. Use `if' and `progn' instead
X-Git-Tag: emh-1_8-199811302358~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=255a71f088858210a49c5fec4d49491fcbe88158;p=elisp%2Femh.git

	* EMH-CFG: Add "custom" to load-path. Use `if' and `progn' instead
	of `when'.
---

diff --git a/ChangeLog b/ChangeLog
index ec4d8be..4b6a0aa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-10-09  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* EMH-CFG: Add "custom" to load-path. Use `if' and `progn' instead
+	of `when'.
+
 1998-09-17  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* Makefile (XEMACS): New variable.
diff --git a/EMH-CFG b/EMH-CFG
index e8671f2..12679fd 100644
--- a/EMH-CFG
+++ b/EMH-CFG
@@ -11,16 +11,18 @@
 (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)
   (error (error "Please install APEL 8.2 or later.")))
 
+(add-path "custom")
 (add-path "flim")
 (add-path "semi")