diff lisp/net/dbus.el @ 105928:d91d3722b71f

*** empty log message ***
author Michael Albinus <michael.albinus@gmx.de>
date Mon, 09 Nov 2009 22:15:41 +0000
parents 2b4cc3e45a7b
children 57d249deafab
line wrap: on
line diff
--- 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