From 5ca64e000cf1835c2ecd0617fe86c01f1f77f36d Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 2 Apr 2012 10:50:26 +0200 Subject: [PATCH] * net/tramp-gvfs.el (tramp-gvfs-send-command): Apply `tramp-compat-call-process' instead of `tramp-local-call-process'. Reported by Magnus Henoch . --- lisp/ChangeLog | 6 ++++++ lisp/net/tramp-gvfs.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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))) -- 2.11.4.GIT