* net/tramp-gvfs.el (top):

* net/xesam.el (xesam-dbus-unique-names): Suppress D-Bus errors
when loading package.  (Bug#14447)

2 files changed, 7 insertions, 5 deletions

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 7c3b393873c..16cf0c00bb0 100644
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -150,9 +150,10 @@
 ;; Check that GVFS is available.  D-Bus integration is available since
 ;; Emacs 23 on some system types.  We don't call `dbus-ping', because
 ;; this would load dbus.el.
-(unless (and (tramp-compat-funcall 'dbus-get-unique-name :session)
-             (or (tramp-compat-process-running-p "gvfs-fuse-daemon")
-                 (tramp-compat-process-running-p "gvfsd-fuse")))
+(unless (ignore-errors
+          (and (tramp-compat-funcall 'dbus-get-unique-name :session)
+               (or (tramp-compat-process-running-p "gvfs-fuse-daemon")
+                   (tramp-compat-process-running-p "gvfsd-fuse"))))
   (tramp-compat-user-error "Package `tramp-gvfs' not supported"))
 
 (defconst tramp-gvfs-path-mounttracker "/org/gtk/vfs/mounttracker"
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index 461cadd21ad..bcb16fc45da 100644
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -264,8 +264,9 @@ fields are supported.")
 (declare-function dbus-get-unique-name "dbusbind.c" (bus))
 
 (defvar xesam-dbus-unique-names
-  (list (cons :system (dbus-get-unique-name :system))
-        (cons :session (dbus-get-unique-name :session)))
+  (ignore-errors
+    (list (cons :system (dbus-get-unique-name :system))
+          (cons :session (dbus-get-unique-name :session))))
   "The unique names, under which Emacs is registered at D-Bus.")
 
 (defun xesam-dbus-call-method (&rest args)