emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp/net dbus.el


From: Michael Albinus
Subject: [Emacs-diffs] emacs/lisp/net dbus.el
Date: Sat, 03 Jan 2009 14:55:19 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/01/03 14:55:19

Modified files:
        lisp/net       : dbus.el 

Log message:
        * net/dbus.el (dbus-string-to-byte-array): Handle empty array.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/dbus.el?cvsroot=emacs&r1=1.25&r2=1.26

Patches:
Index: dbus.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/dbus.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- dbus.el     26 Nov 2008 20:16:46 -0000      1.25
+++ dbus.el     3 Jan 2009 14:55:10 -0000       1.26
@@ -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 <address@hidden>
 ;; 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."
+  (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))))))
+       (setq result (append result (list :byte elt)))))))
 
 (defun dbus-byte-array-to-string (byte-array)
   "Transforms BYTE-ARRAY into UTF8 coded string.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]