From: morioka <morioka>
Date: Sun, 13 Sep 1998 05:52:11 +0000 (+0000)
Subject: (PACKAGEDIR): New variable.
X-Git-Tag: apel-8_18~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4614d5a5ed26252731d495d938a81e0ecefbf9cd;p=elisp%2Fapel.git

(PACKAGEDIR): New variable.
---

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