Mercurial > emacs
changeset 106555:98a65639e9cf
* net/dbus.el (dbus-property-handler): Filter lambda forms out
when responding to "GetAll" properties.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sat, 12 Dec 2009 19:18:33 +0000 |
| parents | 1848c5befea3 |
| children | 5aa7826e36c1 |
| files | lisp/ChangeLog lisp/net/dbus.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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