* net/dbus.el (dbus-property-handler): Filter lambda forms out

when responding to "GetAll" properties.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25869e3b0b01b97e60d3c921a967807943ff2352..fa6cd869ebce4118e2bb5550b20b33e1f7f5f872 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 49abca0ac38ac0ee467b1f1fc082998b6221bcfb..2a1bd0430802d615515b25cdcfae425805a51e2e 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -954,7 +954,7 @@ It will be registered for all objects created by `dbus-register-object'."
         (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