# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 736994946 0
# Node ID 6489c9da34b9c8de4966afc2639d8ef1a9cdb8e5
# Parent  a0f174dc6ac56f074a23b15abd0d7954406b0f1c
(byte-recompile-directory): If ARG is non-nil, set it to its prefix
numeric value.  Test for ARG being zero with eq, not zerop.

diff -r a0f174dc6ac5 -r 6489c9da34b9 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Mon May 10 00:35:06 1993 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Mon May 10 00:49:06 1993 +0000
@@ -1065,6 +1065,8 @@
 for each such `.el' file, whether to compile it.  Prefix argument 0 means
 don't ask and compile the file anyway."
   (interactive "DByte recompile directory: \nP")
+  (if arg
+      (setq arg (prefix-numeric-value arg)))
   (save-some-buffers)
   (set-buffer-modified-p (buffer-modified-p)) ;Update the mode line.
   (let ((directories (list (expand-file-name directory)))
@@ -1082,7 +1084,7 @@
 	   (if (and (not (member (car files) '("." ".." "RCS" "CVS")))
 		    (file-directory-p source))
 	       (if (or (null arg)
-		       (eq arg 0)
+		       (eq 0 arg)
 		       (y-or-n-p (concat "Check " source "? ")))
 		   (setq directories
 			 (nconc directories (list source))))
@@ -1092,7 +1094,7 @@
 		      (if (file-exists-p dest)
 			  (file-newer-than-file-p source dest)
 			(and arg
-			     (or (zerop arg)
+			     (or (eq 0 arg)
 				 (y-or-n-p (concat "Compile " source "? "))))))
 		 (progn (byte-compile-file source)
 			(setq file-count (1+ file-count))