(byte-recompile-directory):

Print message about each directory, even in batch mode.

1 files changed, 7 insertions, 7 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index fa9f94e7ded..7bb196a1a28 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -9,7 +9,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the 
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.51 $")
+(defconst byte-compile-version "$Revision: 2.52 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1199,7 +1199,7 @@ recompile every `.el' file that already has a `.elc' file."
     (displaying-byte-compile-warnings
      (while directories
        (setq directory (car directories))
-       (or noninteractive (message "Checking %s..." directory))
+       (message "Checking %s..." directory)
        (let ((files (directory-files directory))
 	     source dest)
 	 (while files
@@ -1208,11 +1208,11 @@ recompile every `.el' file that already has a `.elc' file."
 		    (file-directory-p source)
 		    (not (file-symlink-p source)))
 	       ;; This file is a subdirectory.  Handle them differently.
-	       (if (or (null arg)
-		       (eq 0 arg)
-		       (y-or-n-p (concat "Check " source "? ")))
-		   (setq directories
-			 (nconc directories (list source))))
+	       (when (or (null arg)
+			 (eq 0 arg)
+			 (y-or-n-p (concat "Check " source "? ")))
+		 (setq directories
+		       (nconc directories (list source))))
 	     ;; It is an ordinary file.  Decide whether to compile it.
 	     (if (and (string-match emacs-lisp-file-regexp source)
 		      (not (auto-save-file-name-p source))