From c5fd395d24ec65c7dcff24d4433c906e73cbe755 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 20 Dec 2006 18:11:59 +0000 Subject: [PATCH] (PACKAGEDIR): Use `install-get-default-package-directory'. --- SEMI-CFG | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) diff --git a/SEMI-CFG b/SEMI-CFG index f09e497..8ff6eac 100644 --- a/SEMI-CFG +++ b/SEMI-CFG @@ -139,29 +139,6 @@ "tm-plain" "tm-ps" "tmdecode")) -(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)) +(defvar PACKAGEDIR (install-get-default-package-directory)) ;;; SEMI-CFG ends here -- 1.7.10.4