# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1227730606 0
# Node ID 6d3b706e1a285c7a276089a9098064a8aac6b6f2
# Parent  eb46f9cbb4a0cd646f8e7ffe77d4dbbf25ca0f39
* net/dbus.el (dbus-handle-event): The result of a message call
can also be an object, which is not a consp.

diff -r eb46f9cbb4a0 -r 6d3b706e1a28 lisp/net/dbus.el
--- a/lisp/net/dbus.el	Wed Nov 26 20:14:09 2008 +0000
+++ b/lisp/net/dbus.el	Wed Nov 26 20:16:46 2008 +0000
@@ -362,7 +362,8 @@
 	(when (= dbus-message-type-method-call (nth 2 event))
 	  (dbus-ignore-errors
 	    (apply 'dbus-method-return-internal
-	     (nth 1 event) (nth 3 event) (nth 4 event) result))))
+	     (nth 1 event) (nth 3 event) (nth 4 event)
+	     (if (consp result) result (list result))))))
     ;; Error handling.
     (dbus-error
      ;; Return an error message when it is a message call.