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

	load-path.

diff --git a/ChangeLog b/ChangeLog
index 94811ad..185e293 100644 (file)
--- 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 (file)
--- 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