From 4cf9eaac707f705ef7eb8a6c86bc4e438c0f06b8 Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Fri, 24 Dec 2010 14:44:16 -0500
Subject: [PATCH] Towards having elinstall-proceed-p take simpler parameters

---
 elinstall.el | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/elinstall.el b/elinstall.el
index 99c1c87..e3bd056 100644
--- a/elinstall.el
+++ b/elinstall.el
@@ -1047,7 +1047,18 @@ Special variables are as noted in \"List of special variables\"."
 			      (file-exists-p dest) 
 			      (file-newer-than-file-p full-path dest)))
 			(concat "Recompile " filename "? ")
-			(concat "Already compiled " filename ".")))))
+			(concat "Already compiled " filename "."))
+		     '(elinstall-proceed-p 'byte-compile 
+			 (list
+			    '( "Compile %s? "
+				"Recompile %s? "
+				"Already compiled %s.")
+			    filename)
+			 (let
+			    ((dest (byte-compile-dest-file full-path)))
+			    (and 
+			       (file-exists-p dest) 
+			       (file-newer-than-file-p full-path dest)))))))
 	    
 	    (prog1
 	       (list
@@ -1360,6 +1371,13 @@ Recurse just if RECURSE-DIRS-P"
 	 (elinstall-already-installed project-name) 
 	 (format "Re-install %s? " project-name)
 	 (format "Already installed %s. " project-name))
+      '(elinstall-proceed-p 'install
+	  (list 
+	     '("Install %s? " 
+		 "Re-install %s? " 
+		 "Already installed %s.")
+	     project-name)
+	  (elinstall-already-installed project-name))
       (elinstall-x 
 	 path 
 	 `(def-file "loaddefs.el" (if-used ,project-name) ,spec) 
-- 
2.11.4.GIT