(dired-compress-file): Declare.

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

(dired-compress-file): Declare.
(ange-ftp-dired-compress-file): Add doc string.
7e596924 · Glenn Morris · dccbf237 · 7e596924
Commit 7e596924 authored Sep 11, 2009 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

lisp/net/ange-ftp.el lisp/net/ange-ftp.el +3 -0

No files found.
--- 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