From: Michael Albinus Date: Mon, 2 Apr 2012 08:50:26 +0000 (+0200) Subject: * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply X-Git-Tag: emacs-24.0.96~111^2~61 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ca64e000cf1835c2ecd0617fe86c01f1f77f36d;p=emacs.git * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply `tramp-compat-call-process' instead of `tramp-local-call-process'. Reported by Magnus Henoch . --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1cc71bed1f8..a259288e985 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-04-02 Michael Albinus + + * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply + `tramp-compat-call-process' instead of `tramp-local-call-process'. + Reported by Magnus Henoch . + 2012-04-01 Chong Yidong * 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 396443e60e6..6f3c5e04236 100644 --- 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)))