[elpa] externals/xelb 1e20b20 26/42: Adjust to unmarshalling API changes.

[Chris Feng]

branch: externals/xelb
commit 1e20b20794fdde786be33ed08aa6c64922c10b8f
Author: Philip <address@hidden>
Commit: Philip <address@hidden>

    Adjust to unmarshalling API changes.
---
 xcb-icccm.el |   11 +++++++----
 1 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/xcb-icccm.el b/xcb-icccm.el
index 1d178d8..b98451a 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -138,19 +138,22 @@ This method automatically format the value as 8, 16 or 32 
bits array."
            (cl-assert (= (* 2 value-len) (length tmp)))
            (if ~lsb
                (dotimes (i value-len)
-                 (setf value (vconcat value (vector (xcb:-unpack-u2-lsb tmp))))
+                 (setf value (vconcat value
+                                      (vector (xcb:-unpack-u2-lsb tmp 0))))
                  (setq tmp (substring tmp 2)))
              (dotimes (i value-len)
-               (setf value (vconcat value (vector (xcb:-unpack-u2 tmp))))
+               (setf value (vconcat value
+                                    (vector (xcb:-unpack-u2 tmp 0))))
                (setq tmp (substring tmp 2)))))
           (32
            (cl-assert (= (* 4 value-len) (length tmp)))
            (if ~lsb
                (dotimes (i value-len)
-                 (setf value (vconcat value (vector (xcb:-unpack-u4-lsb tmp))))
+                 (setf value (vconcat value
+                                      (vector (xcb:-unpack-u4-lsb tmp 0))))
                  (setq tmp (substring tmp 4)))
              (dotimes (i value-len)
-               (setf value (vconcat value (vector (xcb:-unpack-u4 tmp))))
+               (setf value (vconcat value (vector (xcb:-unpack-u4 tmp 0))))
                (setq tmp (substring tmp 4)))))
           (_ (cl-assert nil)))))
     retval))