[Emacs-diffs] emacs/lisp/net ange-ftp.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/11 03:40:55

Modified files:
        lisp/net       : ange-ftp.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/ange-ftp.el?cvsroot=emacs&r1=1.108&r2=1.109

Patches:
Index: ange-ftp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -b -r1.108 -r1.109
--- ange-ftp.el 30 Aug 2009 14:21:37 -0000      1.108
+++ ange-ftp.el 11 Sep 2009 03:40:55 -0000      1.109
@@ -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