branch: externals/xelb
commit ad845df3b5818943ea97f73902f12fd6a6c7cfd5
Merge: 520120a 1e20b20
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
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))
