Let `elinstall-x' shortcut when no work will be done.
authorTom Breton (Tehom) <tehom@panix.com>
Fri, 24 Dec 2010 21:39:12 +0000 (24 16:39 -0500)
committerTom Breton (Tehom) <tehom@panix.com>
Fri, 24 Dec 2010 21:39:12 +0000 (24 16:39 -0500)
elinstall.el

index 8dd8110..27167a5 100644 (file)
@@ -1417,11 +1417,13 @@ Recurse just if RECURSE-DIRS-P"
       (elinstall-stage-update-deffiles
         (elinstall-stages->build-deffiles stages)
         use-load-path)
-      (elinstall-stage-arrange-preloads
-        (elinstall-stages->arrange-preloads stages)
-        (elinstall-get-deffile-list stages))
-      (elinstall-stage-byte-compile
-        (elinstall-stages->byte-compile stages))
+      (when (elinstall-proceed-at-all-p 'preloads)
+        (elinstall-stage-arrange-preloads
+           (elinstall-stages->arrange-preloads stages)
+           (elinstall-get-deffile-list stages)))
+      (when (elinstall-proceed-at-all-p 'byte-compile)
+        (elinstall-stage-byte-compile
+           (elinstall-stages->byte-compile stages)))
       t))
 ;;;_   , elinstall-package
 (defun elinstall-package (project-name path spec version-string)