Mercurial > emacs
comparison lisp/net/ange-ftp.el @ 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 | 9902de48eab4 |
| children | 05719e53cf8b |
comparison
equal
deleted
inserted
replaced
| 104932:61bdc52b913e | 104933:5d527d3bf1fa |
|---|---|
| 4163 of the form (COMPRESSING NEWNAME). | 4163 of the form (COMPRESSING NEWNAME). |
| 4164 COMPRESSING should be t if the specified file should be compressed, | 4164 COMPRESSING should be t if the specified file should be compressed, |
| 4165 and nil if it should be uncompressed (that is, if it is a compressed file). | 4165 and nil if it should be uncompressed (that is, if it is a compressed file). |
| 4166 NEWNAME should be the name to give the new compressed or uncompressed file.") | 4166 NEWNAME should be the name to give the new compressed or uncompressed file.") |
| 4167 | 4167 |
| 4168 (declare-function dired-compress-file "dired-aux" (file)) | |
| 4169 | |
| 4168 (defun ange-ftp-dired-compress-file (name) | 4170 (defun ange-ftp-dired-compress-file (name) |
| 4171 "Handler used by `dired-compress-file'." | |
| 4169 (let ((parsed (ange-ftp-ftp-name name)) | 4172 (let ((parsed (ange-ftp-ftp-name name)) |
| 4170 conversion-func) | 4173 conversion-func) |
| 4171 (if (and parsed | 4174 (if (and parsed |
| 4172 (setq conversion-func | 4175 (setq conversion-func |
| 4173 (cdr (assq (ange-ftp-host-type (car parsed)) | 4176 (cdr (assq (ange-ftp-host-type (car parsed)) |