(PACKAGEDIR): New variable.

diff --git a/SEMI-CFG b/SEMI-CFG
index d56c948..1136373 100644 (file)
--- 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