From 0d4e22de71cba8a850612a2ef8a769e415a96ad8 Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Fri, 12 Nov 2010 14:12:13 -0500 Subject: [PATCH] Added load-path spec --- elinstall.el | 23 +++++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) diff --git a/elinstall.el b/elinstall.el index 80e93e8..a27de0b 100644 --- a/elinstall.el +++ b/elinstall.el @@ -855,8 +855,8 @@ DIR should be an absolute path." (directory-files dir nil "\\.info\\(-[0-9]+\\)?\\(\\.gz\\)?$"))) ;;;_ . Workers -;;;_ , elinstall-find-actions-for-file -(defun elinstall-find-actions-for-file +;;;_ , elinstall-actions-for-source-file +(defun elinstall-actions-for-source-file (filename load-path-element dir parameters) "Return a list of actions to do for FILENAME. LOAD-PATH-ELEMENT, DIR, and PARAMETERS are interpreted as in @@ -935,7 +935,7 @@ surrounds DIR. It may not yet have been added to load-path." (cdr spec)))) (file - (elinstall-find-actions-for-file + (elinstall-actions-for-source-file filename load-path-element dir parameters)) (dir @@ -998,13 +998,28 @@ surrounds DIR. It may not yet have been added to load-path." (apply #'nconc (mapcar #'(lambda (filename) - (elinstall-find-actions-for-file + (elinstall-actions-for-source-file filename load-path-element dirname parameters)) elisp-source-files))))) + + (load-path + (append + `((add-to-load-path + (elinstall-get-parameter + parameters 'def-file) + path)) + + (elinstall-find-actions-by-spec + path + path ;;load-path-element + dir + (elinstall-get-parameter + parameters 'def-file)))) + (def-file (let ((new-def-file -- 2.11.4.GIT