Mercurial > emacs

changeset 55077:6635869bd341

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(batch-byte-recompile-directory): Add byte-recompile-directory's opt `arg'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 21 Apr 2004 22:34:27 +0000
parents 913c2e3a059f
children 6fd8c9a09dac
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))