Mercurial > emacs
changeset 104933:5d527d3bf1fa
(dired-compress-file): Declare.
(ange-ftp-dired-compress-file): Add doc string.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 11 Sep 2009 03:40:55 +0000 |
| parents | 61bdc52b913e |
| children | 05d4f1d2bf6c |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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