From 9d81c128df899c7af3092211b25c0712d31ba345 Mon Sep 17 00:00:00 2001
From: "Tom Breton (Tehom)" <tehom@panix.com>
Date: Fri, 24 Dec 2010 15:49:09 -0500
Subject: [PATCH] Check elinstall-proceed-p and *.el filename before doing
 autoloads.

---
 elinstall.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

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
-- 
2.11.4.GIT