Bugfix: `preload-compile' should be `preload' Changed comments. Added dummies to...
authorTom Breton (Tehom) <tehom@panix.com>
Fri, 24 Dec 2010 21:26:17 +0000 (24 16:26 -0500)
committerTom Breton (Tehom) <tehom@panix.com>
Fri, 24 Dec 2010 21:26:17 +0000 (24 16:26 -0500)
elinstall.el

index ba9f75a..7e63daa 100644 (file)
@@ -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)