# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1294656793 -3600
# Node ID adafd735e9aa40a894ff1a9c800ecef62721c6dd
# Parent  e79369283aa120a3886e1556b7be1d93a855b3e2
* net/dbus.el (dbus-register-property): Use `dont-register' keyword.

diff -r e79369283aa1 -r adafd735e9aa lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 10 10:56:17 2011 +0100
+++ b/lisp/ChangeLog	Mon Jan 10 11:53:13 2011 +0100
@@ -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 -r e79369283aa1 -r adafd735e9aa lisp/net/dbus.el
--- a/lisp/net/dbus.el	Mon Jan 10 10:56:17 2011 +0100
+++ b/lisp/net/dbus.el	Mon Jan 10 11:53:13 2011 +0100
@@ -922,13 +922,13 @@
   ;; 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