# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1202676267 0
# Node ID 58bf306db72e86a058c03de0c371a97568def9d5
# Parent  b2df1fe6ce6d5e5122afe48a0a2c660769429fbb
* 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'.

diff -r b2df1fe6ce6d -r 58bf306db72e lisp/net/dbus.el
--- 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)