(dired-compress-file): Declare.

(ange-ftp-dired-compress-file): Add doc string.

1 files changed, 3 insertions, 0 deletions

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 94525b540b8..fd7b83900d4 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -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))
         conversion-func)
     (if (and parsed