From: Glenn Morris <rgm@gnu.org>
Date: Fri, 11 Sep 2009 03:40:55 +0000 (+0000)
Subject: (dired-compress-file): Declare.
X-Git-Tag: emacs-pretest-23.1.90~1400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e596924ac189b436079af629da4a1ef81de6f73;p=emacs.git

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

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