Function: ange-ftp-dired-compress-file

ange-ftp-dired-compress-file is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-dired-compress-file NAME)

Documentation

Handler used by dired-compress-file.

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-dired-compress-file (name)
  "Handler used by `dired-compress-file'."
  (let ((parsed (ange-ftp-ftp-name name))
	conversion-func)
    (if (and parsed
	     (setq conversion-func
		   (cdr (assq (ange-ftp-host-type (car parsed))
			      ange-ftp-make-compressed-filename-alist))))
	(let* ((decision
		(save-match-data (funcall conversion-func name)))
	       (compressing (car decision))
	       (newfile (nth 1 decision)))
	  (if compressing
	      (ange-ftp-compress name newfile)
	    (ange-ftp-uncompress name newfile)))
      (let (file-name-handler-alist)
	(dired-compress-file name)))))