# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1219608933 0
# Node ID 2a8cbdcbe61d74b6ad21b1b43252f94a4af16789
# Parent  30f6f3fd47e4bd9c63e006a79ef2de460a8285c7
* net/dbus.el (dbus-introspect): Use `dbus-call-method-non-blocking'.

diff -r 30f6f3fd47e4 -r 2a8cbdcbe61d lisp/net/dbus.el
--- a/lisp/net/dbus.el	Sun Aug 24 20:12:41 2008 +0000
+++ b/lisp/net/dbus.el	Sun Aug 24 20:15:33 2008 +0000
@@ -445,9 +445,11 @@
 SERVICE must be a known service name, and PATH must be a valid
 object path.  The last two parameters are strings.  The result,
 the introspection data, is a string in XML format."
-  ;; We don't want to raise errors.
+  ;; We don't want to raise errors.  `dbus-call-method-non-blocking'
+  ;; is used, because the handler can be registered in our Emacs
+  ;; instance; caller an callee would block each other.
   (dbus-ignore-errors
-    (dbus-call-method
+    (dbus-call-method-non-blocking
      bus service path dbus-interface-introspectable "Introspect")))
 
 (defun dbus-introspect-xml (bus service path)