diff options
| author | Noah Friedman <friedman@splode.com> | 2010-11-02 15:51:25 -0700 |
|---|---|---|
| committer | Noah Friedman <friedman@splode.com> | 2010-11-02 15:51:25 -0700 |
| commit | fa14dc18009a53f217466263d04e53b2be98cbfa (patch) | |
| tree | f63be1171dde5a46ded6bea06ad04cd637da52d6 /lisp/emacs-lisp | |
| parent | 14782c5968660699138da8088864d7d68f943d95 (diff) | |
| download | emacs-fa14dc18009a53f217466263d04e53b2be98cbfa.tar.gz emacs-fa14dc18009a53f217466263d04e53b2be98cbfa.tar.bz2 emacs-fa14dc18009a53f217466263d04e53b2be98cbfa.zip | |
(byte-recompile-file): If bytecomp-arg is nil, do not ask to recompile files that are not already compiled, and do not recompile them.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 952b69f7ce3..aec6bdb2f35 100644 --- 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)) |