*** empty log message ***

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 306d497..065d3d1 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -166,8 +166,8 @@ been unregistered, `nil' otherwise."
           (dolist (val v)
             (ignore-errors
               (when (and (equal bus (car k))
-                         (string-equal service (cadr val))))
-              (setq found t))))
+                         (string-equal service (cadr val)))
+                (setq found t)))))
         dbus-registered-functions-table)
        (unless found
          (dbus-call-method