emacs lisp command to copy dir and all subdir?

[Xah Lee <xahlee@gmail.com>]

is there a emacs lisp command to copy a whole dir? like unix's cp -R?

i started to write one:

(defun copy-dir (sourcedir destdir)
  "Copy all files from SOURCEDIR to DESTDIR.

The input dir should not end in a slash.
Example usage:
 (copy-dir
 \"/Users/xah/web/p/um\"
 \"/Users/xah/web/diklo/xx\")

Note: no consideration is taken about links, alias, or file perms."
  (mapc
   (lambda (x)
     (let ()
       (when (and (not (string-equal x ".")) (not (string-equal x
"..")))
         (copy-file
          (concat sourcedir "/" x) destdir) ) ) )
   (directory-files sourcedir) ) )

but it is hackish because of the checking with “.” and “..”,
but also realized this doesn't do sub dirs. In order to do subdir,
it'll prob end up with few hours more...

so, am wondering if there's a pre-made solutions?

Thanks.

  Xah
∑ http://xahlee.org/

☄