From c2f0ecd80c7ca83508fa542c88107e0d1565d6ea Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Fri, 24 Dec 2010 16:26:17 -0500
Subject: [PATCH] Bugfix: `preload-compile' should be `preload' Changed
 comments.  Added dummies to customization.

---
 elinstall.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/elinstall.el b/elinstall.el
index ba9f75a..7e63daa 100644
--- a/elinstall.el
+++ b/elinstall.el
@@ -90,6 +90,8 @@
 		   (const preloads)
 		   (const load-path)
 		   (const info-path)
+		   (const customizations)
+		   (const tests)
 		   (const :tag "Use as default" t))
 		(choice
 		   (const 
@@ -801,7 +803,7 @@ PRIORITY must be an integer or nil."
 	 ;;$$IMPROVE ME The condition here is really not updating but
 	 ;;bulldozing a possibly different symlink.  Add another
 	 ;;treatment symbol meaning to bulldoze what's in the way.
-	 ((elinstall-proceed-p 'preloads-compile 
+	 ((elinstall-proceed-p 'preloads
 	     (list
 		'( "Symlink %s? "
 		    "Really overwrite %s? "
@@ -1167,6 +1169,10 @@ Recurse just if RECURSE-DIRS-P"
 	       load-path-element)))
 	       
       (append
+	 ;;$$IMPROVE ME - check `elinstall-proceed-p'.  But even if
+	 ;;that says no, we still must use it as our load-path
+	 ;;element, we just don't add it to def-file.
+
 	 ;;Sometimes arrange to add this directory to load-path.
 	 (if load-path-here-p
 	    `((add-to-load-path
@@ -1174,7 +1180,8 @@ Recurse just if RECURSE-DIRS-P"
 		 ,load-path-element))
 	    '())
 
-	 ;;$$IMPROVE ME - be controlled by a control variable.
+	 ;;$$IMPROVE ME - check a control variable and
+	 ;;`elinstall-proceed-p'. 
 	 ;;Sometimes add this directory to info path.
 	 (if
 	    (elinstall-dir-has-info dirname)
-- 
2.11.4.GIT