procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/dbus.el (dbus-init-bus): Declare. Apply it for the :system

Browse source 
and :session buses.
This commit is contained in:
Michael Albinus 2009-08-18 15:12:14 +00:00
parent 997797ae1b
commit ba6f7d8640
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-08-18 Michael Albinus <michael.albinus@gmx.de>
* net/dbus.el (dbus-init-bus): Declare. Apply it for the :system
and :session buses.
2009-08-18 Kenichi Handa <handa@m17n.org>
* international/ucs-normalize.el (ucs-normalize-version): Changed

10
lisp/net/dbus.el
View file

@ -34,12 +34,22 @@
;; option "--without-dbus". Declare used subroutines and variables.
(declare-function dbus-call-method "dbusbind.c")
(declare-function dbus-call-method-asynchronously "dbusbind.c")
(declare-function dbus-init-bus "dbusbind.c")
(declare-function dbus-method-return-internal "dbusbind.c")
(declare-function dbus-method-error-internal "dbusbind.c")
(declare-function dbus-register-signal "dbusbind.c")
(defvar dbus-debug)
(defvar dbus-registered-functions-table)
;; Initialize :system and :session buses. This adds their file
;; descriptors to input_wait_mask, in order to detect incoming
;; messages immediately.
;; We must avoid to call the function twice for a bus, because the
;; DBusWatch will be removed then.
(when (and (featurep 'dbusbind) (not (featurep 'dbus)))
(dbus-init-bus :system)
(dbus-init-bus :session))
;; Pacify byte compiler.
(eval-when-compile
(require 'cl))