[elpa] externals/xelb ad845df 28/42: Merge pull request #4 from pipcet/data-offset

[Chris Feng]

branch: externals/xelb
commit ad845df3b5818943ea97f73902f12fd6a6c7cfd5
Merge: 520120a 1e20b20
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Merge pull request #4 from pipcet/data-offset
    
    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 feff43c..0e96849 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))