Mercurial > emacs

changeset 91589:12b2f1526656

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* net/dbus.el (dbus-interface-peer): New defconst. (dbus-ping): New defun.
author Michael Albinus <michael.albinus@gmx.de>
date Wed, 06 Feb 2008 20:54:19 +0000
parents 83afe69ce25e
children 6834ec860aff
files lisp/net/dbus.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)