# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1252640455 0
# Node ID 5d527d3bf1fa0d6a39d18d6e5f074897e5b65fd7
# Parent  61bdc52b913e4850598c899dcc89f069100db16a
(dired-compress-file): Declare.
(ange-ftp-dired-compress-file): Add doc string.

diff -r 61bdc52b913e -r 5d527d3bf1fa lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Fri Sep 11 03:40:35 2009 +0000
+++ b/lisp/net/ange-ftp.el	Fri Sep 11 03:40:55 2009 +0000
@@ -4165,7 +4165,10 @@
 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