[Emacs-diffs] Changes to emacs/lisp/net/dbus.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       08/02/06 20:54:19

Index: dbus.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/dbus.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- dbus.el     6 Feb 2008 20:49:35 -0000       1.13
+++ dbus.el     6 Feb 2008 20:54:19 -0000       1.14
@@ -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)