Merge from emacs--devo--0

[bpt/emacs.git] / lisp / emacs-lisp / autoload.el

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 30b7c7e..93ba83b 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -634,8 +634,9 @@ directory or directories specified."
 (defun batch-update-autoloads ()
   "Update loaddefs.el autoloads in batch mode.
 Calls `update-directory-autoloads' on the command line arguments."
-  (apply 'update-directory-autoloads command-line-args-left)
-  (setq command-line-args-left nil))
+  (let ((args command-line-args-left))
+    (setq command-line-args-left nil)
+    (apply 'update-directory-autoloads args)))
 
 (provide 'autoload)