# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1257638069 0
# Node ID 471721be8fba65e4972cdc01f1dad595ec774df2
# Parent  1b0e58de42e64b8d24c1c048c21e81d8550a4dc5
* net/tramp-fish.el (tramp-fish-handle-delete-directory):
* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Use
`tramp-compat-delete-directory'.

diff -r 1b0e58de42e6 -r 471721be8fba lisp/net/tramp-gvfs.el
--- a/lisp/net/tramp-gvfs.el	Sat Nov 07 23:53:54 2009 +0000
+++ b/lisp/net/tramp-gvfs.el	Sat Nov 07 23:54:29 2009 +0000
@@ -522,7 +522,8 @@
 
 (defun tramp-gvfs-handle-delete-directory (directory &optional recursive)
   "Like `delete-directory' for Tramp files."
-  (delete-directory (tramp-gvfs-fuse-file-name directory) recursive))
+  (tramp-compat-delete-directory
+   (tramp-gvfs-fuse-file-name directory) recursive))
 
 (defun tramp-gvfs-handle-delete-file (filename)
   "Like `delete-file' for Tramp files."