From 7e596924ac189b436079af629da4a1ef81de6f73 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 11 Sep 2009 03:40:55 +0000 Subject: [PATCH] (dired-compress-file): Declare. (ange-ftp-dired-compress-file): Add doc string. --- lisp/net/ange-ftp.el | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.39.5