Function: ange-ftp-delete-file

ange-ftp-delete-file is an interactive and byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-delete-file FILE &optional TRASH)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-delete-file (file &optional trash)
  (interactive (list (read-file-name "Delete file: " nil default-directory)
		     (null current-prefix-arg)))
  (setq file (expand-file-name file))
  (let ((parsed (ange-ftp-ftp-name file)))
    (if parsed
        (if (and delete-by-moving-to-trash trash)
	    (move-file-to-trash file)
	  (let* ((host (nth 0 parsed))
                 (user (nth 1 parsed))
                 (name (ange-ftp-quote-string (nth 2 parsed)))
                 (abbr (ange-ftp-abbreviate-filename file))
                 (result (ange-ftp-send-cmd host user
					    (list 'delete name)
					    (format "Deleting %s" abbr))))
	    (or (car result)
                (signal 'ftp-error
                        (list
                         "Removing old name"
                         (format "FTP Error: \"%s\"" (cdr result))
                         file)))
	    (ange-ftp-delete-file-entry file)))
      (ange-ftp-real-delete-file file trash))))