From 4614d5a5ed26252731d495d938a81e0ecefbf9cd Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 13 Sep 1998 05:52:11 +0000 Subject: [PATCH] (PACKAGEDIR): New variable. --- APEL-CFG | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/APEL-CFG b/APEL-CFG index 1cd53f1..3d46908 100644 --- a/APEL-CFG +++ b/APEL-CFG @@ -43,4 +43,18 @@ (setq APEL_DIR (expand-file-name APEL_PREFIX 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))) + ;;; APEL-CFG ends here -- 1.7.10.4