Function version of `eval-after-autoload-if-found'

eval-after-autoload-func.el

;;
;; function version of `eval-after-autoload-if-found'
;;
;; Example with after-body.
;; (eval-after-autoload-if-found
;;  '(cycle-buffer cycle-buffer-backward) "cycle-buffer" nil t nil
;;  '((setq cycle-buffer-allow-visible t)
;;    (setq cycle-buffer-show-length 12)
;;    (setq cycle-buffer-show-format '(" <(%s)>" . " %s"))))
;; Example without after-body.
;; (eval-after-autoload-if-found
;;  '(smooth-scrolling) "smooth-scrolling" nil t)
;;
(defun eval-after-autoload-if-found (functions file &optional docstring interactive type after-body)
  "Set up autoload and eval-after-load for FUNCTIONS iff. FILE has found."
  (when (locate-library file)
    (mapc (lambda (func)
            (autoload func file docstring interactive type))
          (if (listp functions)
              functions
            (list functions)))
    (when after-body
      (eval-after-load file `(progn ,@after-body)))
    t))

L19 の functions があると，

Wrong number of arguments: mapc, 3

と表示されて動かないようです．消すと動きますけどもどうでしょう．

ありがとうございます。
(if (listp functions)以下を追加したときに消し忘れてたみたいです。