# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1230994510 0
# Node ID 4502d2277f2c7647bf83f27dbef1939cd7d2c421
# Parent  63cba20d8dca074a61cc2c1b479536847770b51b
* net/dbus.el (dbus-string-to-byte-array): Handle empty array.

diff -r 63cba20d8dca -r 4502d2277f2c lisp/net/dbus.el
--- a/lisp/net/dbus.el	Sat Jan 03 14:54:52 2009 +0000
+++ b/lisp/net/dbus.el	Sat Jan 03 14:55:10 2009 +0000
@@ -1,6 +1,6 @@
 ;;; dbus.el --- Elisp bindings for D-Bus.
 
-;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
 
 ;; Author: Michael Albinus <michael.albinus@gmx.de>
 ;; Keywords: comm, hardware
@@ -247,9 +247,11 @@
 (defun dbus-string-to-byte-array (string)
   "Transforms STRING to list (:array :byte c1 :byte c2 ...).
 STRING shall be UTF8 coded."
-  (let (result)
-    (dolist (elt (string-to-list string) (append '(:array) result))
-      (setq result (append result (list :byte elt))))))
+  (if (zerop (length string))
+      '(:array :signature "y")
+    (let (result)
+      (dolist (elt (string-to-list string) (append '(:array) result))
+	(setq result (append result (list :byte elt)))))))
 
 (defun dbus-byte-array-to-string (byte-array)
   "Transforms BYTE-ARRAY into UTF8 coded string.