* net/tramp-gvfs.el (tramp-gvfs-send-command): Apply

`tramp-compat-call-process' instead of `tramp-local-call-process'.
Reported by Magnus Henoch <magnus.henoch@gmail.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1cc71be..a259288 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-04-02  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply
+       `tramp-compat-call-process' instead of `tramp-local-call-process'.
+       Reported by Magnus Henoch <magnus.henoch@gmail.com>.
+
 2012-04-01  Chong Yidong  <cyd@gnu.org>
 
        * files.el (file-in-directory-p): Rename from file-subdir-of-p.

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 396443e..6f3c5e0 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1267,7 +1267,7 @@ COMMAND is usually a command from the gvfs-* utilities.
     (with-current-buffer (tramp-get-buffer vec)
       (erase-buffer)
       (tramp-message vec 6 "%s %s" command (mapconcat 'identity args " "))
-      (setq result (apply 'tramp-local-call-process command nil t nil args))
+      (setq result (apply 'tramp-compat-call-process command nil t nil args))
       (tramp-message vec 6 "%s" (buffer-string))
       result)))