* net/dbus.el (dbus-register-property): Use `dont-register' keyword.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a876851c959f265f0ae7724b062fb59868f1145c..33dd97aa5afeb604ecb3836a98907ea6a7435fb1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-10  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/dbus.el (dbus-register-property): Use `dont-register' keyword.
+
 2011-01-10  Jan Moringen  <jan.moringen@uni-bielefeld.de>
 
        * net/dbus.el (dbus-unregister-service): Translate returned

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 9f6cbda46eda33e924199eba91508ae7e7c95550..ca223522eda521611e24e08d91f48e7c6eaf9ff7 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -922,13 +922,13 @@ clients from discovering the still incomplete interface."
   ;; Add handlers for the three property-related methods.
   (dbus-register-method
    bus service path dbus-interface-properties "Get"
-   'dbus-property-handler t)
+   'dbus-property-handler 'dont-register)
   (dbus-register-method
-   bus service path dbus-interface-properties "GetAll" 
-   'dbus-property-handler t)
+   bus service path dbus-interface-properties "GetAll"
+   'dbus-property-handler 'dont-register)
   (dbus-register-method
-   bus service path dbus-interface-properties "Set" 
-   'dbus-property-handler t)
+   bus service path dbus-interface-properties "Set"
+   'dbus-property-handler 'dont-register)
 
   ;; Register the name SERVICE with BUS.
   (unless dont-register-service