Mercurial > emacs

diff lisp/net/dbus.el @ 106555:98a65639e9cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 533b0628d222
children 1d1d5d9bd884
line wrap: on
line diff
--- 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