(PACKAGEDIR): New variable.

diff --git a/FLIM-CFG b/FLIM-CFG
index 0e81588..37ddd2a 100644 (file)
--- a/FLIM-CFG
+++ b/FLIM-CFG
@@ -49,4 +49,18 @@
 
 (setq FLIM_DIR (expand-file-name FLIM_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)))
+
 ;;; FLIM-CFG ends here