;; This file: http://user.it.uu.se/~embe8573/conf/emacs-init/batch.el

;; emacs --batch -u USER **/*.el -eval '(do-to-all-batch-files (quote f))'

(require 'cl-macs)

(defun do-to-all-batch-files (f)
  (cl-dolist (file-rel (cdr command-line-args))  ; drop initial 'emacs'
    (let ((file (concat command-line-default-directory file-rel)))
      (when (file-exists-p file)                 ; drop stuff that isn't files
        (find-file file)
        f) )))