# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1257804941 0
# Node ID d91d3722b71f91fc13b9eefbe7c9c82769fa32ac
# Parent  65e4c9d9ea8474b1c7e23ada94d03e4e3193f16c
*** empty log message ***

diff -r 65e4c9d9ea84 -r d91d3722b71f lisp/net/dbus.el
--- a/lisp/net/dbus.el	Mon Nov 09 22:05:25 2009 +0000
+++ b/lisp/net/dbus.el	Mon Nov 09 22:15:41 2009 +0000
@@ -166,8 +166,8 @@
 	   (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