[Emacs-diffs] /srv/bzr/emacs/trunk r103177: * net/dbus.el (dbus-list-activatable-names): Add optional argument BUS.

[Michael Albinus]

------------------------------------------------------------
revno: 103177
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2011-02-07 09:01:15 +0100
message:
  * net/dbus.el (dbus-list-activatable-names): Add optional argument BUS.
modified:
  lisp/ChangeLog
  lisp/net/dbus.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-07 00:54:23 +0000
+++ b/lisp/ChangeLog    2011-02-07 08:01:15 +0000
@@ -1,3 +1,8 @@
+2011-02-07  Michael Albinus  <address@hidden>
+
+       * net/dbus.el (dbus-list-activatable-names): Add optional argument
+       BUS.
+
 2011-02-07  Deniz Dogan  <address@hidden>
 
        * net/rcirc.el (rcirc-handler-317): New function (Bug#6507).

=== modified file 'lisp/net/dbus.el'
--- a/lisp/net/dbus.el  2011-01-25 04:08:28 +0000
+++ b/lisp/net/dbus.el  2011-02-07 08:01:15 +0000
@@ -506,13 +506,14 @@
 
 ;;; D-Bus registered names.
 
-(defun dbus-list-activatable-names ()
+(defun dbus-list-activatable-names (&optional bus)
   "Return the D-Bus service names which can be activated as list.
-The result is a list of strings, which is `nil' when there are no
-activatable service names at all."
+If BUS is left nil, `:system' is assumed.  The result is a list
+of strings, which is `nil' when there are no activatable service
+names at all."
   (dbus-ignore-errors
     (dbus-call-method
-     :system dbus-service-dbus
+     (or bus :system) dbus-service-dbus
      dbus-path-dbus dbus-interface-dbus "ListActivatableNames")))
 
 (defun dbus-list-names (bus)