diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-10-01 15:39:25 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-10-01 15:39:25 +0000 |
| commit | 93776a8c4a41889218bba1e270504590f303a1d4 (patch) | |
| tree | 3fc6e6006a7118b002b73de7b2901b64095ff4b5 | |
| parent | ecacb4d68cab62f395955efd302fbd9dc9c21d0f (diff) | |
| download | emacs-93776a8c4a41889218bba1e270504590f303a1d4.tar.gz | |
* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Handle
optional parameter RECURSIVE.
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." |