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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44dd2c6..a5a3bac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-05-23  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-gvfs.el (top):
+       * net/xesam.el (xesam-dbus-unique-names): Suppress D-Bus errors
+       when loading package.  (Bug#14447)
+
 2013-05-23  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/js.el: No need to load comint when compiling.
@@ -1373,7 +1379,7 @@
        * net/tramp-sh.el (tramp-perl-pack, tramp-perl-unpack): New defconst.
        (tramp-local-coding-commands, tramp-remote-coding-commands): Use them.
        (tramp-sh-handle-file-local-copy, tramp-sh-handle-write-region):
-       (tramp-find-inline-compress):Improve traces.
+       (tramp-find-inline-compress): Improve traces.
        (tramp-maybe-send-script): Check for Perl binary.
        (tramp-get-inline-coding): Do not redirect STDOUT for local decoding.
 

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 7c3b393..16cf0c0 100644 (file)
--- 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 461cadd..bcb16fc 100644 (file)
--- 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)