* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Handle

optional parameter RECURSIVE.

* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Handle
optional parameter RECURSIVE.
93776a8c · Michael Albinus · ecacb4d6 · 93776a8c
Commit 93776a8c authored Oct 01, 2009 by Michael Albinus
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/net/tramp-gvfs.el lisp/net/tramp-gvfs.el +2 -2

No files found.
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -520,9 +520,9 @@ is no information where to trace the message.")
     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."