From 9282657e6cd3cca5604a960aff35595f3fc885f9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 11 Dec 2006 07:26:31 +0000 Subject: [PATCH] Revert. --- LSDB-CFG | 34 ++++++++++++---------------------- 1 file changed, 12 insertions(+), 22 deletions(-) diff --git a/LSDB-CFG b/LSDB-CFG index 63ecf80..b6bea30 100644 --- a/LSDB-CFG +++ b/LSDB-CFG @@ -36,27 +36,17 @@ (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 -- 1.7.10.4