Fix a dbus.el byte compilation warning

* lisp/net/dbus.el (dbus-register-monitor): Silence a
byte-compilation warning on systems without dbus.

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 1e7f836d820a4174bf4b23dd5509068fdf94bf9b..4116d293e1bd2f152cb3be0d6e0b097d3d877359 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -2029,8 +2029,9 @@ either a method name, a signal name, or an error name."
            ",")
           rule (or rule ""))
 
-    (unless (ignore-errors (dbus-get-unique-name bus-private))
-      (dbus-init-bus bus 'private))
+    (when (fboundp 'dbus-get-unique-name)
+      (unless (ignore-errors (dbus-get-unique-name bus-private))
+        (dbus-init-bus bus 'private)))
     (dbus-call-method
      bus-private dbus-service-dbus dbus-path-dbus dbus-interface-monitoring
      "BecomeMonitor" `(:array :string ,rule) :uint32 0)