From 31bb373f927d65a500ae94f3b19796c4e089329f Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 12 Dec 2009 19:18:33 +0000 Subject: [PATCH] * net/dbus.el (dbus-property-handler): Filter lambda forms out when responding to "GetAll" properties. --- lisp/ChangeLog | 5 +++++ lisp/net/dbus.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 25869e3b0b0..fa6cd869ebc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-12-12 Michael Albinus + + * net/dbus.el (dbus-property-handler): Filter lambda forms out + when responding to "GetAll" properties. + 2009-12-12 Chong Yidong * simple.el (compose-mail): Remove mail-setup-with-from from diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el index 49abca0ac38..2a1bd043080 100644 --- 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 -- 2.39.2