* net/tramp-gvfs.el (top): Use timeout of 100 msec pinging GVFS

daemon.  Replace ping by checking for running service for bluez
and zeroconf.  (Bug#4239)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7eba8a..cb2b6eb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,27 @@
+2009-08-25  Michael Albinus  <michael.albinus@gmx.de>
+
+       * simple.el (process-file-side-effects): New defvar.
+
+       * dired-aux.el (dired-show-file-type):
+       * vc.el (vc-diff-internal):
+       * vc-arch.el (vc-arch-diff):
+       * vc-bzr.el (vc-bzr-sha1, vc-bzr-revision-completion-table):
+       * vc-cvs.el (vc-cvs-state, vc-cvs-diff, vc-cvs-revision-table):
+       * vc-git.el (vc-git-registered, vc-git-working-revision)
+       (vc-git-find-revision, vc-git-diff, vc-git-revision-table)
+       (vc-git--empty-db-p):
+       * vc-hooks.el (vc-user-login-name):
+       * vc-svn.el (vc-svn-registered, vc-svn-state)
+       (vc-svn-dir-extra-headers, vc-svn-find-revision):
+       * progmodes/grep.el (grep-probe): Let-bind
+       `process-file-side-effects' with nil.
+
+       * net/dbus.el (dbus-ping): Add optional parameter TIMEOUT.
+
+       * net/tramp-gvfs.el (top): Use timeout of 100 msec pinging GVFS
+       daemon.  Replace ping by checking for running service for bluez
+       and zeroconf.  (Bug#4239)
+
 2009-08-25  Kevin Ryde  <user42@zip.com.au>
 
        * net/dig.el (dig): Add autoload cookie.

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 3091197..8ef6545 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -144,7 +144,7 @@
   "The well known name of the GVFS daemon.")
 
 ;; Check that GVFS is available.
-(unless (dbus-ping :session tramp-gvfs-service-daemon)
+(unless (dbus-ping :session tramp-gvfs-service-daemon 100)
   (throw 'tramp-loading nil))
 
 (defconst tramp-gvfs-path-mounttracker "/org/gtk/vfs/mounttracker"
@@ -1177,7 +1177,7 @@ be used."
    (tramp-bluez-list-devices)))
 
 ;; Add completion function for OBEX method.
-(when (dbus-ping :system tramp-bluez-service)
+(when (member tramp-bluez-service (dbus-list-known-names :system))
   (tramp-set-completion-function
    "obex" '((tramp-bluez-parse-device-names ""))))
 
@@ -1210,7 +1210,7 @@ be used."
    (zeroconf-list-services "_webdav._tcp")))
 
 ;; Add completion function for DAV and DAVS methods.
-(when (dbus-ping :system zeroconf-service-avahi)
+(when (member zeroconf-service-avahi (dbus-list-known-names :system))
   (zeroconf-init tramp-gvfs-zeroconf-domain)
   (tramp-set-completion-function
    "sftp" '((tramp-zeroconf-parse-workstation-device-names "")))