Function: ange-ftp-set-xfer-size

ange-ftp-set-xfer-size is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-set-xfer-size HOST USER BYTES)

Documentation

Set the size of the next FTP transfer in bytes.

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-set-xfer-size (host user bytes)
  "Set the size of the next FTP transfer in bytes."
  (let ((proc (ange-ftp-get-process host user)))
    (when proc
      (let ((buf (process-buffer proc)))
	(when buf
	  (with-current-buffer buf
	    (setq ange-ftp-xfer-size
		  ;; For very large files, BYTES can be a float.
		  (if (integerp bytes)
		      (ash bytes -10)
		    (/ bytes 1024)))))))))