+2009-01-26 Michael Albinus <michael.albinus@gmx.de>
+
+ * net/dbus.el (dbus-event-error-hooks): New variable.
+ (dbus-handle-event): Use it.
+
2009-01-26 Glenn Morris <rgm@gnu.org>
* Makefile.in (ELCFILES): Update.
(put 'dbus-ignore-errors 'edebug-form-spec '(form body))
(font-lock-add-keywords 'emacs-lisp-mode '("\\<dbus-ignore-errors\\>"))
+(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
+catched in `condition-case' by `dbus-error'.")
+
\f
;;; Hash table of registered functions.
(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)
(when (or dbus-debug (= dbus-message-type-error (nth 2 event)))
(signal (car err) (cdr err))))))