From: Tom Breton (Tehom) <tehom@panix.com>
Date: Fri, 24 Dec 2010 21:39:12 +0000 (-0500)
Subject: Let `elinstall-x' shortcut when no work will be done.
X-Git-Url: https://repo.or.cz/w/elinstall.git/commitdiff_plain/2c783bfb532e5b3a2464f4082e038faf8c500474

Let `elinstall-x' shortcut when no work will be done.
---

diff --git a/elinstall.el b/elinstall.el
index 8dd8110..27167a5 100644
--- a/elinstall.el
+++ b/elinstall.el
@@ -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)