From: morioka <morioka>
Date: Fri, 11 Sep 1998 09:26:54 +0000 (+0000)
Subject: (PACKAGEDIR): New variable.
X-Git-Tag: flim-1_9_2~20
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=ebf73f99d3c53739721a9dc9a991b855fa38ef59

(PACKAGEDIR): New variable.
---

diff --git a/FLIM-CFG b/FLIM-CFG
index 0e81588..37ddd2a 100644
--- 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