diff options
| author | Michael Albinus | 2009-11-07 23:54:29 +0000 |
|---|---|---|
| committer | Michael Albinus | 2009-11-07 23:54:29 +0000 |
| commit | 55a57586c6a589cba3b626a47789aaf65b33b028 (patch) | |
| tree | 73b54d3ea1a63a215d1beb0cf78314df55a0f81b /lisp | |
| parent | eb99095dbd102b7784582cd874ced18bdfb6042c (diff) | |
| download | emacs-55a57586c6a589cba3b626a47789aaf65b33b028.tar.gz emacs-55a57586c6a589cba3b626a47789aaf65b33b028.zip | |
* net/tramp-fish.el (tramp-fish-handle-delete-directory):
* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Use
`tramp-compat-delete-directory'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index 45f30330b09..94f6f742017 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el | |||
| @@ -522,7 +522,8 @@ is no information where to trace the message.") | |||
| 522 | 522 | ||
| 523 | (defun tramp-gvfs-handle-delete-directory (directory &optional recursive) | 523 | (defun tramp-gvfs-handle-delete-directory (directory &optional recursive) |
| 524 | "Like `delete-directory' for Tramp files." | 524 | "Like `delete-directory' for Tramp files." |
| 525 | (delete-directory (tramp-gvfs-fuse-file-name directory) recursive)) | 525 | (tramp-compat-delete-directory |
| 526 | (tramp-gvfs-fuse-file-name directory) recursive)) | ||
| 526 | 527 | ||
| 527 | (defun tramp-gvfs-handle-delete-file (filename) | 528 | (defun tramp-gvfs-handle-delete-file (filename) |
| 528 | "Like `delete-file' for Tramp files." | 529 | "Like `delete-file' for Tramp files." |