From ebf73f99d3c53739721a9dc9a991b855fa38ef59 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 11 Sep 1998 09:26:54 +0000 Subject: [PATCH] (PACKAGEDIR): New variable. --- FLIM-CFG | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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 -- 1.7.10.4