From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 9 Nov 2009 22:15:41 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-pretest-23.1.90~509
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f3241732d448b4352573fb410c48d7b1c9ab230;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 306d4973f98..065d3d1876a 100644
--- 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