* net/tramp-gvfs.el (tramp-gvfs-methods-mounttracker)

(tramp-gvfs-mountlocation-signature): Check `tramp-gvfs-enabled'
during initialization.

Fixes: debbugs:18774

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd535eafafa377e11df1f09d206e3d75d20c4184..7d198ddd5d1d32013d10df7dd51d2e32a5409f55 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-10-25  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-gvfs.el (tramp-gvfs-methods-mounttracker)
+       (tramp-gvfs-mountlocation-signature): Check `tramp-gvfs-enabled'
+       during initialization.  (Bug#18774)
+
 2014-10-25  Vincent Belaïche  <vincentb1@users.sourceforge.net>
 
        * ses.el (macroexp): add require for this package, so that

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 569fb684144a19755ca5f54891c7df3e5176c5f6..1b4c1694a922fd02d40356d64ab86387cd57be02 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -167,9 +167,10 @@
 ;; Introspection data exist since GVFS 1.14.  If there are no such
 ;; data, we expect an earlier interface.
 (defconst tramp-gvfs-methods-mounttracker
-  (dbus-introspect-get-method-names
-   :session tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker
-   tramp-gvfs-interface-mounttracker)
+  (and tramp-gvfs-enabled
+       (dbus-introspect-get-method-names
+       :session tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker
+       tramp-gvfs-interface-mounttracker))
   "The list of supported methods of the mount tracking interface.")
 
 (defconst tramp-gvfs-listmounts
@@ -187,9 +188,10 @@ It has been changed in GVFS 1.14.")
 It has been changed in GVFS 1.14.")
 
 (defconst tramp-gvfs-mountlocation-signature
-  (dbus-introspect-get-signature
-   :session tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker
-   tramp-gvfs-interface-mounttracker tramp-gvfs-mountlocation)
+  (and tramp-gvfs-enabled
+       (dbus-introspect-get-signature
+       :session tramp-gvfs-service-daemon tramp-gvfs-path-mounttracker
+       tramp-gvfs-interface-mounttracker tramp-gvfs-mountlocation))
   "The D-Bus signature of the \"mountLocation\" method.
 It has been changed in GVFS 1.14.")