Fix Bug#32828

* lisp/net/dbus.el (dbus-init-bus): Return number of connections,
as promised by the docstring.  (Bug#32828)

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index f63ab9a15a80aead75533559cf6824f2cb1e9dc8..5f44c360342095a986bf8ff17a44390cc87c07da 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -1791,10 +1791,11 @@ GTK+.  It should be used with care for at least the `:system' and
 this connection to those buses."
   (or (featurep 'dbusbind)
       (signal 'dbus-error (list "Emacs not compiled with dbus support")))
-  (dbus--init-bus bus private)
-  (dbus-register-signal
-   bus nil dbus-path-local dbus-interface-local
-   "Disconnected" #'dbus-handle-bus-disconnect))
+  (prog1
+      (dbus--init-bus bus private)
+    (dbus-register-signal
+     bus nil dbus-path-local dbus-interface-local
+     "Disconnected" #'dbus-handle-bus-disconnect)))
 
  \f
 ;; Initialize `:system' and `:session' buses.  This adds their file