Commit 7e596924 authored by Glenn Morris's avatar Glenn Morris
Browse files

(dired-compress-file): Declare.

(ange-ftp-dired-compress-file): Add doc string.
parent dccbf237
......@@ -4165,7 +4165,10 @@ COMPRESSING should be t if the specified file should be compressed,
and nil if it should be uncompressed (that is, if it is a compressed file).
NEWNAME should be the name to give the new compressed or uncompressed file.")
(declare-function dired-compress-file "dired-aux" (file))
(defun ange-ftp-dired-compress-file (name)
"Handler used by `dired-compress-file'."
(let ((parsed (ange-ftp-ftp-name name))
(if (and parsed
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment