diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2009-12-12 19:18:33 +0000 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2009-12-12 19:18:33 +0000 |
commit | 31bb373f927d65a500ae94f3b19796c4e089329f (patch) | |
tree | 271b58dac1e129e5970ce2c1fe1931d62e639251 /lisp/net | |
parent | ba68c0b0c40ba13591c26db74af281d9fb2aac32 (diff) | |
download | emacs-31bb373f927d65a500ae94f3b19796c4e089329f.tar.gz |
* net/dbus.el (dbus-property-handler): Filter lambda forms out
when responding to "GetAll" properties.
Diffstat (limited to 'lisp/net')
-rw-r--r-- | lisp/net/dbus.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |