[Emacs-diffs] emacs/lisp ChangeLog net/dbus.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/12/12 19:18:36

Modified files:
        lisp           : ChangeLog 
        lisp/net       : dbus.el 

Log message:
        * net/dbus.el (dbus-property-handler): Filter lambda forms out
        when responding to "GetAll" properties.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16896&r2=1.16897
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/dbus.el?cvsroot=emacs&r1=1.39&r2=1.40

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16896
retrieving revision 1.16897
diff -u -b -r1.16896 -r1.16897
--- ChangeLog   12 Dec 2009 17:01:03 -0000      1.16896
+++ ChangeLog   12 Dec 2009 19:18:33 -0000      1.16897
@@ -1,3 +1,8 @@
+2009-12-12  Michael Albinus  <address@hidden>
+
+       * net/dbus.el (dbus-property-handler): Filter lambda forms out
+       when responding to "GetAll" properties.
+
 2009-12-12  Chong Yidong  <address@hidden>
 
        * simple.el (compose-mail): Remove mail-setup-with-from from

Index: net/dbus.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/dbus.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- net/dbus.el 16 Nov 2009 14:25:25 -0000      1.39
+++ net/dbus.el 12 Dec 2009 19:18:36 -0000      1.40
@@ -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