branch: externals/xelb
commit 65b2934f69ffcb53906207b39d7624cb5cfc77de
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
Fix the parsing of X11 properties
* xcb-icccm.el (xcb:icccm:-GetProperty~reply): Do not use the
'bytes-after' field.
---
xcb-icccm.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/xcb-icccm.el b/xcb-icccm.el
index c7f3c12..c787161 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -128,12 +128,10 @@ according to BYTE-ARRAY.
This method automatically format the value as 8, 16 or 32 bits array."
(let ((retval (cl-call-next-method obj byte-array))
tmp)
- (with-slots (~lsb length format bytes-after value-len value) obj
+ (with-slots (~lsb length format value-len value) obj
(if (or (= 0 value-len) (= 0 length))
(setf value nil) ;no available value
- (setq tmp (substring value
- 0 ;long-offset
- (- (length value) bytes-after))
+ (setq tmp value ;long-offset is always 0
value nil)
(pcase format
(8
