From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 24 Nov 2023 15:34:26 +0000 (+0100)
Subject: Extend D-Bus doc and test
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0676a02931014e64160c71207ab4ef8d4a33a9b1;p=emacs.git

Extend D-Bus doc and test

* doc/misc/dbus.texi (Register Objects): Adapt doc of
dbus-unregister-service.

* test/lisp/net/dbus-tests.el (dbus--test-register-service):
Extend test.
---

diff --git a/doc/misc/dbus.texi b/doc/misc/dbus.texi
index 2bd6b9556c8..9dff54ff94a 100644
--- a/doc/misc/dbus.texi
+++ b/doc/misc/dbus.texi
@@ -1418,6 +1418,9 @@ The name @var{service} does not exist on the bus.
 @item :not-owner
 We are not an owner of the name @var{service}.
 @end table
+
+When @var{service} is not a known name but a unique name, the function
+returns nil.
 @end defun
 
 When a name has been chosen, Emacs can offer its own methods, which
diff --git a/test/lisp/net/dbus-tests.el b/test/lisp/net/dbus-tests.el
index 418ae61bb42..66240efd882 100644
--- a/test/lisp/net/dbus-tests.el
+++ b/test/lisp/net/dbus-tests.el
@@ -465,6 +465,9 @@
   (should (eq (dbus-unregister-service bus dbus--test-service) :non-existent))
   (should-not (member dbus--test-service (dbus-list-known-names bus)))
 
+  ;; Unregistering a unique name returns nil.
+  (should-not (dbus-unregister-service bus ":1.1"))
+
   ;; A service name is a string, constructed of at least two words
   ;; separated by ".".
   (should