From 99d1941eee0b89db29026a7de4bc08d008fd5dda Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Thu, 11 Nov 2010 20:06:27 -0500 Subject: [PATCH] Added default def-file spec just for project entry point. --- elinstall.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/elinstall.el b/elinstall.el index 2b0b872..bbb9e39 100644 --- a/elinstall.el +++ b/elinstall.el @@ -923,8 +923,7 @@ surrounds DIR. It may not yet have been added to load-path." "Do all the actions in SEGMENT. FORCE has its usual meaning. USE-LOAD-PATH is the effective load-path." - - ;;$$IMPROVE ME - this will have to know the additions to load-path. + (let* ((deffile (car segment))) (if (stringp deffile) @@ -977,7 +976,8 @@ USE-LOAD-PATH is the effective load-path." (mapcar #'(lambda (segment) (elinstall-do-segment segment force use-load-path)) - segment-list))) + segment-list) + t)) ;;;_ . Entry points ;;;_ , elinstall @@ -1005,7 +1005,10 @@ development." force (not (elinstall-already-installed project-name))) (yes-or-no-p (format "Re-install %s? " project-name))) - (elinstall-x path spec force) + (elinstall-x + path + `(def-file "loaddefs.el" ,project-name ,spec) + force) (elinstall-record-installed project-name))) -- 2.11.4.GIT