Revert. master
authoryamaoka <yamaoka>
Mon, 11 Dec 2006 07:26:31 +0000 (07:26 +0000)
committeryamaoka <yamaoka>
Mon, 11 Dec 2006 07:26:31 +0000 (07:26 +0000)
LSDB-CFG

index 63ecf80..b6bea30 100644 (file)
--- a/LSDB-CFG
+++ b/LSDB-CFG
 (setq LSDB_DIR (expand-file-name LSDB_PREFIX LISPDIR))
 
 (defvar PACKAGEDIR
 (setq LSDB_DIR (expand-file-name LSDB_PREFIX LISPDIR))
 
 (defvar PACKAGEDIR
-  (let ((dirs (append
-              (cond ((boundp 'early-package-hierarchies)
-                     (append (if early-package-load-path
-                                 early-package-hierarchies)
-                             (if late-package-load-path
-                                 late-package-hierarchies)
-                             (if last-package-load-path
-                                 last-package-hierarchies)))
-                    ((boundp 'early-packages)
-                     (append (if early-package-load-path
-                                 early-packages)
-                             (if late-package-load-path
-                                 late-packages)
-                             (if last-package-load-path
-                                 last-packages))))
-              (if (and (boundp 'configure-package-path)
-                       (listp configure-package-path))
-                  (delete "" configure-package-path))))
-       dir)
-    (while (not (file-exists-p (setq dir (car dirs))))
-      (setq dirs (cdr dirs)))
-    dir))
+  (if (boundp 'early-packages)
+      (let ((dirs (append (if early-package-load-path
+                             early-packages)
+                         (if late-package-load-path
+                             late-packages)
+                         (if last-package-load-path
+                             last-packages)))
+           dir)
+       (while (not (file-exists-p
+                    (setq dir (car dirs))))
+         (setq dirs (cdr dirs)))
+       dir)))
 
 ;;; LSDB-CFG ends here
 
 ;;; LSDB-CFG ends here