Function: url-file-asynch-callback

url-file-asynch-callback is a byte-compiled function defined in url-file.el.gz.

Signature

(url-file-asynch-callback X Y NAME BUFF FUNC ARGS &optional EFS)

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-file.el.gz
(defun url-file-asynch-callback (_x _y name buff func args &optional efs)
  (if (not (featurep 'ange-ftp))
      ;; EFS passes us an extra argument
      (setq name buff
	    buff func
	    func args
	    args efs))
  (with-current-buffer buff
    (goto-char (point-max))
    (insert-file-contents-literally name)
    (insert (format "Content-length: %d\n\n" (buffer-size)))
    (if (not (url-file-host-is-local-p (url-host url-current-object)))
	(condition-case ()
	    (delete-file name)
	  (error nil)))
    (apply func args)))