[Emacs-diffs] /srv/bzr/emacs/trunk r107733: * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply

[Michael Albinus]

------------------------------------------------------------
revno: 107733
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2012-04-02 10:50:26 +0200
message:
  * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply
  `tramp-compat-call-process' instead of `tramp-local-call-process'.
  Reported by Magnus Henoch <address@hidden>.
modified:
  lisp/ChangeLog
  lisp/net/tramp-gvfs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-01 02:44:24 +0000
+++ b/lisp/ChangeLog    2012-04-02 08:50:26 +0000
@@ -1,3 +1,9 @@
+2012-04-02  Michael Albinus  <address@hidden>
+
+       * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply
+       `tramp-compat-call-process' instead of `tramp-local-call-process'.
+       Reported by Magnus Henoch <address@hidden>.
+
 2012-04-01  Chong Yidong  <address@hidden>
 
        * files.el (file-in-directory-p): Rename from file-subdir-of-p.

=== modified file 'lisp/net/tramp-gvfs.el'
--- a/lisp/net/tramp-gvfs.el    2012-01-19 07:21:25 +0000
+++ b/lisp/net/tramp-gvfs.el    2012-04-02 08:50:26 +0000
@@ -1267,7 +1267,7 @@
     (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)))