From a6bbedc58ef9a269a3b0a1497d2ce8c3670642bb Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Thu, 11 Nov 2010 22:48:27 -0500
Subject: [PATCH] Only preload the default deffile if it was used.  See
 `if-used'.

---
 elinstall.el | 22 +++++++++++++++-------
 1 file changed, 15 insertions(+), 7 deletions(-)

diff --git a/elinstall.el b/elinstall.el
index daeaa20..19e1807 100644
--- a/elinstall.el
+++ b/elinstall.el
@@ -668,13 +668,21 @@ BASENAME and PRIORITY are used as arguments to
       #'(lambda (act)
 	   (case (car act)
 	      (preload-file
-		 (let
-		    ((proceed (car act)))
-		    ;;$$TEST whether to proceed
-		    (apply
-		       #'elinstall-arrange-preload
-		       force
-		       (cddr act))))
+		 (let*
+		    (  (filename
+			  (caddr act))
+		       (proceed 
+			  (case (car act)
+			     (t t)
+			     ((nil) nil)
+			     (if-used
+				(member filename deffiles-used)))))
+
+		    (when proceed
+		       (apply
+			  #'elinstall-arrange-preload
+			  force
+			  (cddr act)))))
 	      (t
 		 (error
 		    "elinstall-stage-arrange-preloads: Action not
-- 
2.11.4.GIT