# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1233159002 0
# Node ID df3f6041e0028649460a5093a984ffa6ab9e956d
# Parent  2259d23e6d8572de9cd610546a22d9f8280c920a
* net/dbus.el (dbus-event-error-hooks): Fix docstring.  Describe
second parameter of hook functions.
(dbus-handle-event): Apply it.

diff -r 2259d23e6d85 -r df3f6041e002 lisp/net/dbus.el
--- a/lisp/net/dbus.el	Wed Jan 28 16:07:33 2009 +0000
+++ b/lisp/net/dbus.el	Wed Jan 28 16:10:02 2009 +0000
@@ -99,7 +99,7 @@
 
 (defvar dbus-event-error-hooks nil
   "Functions to be called when a D-Bus error happens in the event handler.
-Every function must accept one argument, the error variable
+Every function must accept two arguments, the event and the error variable
 catched in `condition-case' by `dbus-error'.")
 
 
@@ -379,7 +379,7 @@
 	 (dbus-method-error-internal
 	  (nth 1 event) (nth 3 event) (nth 4 event) (cadr err))))
      ;; Propagate D-Bus error messages.
-     (run-hook-with-args 'dbus-event-error-hooks err)
+     (run-hook-with-args 'dbus-event-error-hooks event err)
      (when (or dbus-debug (= dbus-message-type-error (nth 2 event)))
        (signal (car err) (cdr err))))))