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

This commit is contained in:
Noah Friedman 2010-11-02 15:51:25 -07:00
parent 14782c5968
commit fa14dc1800
2 changed files with 10 additions and 3 deletions

View file

@ -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))