[Emacs-diffs] /srv/bzr/emacs/trunk r102223: (byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files that are not already compiled, and do not recompile them.

[Noah Friedman]

------------------------------------------------------------
revno: 102223
committer: Noah Friedman <address@hidden>
branch nick: trunk
timestamp: Tue 2010-11-02 15:51:25 -0700
message:
  (byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files 
that are not already compiled, and do not recompile them.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/bytecomp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-02 01:50:26 +0000
+++ b/lisp/ChangeLog    2010-11-02 22:51:25 +0000
@@ -1,3 +1,9 @@
+2010-11-02  Noah Friedman  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/package.el (package-initialize): Ensure that

=== modified file 'lisp/emacs-lisp/bytecomp.el'
--- a/lisp/emacs-lisp/bytecomp.el       2010-11-01 02:55:12 +0000
+++ b/lisp/emacs-lisp/bytecomp.el       2010-11-02 22:51:25 +0000
@@ -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))