diff options
| author | Michael Albinus | 2009-06-24 05:12:51 +0000 |
|---|---|---|
| committer | Michael Albinus | 2009-06-24 05:12:51 +0000 |
| commit | d984860028f1c44bc234f1ca0b8cedc5fb0219d8 (patch) | |
| tree | de2dec3338082fad9adef2fca1a6d4f67a1bc123 /lisp/net | |
| parent | f084f942444b667b3f0338b32b1966da0d3e67b7 (diff) | |
| download | emacs-d984860028f1c44bc234f1ca0b8cedc5fb0219d8.tar.gz emacs-d984860028f1c44bc234f1ca0b8cedc5fb0219d8.zip | |
* net/tramp-gvfs.el (tramp-gvfs-handle-make-directory): Use `dir'
but `filename'.
Diffstat (limited to 'lisp/net')
| -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 f0697f259fb..640a281594b 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el | |||
| @@ -620,13 +620,13 @@ is no information where to trace the message.") | |||
| 620 | (tramp-gvfs-fuse-file-name dir) parents) | 620 | (tramp-gvfs-fuse-file-name dir) parents) |
| 621 | ;; Error case. Let's try it with the GVFS utilities. | 621 | ;; Error case. Let's try it with the GVFS utilities. |
| 622 | (error | 622 | (error |
| 623 | (with-parsed-tramp-file-name filename nil | 623 | (with-parsed-tramp-file-name dir nil |
| 624 | (tramp-message v 4 "`make-directory' failed, trying `gvfs-mkdir'") | 624 | (tramp-message v 4 "`make-directory' failed, trying `gvfs-mkdir'") |
| 625 | (unless | 625 | (unless |
| 626 | (zerop | 626 | (zerop |
| 627 | (tramp-local-call-process | 627 | (tramp-local-call-process |
| 628 | "gvfs-mkdir" nil (tramp-get-buffer v) nil | 628 | "gvfs-mkdir" nil (tramp-get-buffer v) nil |
| 629 | (tramp-gvfs-url-file-name filename))) | 629 | (tramp-gvfs-url-file-name dir))) |
| 630 | (signal (car err) (cdr err))))))) | 630 | (signal (car err) (cdr err))))))) |
| 631 | 631 | ||
| 632 | (defun tramp-gvfs-handle-rename-file | 632 | (defun tramp-gvfs-handle-rename-file |