[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net ange-ftp.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net ange-ftp.el |
Date: |
Thu, 01 Oct 2009 15:33:44 +0000 |
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.
- [Emacs-diffs] emacs/lisp/net ange-ftp.el,
Michael Albinus <=