Function: ange-ftp-copy-files-async

ange-ftp-copy-files-async is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-copy-files-async OKAY-P LINE VERBOSE-P FILES)

Documentation

Copy some files in the background.

OKAY-P must be t, and LINE does not matter. They are here to make this
 function a valid CONT argument for ange-ftp-raw-send-cmd.
If VERBOSE-P is non-nil, print progress report in the echo area.
 When all the files have been copied already, a message is shown anyway.
FILES is a list of files to copy in the form
  (from-file to-file ok-if-already-exists keep-date)
E.g.,
  (ange-ftp-copy-files-async t nil t '(("a" "b" t t) ("c" "d" t t)))

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-copy-files-async (okay-p line verbose-p files)
  "Copy some files in the background.
OKAY-P must be t, and LINE does not matter.  They are here to make this
 function a valid CONT argument for `ange-ftp-raw-send-cmd'.
If VERBOSE-P is non-nil, print progress report in the echo area.
 When all the files have been copied already, a message is shown anyway.
FILES is a list of files to copy in the form
  (from-file to-file ok-if-already-exists keep-date)
E.g.,
  (ange-ftp-copy-files-async t nil t \\='((\"a\" \"b\" t t) (\"c\" \"d\" t t)))"
  (unless okay-p (error "%s: %s" 'ange-ftp-copy-files-async line))
  (if files
      (let* ((ff (car files))
             (from-file            (nth 0 ff))
             (to-file              (nth 1 ff))
             (ok-if-already-exists (nth 2 ff))
             (keep-date            (nth 3 ff)))
        (ange-ftp-copy-file-internal
         from-file to-file ok-if-already-exists keep-date
         (and verbose-p (format "%s --> %s" from-file to-file))
         (list 'ange-ftp-copy-files-async verbose-p (cdr files))
         t))
    (message "%s: done" 'ange-ftp-copy-files-async)))