diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-01-28 16:10:38 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-01-28 16:10:38 +0000 |
| commit | f213fc091d1a93eb0606786670ae67f89a1129cf (patch) | |
| tree | 2ca0b0269843a43b60d0a002f75d1ae5f6263a3f /lisp/net/dbus.el | |
| parent | 74fc50477b4ee46026a4418d3682c30187130efe (diff) | |
| download | emacs-f213fc091d1a93eb0606786670ae67f89a1129cf.tar.gz | |
* net/dbus.el (dbus-event-error-hooks): Fix docstring. Describe
second parameter of hook functions.
(dbus-handle-event): Apply it.
Diffstat (limited to 'lisp/net/dbus.el')
| -rw-r--r-- | lisp/net/dbus.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el index 39247b0b62d..f586a4125de 100644 --- a/lisp/net/dbus.el +++ b/lisp/net/dbus.el @@ -99,7 +99,7 @@ Otherwise, return result of last form in BODY, or all other 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 +Every function must accept two arguments, the event and the error variable catched in `condition-case' by `dbus-error'.") @@ -379,7 +379,7 @@ If the HANDLER returns an `dbus-error', it is propagated as return message." (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)))))) |