diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-10-01 15:33:44 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-10-01 15:33:44 +0000 |
| commit | c90a8a9f8723eaad88b077f0f0b37cb543bd447f (patch) | |
| tree | 084546690b13375e335132439e08531fd77cb30d | |
| parent | 9d8f3bd914a0c28139c0129bffe182303fc535bf (diff) | |
| download | emacs-c90a8a9f8723eaad88b077f0f0b37cb543bd447f.tar.gz | |
* net/ange-ftp.el (ange-ftp-delete-directory ): Add optional
parameter RECURSIVE. Implementation is missing.
| -rw-r--r-- | lisp/net/ange-ftp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index fd7b83900d4..72c6c032bbe 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4064,7 +4064,7 @@ directory, so that Emacs will know its current contents." (ange-ftp-add-file-entry dir t)) (ange-ftp-real-make-directory dir))))) -(defun ange-ftp-delete-directory (dir) +(defun ange-ftp-delete-directory (dir &optional recursive) (if (file-directory-p dir) (let ((parsed (ange-ftp-ftp-name dir))) (if parsed @@ -4083,6 +4083,7 @@ directory, so that Emacs will know its current contents." (ange-ftp-real-file-name-as-directory (nth 2 parsed))))) (abbr (ange-ftp-abbreviate-filename dir)) + ;; TODO: handle RECURSIVE. (result (ange-ftp-send-cmd host user (list 'rmdir name) (format "Removing directory %s" @@ -4093,7 +4094,7 @@ directory, so that Emacs will know its current contents." dir (cdr result)))) (ange-ftp-delete-file-entry dir t)) - (ange-ftp-real-delete-directory dir))) + (ange-ftp-real-delete-directory dir recursive))) (error "Not a directory: %s" dir))) ;; Make a local copy of FILE and return its name. |