From: yamaoka <yamaoka>
Date: Thu, 8 Oct 1998 23:45:16 +0000 (+0000)
Subject: 	* SEMI-CFG: Use `add-latest-path' for adding "custom" to
X-Git-Tag: semi-1_9-199811302358^2~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c190579daed8f8c2dee6da500650d0b5271a779e;p=elisp%2Fsemi.git

	* SEMI-CFG: Use `add-latest-path' for adding "custom" to
	load-path.
---

diff --git a/ChangeLog b/ChangeLog
index 94811ad..185e293 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-10-08  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* SEMI-CFG: Use `add-latest-path' for adding "custom" to
+	load-path.
+
 1998-10-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* SEMI-CFG: Don't use `when' before install is required; don't
diff --git a/SEMI-CFG b/SEMI-CFG
index b5613bb..e760d73 100644
--- a/SEMI-CFG
+++ b/SEMI-CFG
@@ -72,10 +72,11 @@
 ;;;
 
 (let ((path (get-latest-path "bbdb" 'all-paths)))
-  (when path
-    (add-path path)
-    (add-path (expand-file-name "lisp" path)) ; run-in-place installation
-    ))
+  (if path
+      (progn
+	(add-path path)
+	(add-path (expand-file-name "lisp" path)) ; run-in-place installation
+	)))
 
 ;; Or please specify path.
 ;; (add-path "bbdb-1.50" 'all-paths)
@@ -86,10 +87,11 @@
 ;;;
 
 (let ((path (get-latest-path "w3" 'all-paths)))
-  (when path
-    (add-path path)
-    (add-path (expand-file-name "lisp" path)) ; run-in-place installation
-    ))
+  (if path
+      (progn
+	(add-path path)
+	(add-path (expand-file-name "lisp" path)) ; run-in-place installation
+	)))
 
 ;; Or please specify path.
 ;; (add-path "w3-4.0pre.20" 'all-paths)
@@ -99,14 +101,7 @@
 ;;; @@ Please specify CUSTOM path.
 ;;;
 
-(let ((path (get-latest-path "custom" 'all-paths)))
-  (when path
-    (add-path path)
-    (add-path (expand-file-name "lisp" path)) ; run-in-place installation
-    ))
-
-;; Or please specify path.
-;; (add-path "custom-1.9962" 'all-paths)
+(add-latest-path "custom")
 
 
 ;;; @ shell