Function: ange-ftp-file-local-copy

ange-ftp-file-local-copy is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-file-local-copy FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
;; Make a local copy of FILE and return its name.

(defun ange-ftp-file-local-copy (file)
  (let* ((fn1 (expand-file-name file))
	 (pa1 (ange-ftp-ftp-name fn1)))
    (if pa1
	(let ((tmp1 (ange-ftp-make-tmp-name (car pa1)
					    (file-name-extension file t))))
	  (ange-ftp-copy-file-internal fn1 tmp1 t nil
				       (format "Getting %s" fn1))
	  tmp1))))