# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1260645513 0
# Node ID 98a65639e9cf3ca1e5b58881c43d3d93b23f796d
# Parent  1848c5befea3763b73a642d5fb6da88bdfee3fc9
* net/dbus.el (dbus-property-handler): Filter lambda forms out
when responding to "GetAll" properties.

diff -r 1848c5befea3 -r 98a65639e9cf lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Dec 12 17:11:41 2009 +0000
+++ b/lisp/ChangeLog	Sat Dec 12 19:18:33 2009 +0000
@@ -1,3 +1,8 @@
+2009-12-12  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/dbus.el (dbus-property-handler): Filter lambda forms out
+	when responding to "GetAll" properties.
+
 2009-12-12  Chong Yidong  <cyd@stupidchicken.com>
 
 	* simple.el (compose-mail): Remove mail-setup-with-from from
diff -r 1848c5befea3 -r 98a65639e9cf lisp/net/dbus.el
--- a/lisp/net/dbus.el	Sat Dec 12 17:11:41 2009 +0000
+++ b/lisp/net/dbus.el	Sat Dec 12 19:18:33 2009 +0000
@@ -954,7 +954,7 @@
 	 (lambda (key val)
 	   (when (and (equal (butlast key) (list bus interface))
 		      (string-equal path (nth 2 (car val)))
-		      (consp (car (last (car val)))))
+		      (not (functionp (car (last (car val))))))
 	     (add-to-list
 	      'result
 	      (list :dict-entry