mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

* net/dbus.el (dbus-unregister-service): Complete doc. Fix

Browse Source 
call of dbus-error signal.
This commit is contained in:
Michael Albinus 2011-01-10 12:21:01 +01:00
parent 1a27c64e1c
commit 5c0b407077
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,6 +1,8 @@
2011-01-10 Michael Albinus <michael.albinus@gmx.de>
* 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 <jan.moringen@uni-bielefeld.de>

15
lisp/net/dbus.el
View File

@ -183,7 +183,18 @@ association to the service from D-Bus."
(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 @@ denoting the bus address. SERVICE must be a known service name."
(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.