From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 1 Oct 2009 15:39:25 +0000 (+0000)
Subject: * net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Handle
X-Git-Tag: emacs-pretest-23.1.90~1009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93776a8c4a41889218bba1e270504590f303a1d4;p=emacs.git

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

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 8ef65459cb7..45f30330b09 100644
--- 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."