branch: externals/xelb
commit f465091df5f0e2a3e0f67f2f1b341ee9960aa62e
Author: Philip <pip...@gmail.com>
Commit: Philip <pip...@gmail.com>
It's valid for WM_NORMAL_HINTS responses only to have 15 words.
* xcb-icccm.el (xcb:unmarshal): Accept short responses to the
WM_NORMAL_HINTS property, such as that provided by Xnest.
---
xcb-icccm.el | 3 +--
1 files changed, 1 insertions(+), 2 deletions(-)
diff --git a/xcb-icccm.el b/xcb-icccm.el
index 1d178d8..feff43c 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -291,9 +291,8 @@ explicitly listed out."
(slots (nthcdr (length slots-orig) slots))
(value (slot-value obj 'value)))
(unless value (setq value (make-vector (length slots) nil))) ;fallback
- (cl-assert (= (length value) (length slots)))
;; Set explicit fields from value field
- (dotimes (i (length slots))
+ (dotimes (i (length value))
(setf (slot-value obj (cl--slot-descriptor-name (elt slots i)))
(elt value i)))
retval))
