Mercurial > emacs

comparison lisp/net/dbus.el @ 97692:2a8cbdcbe61d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/dbus.el (dbus-introspect): Use `dbus-call-method-non-blocking'.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 24 Aug 2008 20:15:33 +0000
parents d5e87cca37af
children a7acd2697027
comparison
equal deleted inserted replaced
97691:30f6f3fd47e4 97692:2a8cbdcbe61d
443 443
444 BUS must be either the symbol `:system' or the symbol `:session'. 444 BUS must be either the symbol `:system' or the symbol `:session'.
445 SERVICE must be a known service name, and PATH must be a valid 445 SERVICE must be a known service name, and PATH must be a valid
446 object path. The last two parameters are strings. The result, 446 object path. The last two parameters are strings. The result,
447 the introspection data, is a string in XML format." 447 the introspection data, is a string in XML format."
448 ;; We don't want to raise errors. 448 ;; We don't want to raise errors. `dbus-call-method-non-blocking'
449 ;; is used, because the handler can be registered in our Emacs
450 ;; instance; caller an callee would block each other.
449 (dbus-ignore-errors 451 (dbus-ignore-errors
450 (dbus-call-method 452 (dbus-call-method-non-blocking
451 bus service path dbus-interface-introspectable "Introspect"))) 453 bus service path dbus-interface-introspectable "Introspect")))
452 454
453 (defun dbus-introspect-xml (bus service path) 455 (defun dbus-introspect-xml (bus service path)
454 "Return the introspection data of SERVICE in D-Bus BUS at object path PATH. 456 "Return the introspection data of SERVICE in D-Bus BUS at object path PATH.
455 The data are a parsed list. The root object is a \"node\", 457 The data are a parsed list. The root object is a \"node\",