Mercurial > emacs

changeset 105350:05719e53cf8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/ange-ftp.el (ange-ftp-delete-directory ): Add optional parameter RECURSIVE. Implementation is missing.
author Michael Albinus <michael.albinus@gmx.de>
date Thu, 01 Oct 2009 15:33:44 +0000
parents 8396120e3182
children 4eaec3ddca1c
files lisp/net/ange-ftp.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el	Thu Oct 01 15:08:13 2009 +0000
+++ b/lisp/net/ange-ftp.el	Thu Oct 01 15:33:44 2009 +0000
@@ -4064,7 +4064,7 @@
 	    (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 @@
 			    (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 @@
 					  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.