From 1b09935e82db2a976d20a90ac8f85dac7f1ef03e Mon Sep 17 00:00:00 2001
From: andruska <7129124+andruska@users.noreply.github.com>
Date: Tue, 2 Apr 2024 03:49:15 +0300
Subject: [PATCH] Fix assertion

xcb-icccm.el (xcb:unmarshal) assert value according to value-len
---
 xcb-icccm.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xcb-icccm.el b/xcb-icccm.el
index 44ea8a1..0a4d712 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -272,9 +272,9 @@ This method automatically encodes the data (which is a string)."
   "Fill in the fields in the reply of an ICCCM GetProperty (single-valued)
 request OBJ according to BYTE-ARRAY."
   (let ((retval (cl-call-next-method obj byte-array)))
-    (with-slots (value) obj
+    (with-slots (value value-len) obj
       (when value
-        (cl-assert (= 1 (length value)))
+        (cl-assert (= value-len (length value)))
         (setf value (elt value 0))))
     retval))