auto-install.elをバッチモードで動かす

めも

emacs --batch -no-init-file -no-site-file --directory ~/.emacs.d/elisp/ \
--eval "
(progn
  (require 'auto-install)
  (require 'cl)
  (setq auto-install-directory (concat (car load-path) \\"/\\")
        auto-install-save-confirm nil
        auto-install-package-name-list nil
        auto-install-install-confirm nil)
  (auto-install-update-emacswiki-package-name nil)
  (auto-install-from-url \\"http://www.emacswiki.org/emacs/download/auto-install.el\\")
  (while (reduce '(lambda (x y) (or x y))
		 (mapcar '(lambda (b) (assoc 'auto-install-download-buffer
                                             (buffer-local-variables b)))
                         (buffer-list)))
    (sit-for 1)))
"