From d9b67bd7dc6650a4a61efead05a1feec3d0c616b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 11 Dec 2006 04:48:37 +0000 Subject: [PATCH] (PACKAGEDIR): Check for (early|late|last)-package-hierarchies and configure-package-path as well as (early|late|last)-packages. --- ChangeLog | 6 ++++++ FLIM-CFG | 34 ++++++++++++++++++++++------------ 2 files changed, 28 insertions(+), 12 deletions(-) diff --git a/ChangeLog b/ChangeLog index 51afae8..18a38cc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-12-11 Katsumi Yamaoka + + * FLIM-CFG (PACKAGEDIR): Check for + (early|late|last)-package-hierarchies and configure-package-path + as well as (early|late|last)-packages. + 2006-09-24 Daiki Ueno * smtp.el (smtp-progress-message-format): Abolished; reverted the diff --git a/FLIM-CFG b/FLIM-CFG index 8a314fd..b7040db 100644 --- a/FLIM-CFG +++ b/FLIM-CFG @@ -61,17 +61,27 @@ (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_LISPDIR)) (defvar PACKAGEDIR - (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))) + (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)) ;;; FLIM-CFG ends here -- 1.7.10.4