# HG changeset patch # User Michael Albinus # Date 1294658461 -3600 # Node ID 060a9a41dd530da8666a0320bd95bee9cd6d8ba1 # Parent adafd735e9aa40a894ff1a9c800ecef62721c6dd * net/dbus.el (dbus-unregister-service): Complete doc. Fix call of dbus-error signal. diff -r adafd735e9aa -r 060a9a41dd53 lisp/ChangeLog --- a/lisp/ChangeLog Mon Jan 10 11:53:13 2011 +0100 +++ b/lisp/ChangeLog Mon Jan 10 12:21:01 2011 +0100 @@ -1,6 +1,8 @@ 2011-01-10 Michael Albinus - * net/dbus.el (dbus-register-property): Use `dont-register' keyword. + * net/dbus.el (dbus-unregister-service): Complete doc. Fix + call of dbus-error signal. + (dbus-register-property): Use `dont-register' keyword. 2011-01-10 Jan Moringen diff -r adafd735e9aa -r 060a9a41dd53 lisp/net/dbus.el --- a/lisp/net/dbus.el Mon Jan 10 11:53:13 2011 +0100 +++ b/lisp/net/dbus.el Mon Jan 10 12:21:01 2011 +0100 @@ -183,7 +183,18 @@ (defun dbus-unregister-service (bus service) "Unregister all objects related to SERVICE from D-Bus BUS. BUS is either a Lisp symbol, `:system' or `:session', or a string -denoting the bus address. SERVICE must be a known service name." +denoting the bus address. SERVICE must be a known service name. + +The function returns a keyword, indicating the result of the +operation. One of the following keywords is returned: + +`:released': Service has become the primary owner of the name. + +`:non-existent': Service name does not exist on this bus. + +`:not-owner': We are neither the primary owner nor waiting in the +queue of this service." + (maphash (lambda (key value) (dolist (elt value) @@ -200,7 +211,7 @@ (1 :released) (2 :non-existent) (3 :not-owner) - (t (signal 'dbus-error "Could not unregister service"))))) + (t (signal 'dbus-error (list "Could not unregister service" service)))))) (defun dbus-call-method-non-blocking-handler (&rest args) "Handler for reply messages of asynchronous D-Bus message calls.