[Emacs-diffs] emacs/lisp/net ange-ftp.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/10/01 15:33:44

Modified files:
        lisp/net       : ange-ftp.el 

Log message:
        * net/ange-ftp.el (ange-ftp-delete-directory ): Add optional
        parameter RECURSIVE.  Implementation is missing.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/ange-ftp.el?cvsroot=emacs&r1=1.109&r2=1.110

Patches:
Index: ange-ftp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -b -r1.109 -r1.110
--- ange-ftp.el 11 Sep 2009 03:40:55 -0000      1.109
+++ ange-ftp.el 1 Oct 2009 15:33:44 -0000       1.110
@@ -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.