Mercurial > emacs
changeset 111322:e282e3411e9a
(byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files that are not already compiled, and do not recompile them.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Tue, 02 Nov 2010 15:51:25 -0700 |
| parents | f4305de1a430 |
| children | 34e6178fa437 |
| files | lisp/ChangeLog lisp/emacs-lisp/bytecomp.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))