Mercurial > emacs
changeset 91728:58bf306db72e
* net/dbus.el: Remove `no-byte-compile' cookie.
(dbus-call-method, dbus-register-signal, dbus-debug)
(dbus-registered-functions-table): Declare them with
`declare-function' or `defvar', respectively.
(top): Don't assert any longer. Require 'cl when compiling.
Apply `ignore-errors' but `dbus-ignore-errors'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 10 Feb 2008 20:44:27 +0000 |
| parents | b2df1fe6ce6d |
| children | 7647052cf6c1 |
| files | lisp/net/dbus.el |
| diffstat | 1 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/dbus.el Sun Feb 10 20:09:38 2008 +0000 +++ b/lisp/net/dbus.el Sun Feb 10 20:44:27 2008 +0000 @@ -1,4 +1,3 @@ -;;; -*- no-byte-compile: t; -*- ;;; dbus.el --- Elisp bindings for D-Bus. ;; Copyright (C) 2007, 2008 Free Software Foundation, Inc. @@ -33,8 +32,15 @@ ;;; Code: ;; D-Bus support in the Emacs core can be disabled with configuration -;; option "--without-dbus". Check it. -(assert (featurep 'dbusbind) nil "D-Bus is not supported") +;; option "--without-dbus". Declare used subroutines and variables. +(declare-function dbus-call-method "dbusbind.c") +(declare-function dbus-register-signal "dbusbind.c") +(defvar dbus-debug) +(defvar dbus-registered-functions-table) + +;; Pacify byte compiler. +(eval-when-compile + (require 'cl)) (require 'xml) @@ -158,7 +164,7 @@ args)))))) ;; Register the handler. -(dbus-ignore-errors +(ignore-errors (dbus-register-signal :system dbus-service-dbus dbus-path-dbus dbus-interface-dbus "NameOwnerChanged" 'dbus-name-owner-changed-handler)