procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* net/dbus.el (dbus-byte-array-to-string): Accept also byte arrays

Browse source 
in D-Bus type syntax.
(dbus-unescape-from-identifier): Use `byte-to-string' in order to
preserve unibyte strings.  (Bug#16048)
This commit is contained in:
Michael Albinus 2013-12-04 15:10:09 +01:00
parent a84c99500e
commit 81961e4cea
2 changed files with 18 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2013-12-04 Michael Albinus <michael.albinus@gmx.de>
* net/dbus.el (dbus-byte-array-to-string): Accept also byte arrays
in D-Bus type syntax.
(dbus-unescape-from-identifier): Use `byte-to-string' in order to
preserve unibyte strings. (Bug#16048)
2013-12-04 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/eldoc.el (eldoc-minibuffer-message):
@ -21,7 +28,7 @@
2013-12-03 Tom Regner <tom@goochesa.de> (tiny change)
* notifications.el (notifications-close-notification): Call the
D-Bus method with `id' being an `:uint32'. (Bug#16030)
D-Bus method with ID being a `:uint32'. (Bug#16030)
2013-12-03 Katsumi Yamaoka <yamaoka@jpl.org>

13
lisp/net/dbus.el
View file

@ -829,8 +829,15 @@ STRING shall be UTF8 coded."
(defun dbus-byte-array-to-string (byte-array)
"Transforms BYTE-ARRAY into UTF8 coded string.
BYTE-ARRAY must be a list of structure (c1 c2 ...)."
(apply 'string byte-array))
BYTE-ARRAY must be a list of structure (c1 c2 ...), or a byte
array as produced by `dbus-string-to-byte-array'."
(apply
'string
(if (equal byte-array '(:array :signature "y"))
nil
(let (result)
(dolist (elt byte-array result)
(when (characterp elt) (setq result (append result `(,elt)))))))))
(defun dbus-escape-as-identifier (string)
"Escape an arbitrary STRING so it follows the rules for a C identifier.
@ -863,7 +870,7 @@ STRING must have been coded with `dbus-escape-as-identifier'"
""
(replace-regexp-in-string
"_.."
(lambda (x) (format "%c" (string-to-number (substring x 1) 16)))
(lambda (x) (byte-to-string (string-to-number (substring x 1) 16)))
string)))