# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1082586867 0
# Node ID 6635869bd341b89c11c195cae8705bf7e8a017ed
# Parent  913c2e3a059fa592083dbc1a2b045643e0152be3
(batch-byte-recompile-directory): Add byte-recompile-directory's opt `arg'.

diff -r 913c2e3a059f -r 6635869bd341 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Apr 21 22:31:19 2004 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Apr 21 22:34:27 2004 +0000
@@ -3991,7 +3991,7 @@
        nil))))
 
 ;;;###autoload
-(defun batch-byte-recompile-directory ()
+(defun batch-byte-recompile-directory (&optional arg)
   "Run `byte-recompile-directory' on the dirs remaining on the command line.
 Must be used only with `-batch', and kills Emacs on completion.
 For example, invoke `emacs -batch -f batch-byte-recompile-directory .'."
@@ -4002,7 +4002,7 @@
   (or command-line-args-left
       (setq command-line-args-left '(".")))
   (while command-line-args-left
-    (byte-recompile-directory (car command-line-args-left))
+    (byte-recompile-directory (car command-line-args-left) arg)
     (setq command-line-args-left (cdr command-line-args-left)))
   (kill-emacs 0))