From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 21 Apr 2004 22:34:27 +0000 (+0000)
Subject: (batch-byte-recompile-directory): Add byte-recompile-directory's opt `arg'.
X-Git-Tag: ttn-vms-21-2-B4~6654
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6f8e359068d4ce8c5253db802cf540133aae82c6;p=emacs.git

(batch-byte-recompile-directory): Add byte-recompile-directory's opt `arg'.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 07c361fc054..f6e2946aa8b 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3991,7 +3991,7 @@ already up-to-date."
        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 @@ For example, invoke `emacs -batch -f batch-byte-recompile-directory .'."
   (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))