From 3e0034b106064dc04820155d2b07075999dc6a43 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 11 Sep 1998 23:45:07 +0000 Subject: [PATCH] (PACKAGEDIR): New variable. --- SEMI-CFG | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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 -- 1.7.10.4