From da831874d65cec80704931bb18ee7c03c1351136 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 20 Dec 2006 17:40:42 +0000 Subject: [PATCH] (PACKAGEDIR): Use `install-get-default-package-directory'. --- FLIM-CFG | 24 +----------------------- 1 file changed, 1 insertion(+), 23 deletions(-) diff --git a/FLIM-CFG b/FLIM-CFG index ad93717..3878aca 100644 --- a/FLIM-CFG +++ b/FLIM-CFG @@ -61,28 +61,6 @@ (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_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 (and (setq dir (car dirs)) - (not (file-exists-p dir))) - (setq dirs (cdr dirs))) - dir)) + (install-get-default-package-directory)) ;;; FLIM-CFG ends here -- 1.7.10.4