From: Tom Breton (Tehom) <tehom@panix.com>
Date: Fri, 24 Dec 2010 20:49:09 +0000 (-0500)
Subject: Check elinstall-proceed-p and *.el filename before doing autoloads.
X-Git-Url: https://repo.or.cz/w/elinstall.git/commitdiff_plain/9d81c128df899c7af3092211b25c0712d31ba345

Check elinstall-proceed-p and *.el filename before doing autoloads.
---

diff --git a/elinstall.el b/elinstall.el
index d45f012..ca5e9f7 100644
--- a/elinstall.el
+++ b/elinstall.el
@@ -1059,7 +1059,6 @@ Special variables are as noted in \"List of special variables\"."
 	 (and
 	    (file-readable-p full-path)
 	    (not (auto-save-file-name-p full-path)))
-	 ;;$$IMPROVE ME Use more of the control variables.
 	 (let*
 	    (
 	       (visited (get-file-buffer full-path))
@@ -1080,9 +1079,16 @@ Special variables are as noted in \"List of special variables\"."
 		     def-file))
 	       ;;Figure out whether to run some actions, by file local vars.
 	       (autoloads-p
-		  (ignore-errors
-		     (with-current-buffer buf 
-			(not no-update-autoloads))))
+		  (and
+		     (string-match emacs-lisp-file-regexp filename)
+		     (ignore-errors
+			(with-current-buffer buf 
+			   (not no-update-autoloads)))
+		     (elinstall-proceed-p 'autoloads
+			(list
+			   '( "Do autoloads for %s? ")
+			   filename))))
+	       
 	       (do-compile-p
 		  (and
 		     byte-compile