[Top][All Lists]
[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.
- [Emacs-diffs] emacs/lisp/net dbus.el,
Michael Albinus <=