Mercurial > emacs
changeset 105353:4f1a9f151253
* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Handle
optional parameter RECURSIVE.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 01 Oct 2009 15:39:25 +0000 |
| parents | f92b20f3ef80 |
| children | 5077632c39ef |
| files | lisp/net/tramp-gvfs.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/tramp-gvfs.el Thu Oct 01 15:35:35 2009 +0000 +++ b/lisp/net/tramp-gvfs.el Thu Oct 01 15:39:25 2009 +0000 @@ -520,9 +520,9 @@ newname) ok-if-already-exists keep-date preserve-uid-gid)) -(defun tramp-gvfs-handle-delete-directory (directory) +(defun tramp-gvfs-handle-delete-directory (directory &optional recursive) "Like `delete-directory' for Tramp files." - (delete-directory (tramp-gvfs-fuse-file-name directory))) + (delete-directory (tramp-gvfs-fuse-file-name directory) recursive)) (defun tramp-gvfs-handle-delete-file (filename) "Like `delete-file' for Tramp files."