summaryrefslogtreecommitdiff
path: root/lisp/net
diff options
context:
space:
mode:
authorMichael Albinus <michael.albinus@gmx.de>2009-12-12 19:18:33 +0000
committerMichael Albinus <michael.albinus@gmx.de>2009-12-12 19:18:33 +0000
commit31bb373f927d65a500ae94f3b19796c4e089329f (patch)
tree271b58dac1e129e5970ce2c1fe1931d62e639251 /lisp/net
parentba68c0b0c40ba13591c26db74af281d9fb2aac32 (diff)
downloademacs-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.el2
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