Mercurial > emacs
changeset 23486:427877c8fe78
(byte-recompile-directory):
Print message about each directory, even in batch mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Oct 1998 20:20:46 +0000 |
| parents | 52bc669c1549 |
| children | 6bed0cb78b71 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sat Oct 17 20:17:09 1998 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sat Oct 17 20:20:46 1998 +0000 @@ -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 @@ (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 @@ (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))