From: morioka <morioka>
Date: Fri, 11 Sep 1998 23:45:07 +0000 (+0000)
Subject: (PACKAGEDIR): New variable.
X-Git-Tag: semi-1_8_6~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3e0034b106064dc04820155d2b07075999dc6a43;p=elisp%2Fsemi.git

(PACKAGEDIR): New variable.
---

diff --git a/SEMI-CFG b/SEMI-CFG
index d56c948..1136373 100644
--- a/SEMI-CFG
+++ b/SEMI-CFG
@@ -163,4 +163,18 @@
 	"tm-plain" "tm-ps"
 	"tmdecode"))
 
+(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)))
+
 ;;; SEMI-CFG ends here