(byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files that...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 239f50c3c805a00d1e88d1342894ccea0ae23389..c5d8bfae7a7533832db2b1d3bf92afa5c94f8fbe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-02  Noah Friedman  <friedman@splode.com>
+
+       * emacs-lisp/bytecomp.el (byte-recompile-file): If bytecomp-arg is
+       nil, do not ask to recompile files that are not already compiled,
+       and do not recompile them.
+
 2010-11-02  Chong Yidong  <cyd@stupidchicken.com>
 
        * emacs-lisp/package.el (package-initialize): Ensure that

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 952b69f7ce3b447dc61c0208c9103a8c7ff6a895..aec6bdb2f3563366dc14b5f39560454362386fcd 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1626,9 +1626,10 @@ or 'no-byte-compile if the file did not need recompilation."
             (or bytecomp-force
                 (file-newer-than-file-p bytecomp-filename
                                          bytecomp-dest))
-          (or (eq 0 bytecomp-arg)
-              (y-or-n-p (concat "Compile "
-                                bytecomp-filename "? "))))
+          (and bytecomp-arg
+               (or (eq 0 bytecomp-arg)
+                   (y-or-n-p (concat "Compile "
+                                     bytecomp-filename "? ")))))
         (progn
           (if (and noninteractive (not byte-compile-verbose))
               (message "Compiling %s..." bytecomp-filename))