# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1202331259 0
# Node ID 12b2f1526656cf32cf7739572d8a5390402e6893
# Parent  83afe69ce25e2b8014afde5dd42df66ab906a544
* net/dbus.el (dbus-interface-peer): New defconst.
(dbus-ping): New defun.

diff -r 83afe69ce25e -r 12b2f1526656 lisp/net/dbus.el
--- a/lisp/net/dbus.el	Wed Feb 06 20:49:35 2008 +0000
+++ b/lisp/net/dbus.el	Wed Feb 06 20:54:19 2008 +0000
@@ -326,11 +326,10 @@
 (defun dbus-ping (bus service)
   "Check whether SERVICE is registered for D-Bus BUS."
   ;; "Ping" raises a D-Bus error if SERVICE does not exist.
-  ;; Otherwise, it returns silently.
+  ;; Otherwise, it returns silently with `nil'.
   (condition-case nil
-      (progn
-	(dbus-call-method bus service dbus-path-dbus dbus-interface-peer "Ping")
-	t)
+      (not
+       (dbus-call-method bus service dbus-path-dbus dbus-interface-peer "Ping"))
     (dbus-error nil)))
 
 (defun dbus-introspect (bus service path)