Mercurial > emacs
comparison lisp/net/tramp-gvfs.el @ 105896:471721be8fba
* net/tramp-fish.el (tramp-fish-handle-delete-directory):
* net/tramp-gvfs.el (tramp-gvfs-handle-delete-directory): Use
`tramp-compat-delete-directory'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sat, 07 Nov 2009 23:54:29 +0000 |
| parents | 4f1a9f151253 |
| children | b6d8539323de |
comparison
equal
deleted
inserted
replaced
| 105895:1b0e58de42e6 | 105896:471721be8fba |
|---|---|
| 520 newname) | 520 newname) |
| 521 ok-if-already-exists keep-date preserve-uid-gid)) | 521 ok-if-already-exists keep-date preserve-uid-gid)) |
| 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." |
| 529 (delete-file (tramp-gvfs-fuse-file-name filename))) | 530 (delete-file (tramp-gvfs-fuse-file-name filename))) |
| 530 | 531 |