Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
106554:1848c5befea3 106555:98a65639e9cf
952 (let (result) 952 (let (result)
953 (maphash 953 (maphash
954 (lambda (key val) 954 (lambda (key val)
955 (when (and (equal (butlast key) (list bus interface)) 955 (when (and (equal (butlast key) (list bus interface))
956 (string-equal path (nth 2 (car val))) 956 (string-equal path (nth 2 (car val)))
957 (consp (car (last (car val))))) 957 (not (functionp (car (last (car val))))))
958 (add-to-list 958 (add-to-list
959 'result 959 'result
960 (list :dict-entry 960 (list :dict-entry
961 (car (last key)) 961 (car (last key))
962 (list :variant (cdar (last (car val)))))))) 962 (list :variant (cdar (last (car val))))))))