# HG changeset patch
# User Noah Friedman <friedman@splode.com>
# Date 1288738285 25200
# Node ID e282e3411e9a4ee4aa8ece476c384e3a4174b708
# Parent  f4305de1a43055e2bb62f7fa7eec6a53e9366d0a
(byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files that are not already compiled, and do not recompile them.

diff -r f4305de1a430 -r e282e3411e9a lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Nov 02 11:28:45 2010 +0000
+++ b/lisp/ChangeLog	Tue Nov 02 15:51:25 2010 -0700
@@ -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 -r f4305de1a430 -r e282e3411e9a lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Tue Nov 02 11:28:45 2010 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Tue Nov 02 15:51:25 2010 -0700
@@ -1626,9 +1626,10 @@
             (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))